Mail mit Standard Mailhandler verschicken mit Anhang

[Klaus D.]

Hallo

Delphi-Quellcode:

procedure Tfrm_Mail.Button1Click(Sender: TObject);
 var   Adresse, Betreff, Text: String;
begin
 Adresse:=Edit1.Text;
 Betreff:=Edit2.Text;
 Text:='';
 ShellExecute(Handle, 'open',
 PChar('mailto:'+adresse+'?subject='+Betreff+'&body='+Text),nil,nil,SW_SHOW);
end;

Wie kann ich denn da noch eine Textdatei als Anhang ranhängen??
Danke

[Bernhard Geyer]

Dazu solltest Du (Simple)-MAPI verwenden. In der JEDI gibt es dazu Funktionen/Klassen die AFAIK auch mit Outlook Express gehen.

[Klaus D.]

MAPI ....? ist für mich Neuland.
Danke für deinen Tipp. Ich werd mich mal schlau machen.
Das liebste wäre mir ja, ohne einen Standard MailHandler eine Nachricht mit Anhang zu verschicken.
werft doch bitte mal'n paaaar Stichworte ein wie man das realisieren könnte oder weiß
jemand ne'n Link wo ich Bsp.-Quelltexte bekomme so als Lernhilfe.
Danke und ein schönes WE.
Klaus

[Bernhard Geyer]

Zitat von Klaus D.:

Das liebste wäre mir ja, ohne einen Standard MailHandler eine Nachricht mit Anhang zu verschicken.

Du meinst direkt ohen Einbeziehung von Mail-Client auf Rechner. Dazu könntest Du z.B. direkt einen SMTP-Client in dein Programm
integrieren und die Mail direkt abschicken. Jedoch mußt du (wenn der User nicht eingeben soll bezüglich Mail-Configuration) von dir aus ein Mail-Konto bereitstellen über das diese Mails dann verschickt werden.

Zitat von Klaus D.:

werft doch bitte mal'n paaaar Stichworte ein wie man das realisieren könnte oder weiß
jemand ne'n Link wo ich Bsp.-Quelltexte bekomme so als Lernhilfe.
Danke und ein schönes WE.
Klaus

In der Jedi-Distribution wird vermutlich auch ein Beispiel vorhanden sein bzw. es ist in der Hilfe erklärt.