Jump to content
Forum Windows-az.com

Avtomatik olaraq E-mail göndərmək


Delphi7

Recommended Posts

Avtomatik olaraq E-mail göndərmək

 

Bunun üçün 'TNMSMTP' komponentindən istifadə edəcəyik

procedure TForm1.Button1Click(Sender: TObject);

begin

NMSMTP1.Host := 'smtp.mailserver.com'; \\\\ misal üçün : smtp.live.com

NMSMTP1.UserID := 'windows-az.com'; \\\\ username burda yazılır

NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := '[email protected]'; \\\\ göndərənin ünvanı

 

NMSMTP1.PostMessage.ToAddress.Text := '[email protected]'; \\\\göndəriləcək ünvan

 

NMSMTP1.PostMessage.Body.Text := 'Məktubun metni';

NMSMTP1.PostMessage.Subject := 'Mətnin mövzusu';

NMSMTP1.SendMail;

end;

Link to comment
Share on other sites

  • 3 ay sonra...
Proqramlar telegramda

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...