Email mit Anhang über ShellExecute erstellen

[SiD]

Moin Leute,

kann mir einer sagen warum ich über den Befehl ShellExecute keine Anhänge mit Outlook 2003 verschicken kann.
Wenn ich

Delphi-Quellcode:

&file="c:\test.txt"

rausnehme, dann funzt es. Kann mir da einer helfen, oder eine Andere Möglichkeit nennen wie ich ein E-Mail Nachrichtenfenster öffne und ein Anhang automatisch einfüge??


Beispiel:

Delphi-Quellcode:

var
  pCh: PChar;
begin
  pCh := 'mailto:[e-mail]?subject=Test&body=Test eMail&file="c:\test.txt"';
  ShellExecute(0, 'open', pCh, nil, nil, SW_SHOWNORMAL);
end;

Danke im Voraus!!

[Steve]

Moin, versuch's mal damit:

Delphi-Quellcode:

...&Attach="c:\test.txt"

Funzt zwar nicht unter OE, aber unter Outlook müssts gehn.. hoff ich :zwinker:

Gruß
Stephan

[SiD]

nee, klappt leider nicht. Outlook meldet

"Das Befehlszeilenargument in ungültig. Überprüfen sie den verwendeten Befehl" :(

[Steve]

siehe auch http://www.delphipraxis.net/internal...ect.php?t=7609 :mrgreen:
Habs nur überflogen, aber da gibts wohl ne Lösung zu..

Viel Erfolg :wink:

Gruß
Stephan

[SiD]

Danke Stephan für die schnelle Antwort!
Also

Delphi-Quellcode:

 &Attachment="C:\test.txt"

klappt auch nicht,
und die andere möglichkeit verschickt sofort die mail. Das möchte ich aber nicht.

Vielleich hat einer von Euch noch ein Tipp?

Gruß
Sid

[shmia]

Zitat:

Zitat von SiD

kann mir einer sagen warum ich über den Befehl ShellExecute keine Anhänge mit Outlook 2003 verschicken kann.

Meines Wissens nach kann man über ShellExecute keine Anhänge verschicken. (Weder mit mit Outlook, noch mit Outlook Express).
Um vernünftig E-Mails zu verschicken gibt es 3 Wege:
- alles selber machen mit Indy (oder ähnliche) Komponenten
- Automatisierung von Outlook
- Verwendung der (SIMPLE-) MAPI Schnittstelle

Ich dir die MAPI-Schnittstelle empfehlen:
- geringer Aufwand, da der EMail-Client die meiste Arbeit übernimmt (z.B. Preview der EMail)
- EMail-Client ist der Container für die Zugangsdaten (SMTP-Server, User, PW)
- EMail-Client speichert die gesendeten EMails ("gesendete Objekte"); bei Problemen kann von Hand erneut gesendet werden.

[SiD]

Hi Shima,

hättest Du vielleich ein Beispiel für mich, wie ich eine Mail über MAPI erstellen kann und mir erst ein preview der mail anzeigen lassen kann. Bis jetzt habe ich nur Beispiele gefunde wo die Mail gleich verschickt wird, das währe sehrrrrr netttt :lol:


Gruß Sid

[SiD]

Hallo Leute,

jetzt habe ich es doch noch im Forum gefunden

Delphi-Quellcode:

procedure TForm1.Button9Click(Sender: TObject); 
var 
  s: String; 
begin  
s := 'mailto:[e-mail]?Subject=Thanks&Body=hallo&Attach=""C:\boot.ini""'; 
ShellExecute(handle, 'open', PChar(s), nil, nil, SW_SHOWNORMAL); 
end;

Gruß
Sid

[shmia]

Zitat:

Zitat von SiD

hättest Du vielleich ein Beispiel für mich, wie ich eine Mail über MAPI erstellen kann und mir erst ein preview der mail anzeigen lassen kann. Bis jetzt habe ich nur Beispiele gefunde wo die Mail gleich verschickt wird, das währe sehrrrrr netttt

Klar. :mrgreen:
In der Jedi Code Library(JCL) ist ein Beispielprogramm MapiExample.dpr enthalten.
Das Preview wird durch die Option "Show Dialog" aktiviert.

Delphi-Quellcode:

    function Send(ShowDialog: Boolean = True): Boolean;