Delphi MultiPlatform EMail Gönderimi

5 Ekim 2016 Çarşamba

Delphi Programlama dilinde daha önceden yazdigim ve ihtiyaç geregi lazim olan MultiPlatform (IOS, Android, Windows) E-mail gönderimi kodlaridir. umarim isinizi 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;