NMSMTP1.Host:= 'mail.abc.com'
NMSMTP1.UserID:= 'Username'; //kullanıcı adı
NMSMTP1.Password:='......'//parolası
NMSMTP1.AutotecnitionType:=AtNone
try
NMSMTP1.Connect;
except;
showmessage('Sunucuya bağlanılamadı');
end;
NMSMTP1.PostMessage.FromAddress := isim@abc.com';
//kimden gönderilecek kısmı
NMSMTP1.PostMessage.ToAddress.Text := 'isim@msn.com';
//kime gönderilecek
NMSMTP1.PostMessage.Body.Text := memo1.text;//mesaj
NMSMTP1.PostMessage.Subject := 'edit1.text'; //mesajın konusu
try
NMSMTP1.SendMail;
except;
NMSMTP1.Disconnect; //sunucudan bağlantıyı kes
end;
www.technooweb.net
|
Del.icio.us
Digg
Facebook
Furl
Google
Blink
Simpy
Spurl
Y! MyWeb