Başlangıç > Kodlar > Delphi ile email göndermek

Delphi ile email göndermek

Cogumuzun yazdigi programlarda en önemli ihtiyaclardan biri de gerekli yerlere gerekli mesajlarin iletilebilmesidir. Bunuda en saglikli olarak email yolu ile yapabiliriz. Delphide bir email adresine email göndermek asagidaki sekille yapilir.

NMSMTP componentini formun üstüne yerlestirin;

Öncelikle Mail server`a baglanmaniz gerekmekte bunun icin:

SMTP.Host := 'mail.isbank.com.tr'

SMTP.Connect;

Daha sonra NMSMTPnin OnConnectine asagidaki komutlari size uygun sekilde yazin;

procedure TMainForm.SMTPConnect(Sender: TObject);

begin

with SMTP.PostMessage do begin

FromAddress := 'deneme@deneme.com';
ToAddress.add('admin@ergenchukukgrubu.com');

subject := 'Konu';

body.add('Bu bir deneme mesajidir');

end;

SMTP.SendMail;

end;

En son olarakta OnSuccess `e asagidakileri yazin;

procedure TForm1.SMTPSuccess(Sender: TObject);
begin
SMTP.disconnect;
end;

Not : Alıntıdır.

Reklamlar
Kategoriler:Kodlar Etiketler:, , ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: