e-Mail schreiben

[phreax]

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 := '[e-mail]';
         ReplyTo.EMailAddresses := '[e-mail]';
         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;