Hallöchen,
kurz und knapp:
folgenden simplen Code benutze ich zum senden von eMails.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
SMTP.Host:='
smtp.strato.de';
SMTP.Username:='
info@xxx.de';
SMTP.Password:='
xxxxxxxxx';
SMTP.Port:= 25;
idMessage.From.Text := '
Name';
idMessage.From.Address:= '
info@xxx.de';
idMessage.Sender.Text := '
info@xxx.de';
idMessage.Recipients.EMailAddresses := '
zzz@yyy.de';
idMessage.Subject := '
Test';
idMessage.Body.Clear;
idMessage.Body:=Memo1.Lines;
SMTP.Connect;
SMTP.Send(idMessage);
SMTP.Disconnect;
end;
Ich verwende die
Indy 9 Kompos. Leider werden Umlaute nur mit Fragezeichen dargestellt.