Mail Gönderme!

[sımone]

Delphide programda nasıl basit ve kısa yoldan yalnızca text içerikli bir mail gönderebilirim?Yardımlarınızı bekliyrm

[mania]

begin
if not SMTP.Connected then Exit ;

if Pos('@',MailAdres) = 0 then Exit ;
SMTP.Host := '127.0.1';
SMTP.Port := '25';
SMTP.UserID := 'xyz';
SMTP.PostMessage.FromName := 'Gönderici';
SMTP.PostMessage.FromAddress := 'deneme@deneme.com';
SMTP.PostMessage.Subject := 'Deneme mesajı';
SMTP.PostMessage.Body.Clear ;
SMTP.PostMessage.Body.Add('bu bir deneme mesajıdır');
SMTP.Connect ;
SMTP.PostMessage.ToAddress.Clear ;
SMTP.PostMessage.ToAddress.CommaText := MailAdres ;
SMTP.SendMail ;
end;