Registriert seit: 11. Mai 2005
Ort: Göppingen
1.238 Beiträge
Delphi 2007 Professional
|
Re: Über Programm eMail versenden D3
29. Apr 2006, 11:30
Delphi-Quellcode:
procedure TForm1.WebIE1Click(Sender: TObject);
var
mailtext : String;
begin
mailText := ' Text';
with SMTP do begin
DocInput.Headers.Add(' From', ' tobias@engineering-hocke.de');
DocInput.Headers.Add(' To', ' tobias@engineering-hocke.de'); // Hier sind nicht genug wirkliche Parameter.
DocInput.Headers.Add(' Subject', ' Test');
RemoteHost := ' mail';
end;
SMTP.SendDoc,,mailText;
end;
Hat die Fehleranzahl gesenkt.
Tobias It's not a bug, it's a feature.
|