HTML-Mail mit Delphi 4 über das Standard-Mail-Programm

HLPeter · Hält's aus hier Beiträge: 1

Hallo,

bin auf der Suche nach einer Freeware-Komponente, mit der man von Delphi 4 aus eMails sowohl im Text-Format, also auch im HTML-Format (also eine multipart-Mail) verschicken kann. Die Mail sollte über das Standard-Mailprogramm (also NICHT via SMTP) gesendet werden.
Komponenten für Delphi 4 zum verschicken von Mails über das Standard-Mailprogramm habe ich einige gefunden (AFQuickmail, Temail, ...). Ebenso erlauben die ICS-Komponenten das verschicken von multipart-Mails mit Delphi 4, aber eben nur mittels SMTP. Kennt jemand eine Komponente für mein Problem oder hat jemand eine Idee, wie das funktionieren könnte?
Mit shellexecute(...'mailto...'..) klappt das Versenden von html-Mails wohl nicht, oder?

Ich freue mich auf Antworten,
Ciao... Peter

J.Borchert · Beiträge: 150 WIN10 XE2 Professional

Habe über ShellExecute folgendes bereits getan:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function MemoToEmail(m:TMemo):string;
  var i:integer;
    begin for i:=0 to m.Lines.Count-1 do
            result:=result+m.Lines[i]+'%0D%0A';
    end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin ShellExecute(Application.Handle, 'open',
           PChar('mailto:'+ Edit1.Text +'?'+
                 'subject='+ Edit2.Text +'&'+
                 'body='+MemoToEmail(memo1)) ,nil, nil, sw_ShowNormal);
end;

Du müßtest eigendlich nur die HTML-Nachricht als Datei haben
und dann halt ins Memo oder Ähnlich holen.

Wenn Du eine Variante hast, dem ShellExecute ein Attachment unterzujubeln, lasse es mich wissen.

mfG Jürgen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme