Hier meine procedure die ich immer verwende ...
Achtung! sie funktioniert nur bei einigen anbietern manche verweigern den login, ich weiss nicht warum...
Manche haben auch
smtp after
pop3 z.B. web.de da muss man sich erst per
pop3 anmelden bevor man per
smtp was verschicken kann....
Delphi-Quellcode:
procedure SendMail(Text,ATo:
string);
var pw:
string;
IdMsgSend: TIdMessage;
begin
IdSMTP1.AuthType := atDefault;
IdSMTP1.Username := '
User1';
IdSMTP1.Password := '
geheim';
IdMsgSend := TIdMessage.Create;
with IdMsgSend
do
begin
Body.Text := Text;
From.Text := '
test@hotmail.de';
ReplyTo.EMailAddresses := '
test@hotmail.de';
Recipients.EMailAddresses := ATO;
{ To: header }
Subject := '
Test Betreff';
{ Subject: header }
Priority := mpHighest;
{ Message Priority }
end;
IdSMTP1.Host := '
smtp.hotmail.de';
//bin ich mir nicht sicher wie die adresse it nur als beispiel
IdSMTP1.Port := 25;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMsgSend);
finally
IdSMTP1.Disconnect;
end;
end;
Und dann war da noch der junge Mann ....
... der unbedingt Schriftsteller werden wollte.
Er wollte Emotionen wecken und die Leute zum weinen bringen.
Sein Traum wurde wahr, er verfasst heute die Fehlermeldungen bei Microsoft!