Delphi MultiPlatform EMail Gönderimi

Tuncay ÖZER Tuncay ÖZER


Ekim 2016 Delphi (2) 0


Delphi MultiPlatform EMail Gönderimi

Delphi Programlama dilinde daha önceden yazdığım ve ihtiyaç gereği lazım olan MultiPlatform (IOS, Android, Windows) E-mail gönderimi kodlarıdır. umarım işinizi görür.

Delphi Programlama dilinde daha önceden yazdığım ve ihtiyaç gereği lazım olan MultiPlatform (IOS, Android, Windows) E-mail gönderimi kodlarıdır. umarım işinizi görür. 

var

IdMessage : TIdMessage;
IdSMTP: TIdSMTP;
IdSSL: TIdSSLIOHandlerSocketOpenSSL;
 
begin
IdMessage := TIdMessage.Create(nil);
IdSMTP := TIdSMTP.Create(nil);
IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSMTP.IOHandler := IdSSL;
IdSMTP.UseTLS := utUseImplicitTLS;
 
IdMessage.From.Address := '***********'; Gönderen mail
IdMessage.Recipients.EMailAddresses := email.Text;
IdMessage.Subject := konu.Text;
IdMessage.Body.Text := aciklama.Text;
 
IdSMTP.Host := 'smtp.gmail.com';
IdSMTP.Port := 465;
IdSMTP.Username := '************'; //kullan?c? ad?
IdSMTP.Password := '************'; // ?ifre
IdSMTP.Connect;
    IdSMTP.Authenticate;
   try
 
    IdSMTP.Send(IdMessage);
    finally
    if IdSMTP.Connected then IdSMTP.Disconnect;
    end;
    showmessage('Mailiniz gönderilmi?tir');
 
IdMessage.Free;
IdSSL.Free;
IdSMTP.Free;
end;