Mengirim Email dengan SMTP Embarcadero Delphi 10.3 Rio

Pengertian SMTP dari wikipedia seperti ini

Simple Mail Transfer Protocol adalah standar Internet untuk transmisi email. Pertama kali didefinisikan oleh RFC 821 pada tahun 1982, diperbarui pada 2008 dengan penambahan SMTP yang diperluas oleh RFC 5321;

Tak peduli apakah kamu paham dengan pengertian itu atau tidak, yang penting inti dari SMTP adalah kalau versi saya, mengirim email di luar platform email, contohnya kita gak perlu akses gmail.com untuk mengirim email, kita bisa mengirim email dengan aplikasi kita sendiri.

Disini saya akan memberikan tutorial bagaimana cara untuk megirim email gmail via SMTP dengan bahasa delphi.

Ingat ya ini delphi 10.3 rio, delphi terbaru, jadi udah beda dari delphi yang kamu banyangkan.

Buka aplikasi delphi embarcadero

Buat inputan untuk form kirim emailnya seperti ini, gak sama juga gak masalah

Mengirim Email dengan SMTP Embarcadero Delphi 10.3 Rio

tambahkan komponen dibawah ini

Beri nama setiap tedit seperti berikut

Ini adalah procedurenya

procedure Gmail(username, password, totarget, subject, body: string);

var
  DATA: TIdMessage;
  SMTP: TIdSMTP;
  SSL: TIdSSLIOHandlerSocketOpenSSL;

begin

  SMTP := TIdSMTP.Create(nil);
  DATA := TIdMessage.Create(nil);
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

  SSL.SSLOptions.Method := sslvTLSv1;
  SSL.SSLOptions.Mode := sslmUnassigned;
  SSL.SSLOptions.VerifyMode := [];
  SSL.SSLOptions.VerifyDepth := 0;

  DATA.From.Address := username;
  DATA.Recipients.EMailAddresses := totarget;
  DATA.subject := subject;
  DATA.body.text := body;

  SMTP.IOHandler := SSL;
  SMTP.Host := 'smtp.gmail.com';
  SMTP.Port := 587;
  SMTP.username := username;
  SMTP.password := password;
  SMTP.UseTLS := utUseExplicitTLS;

  SMTP.Connect;
  SMTP.Send(DATA);
  SMTP.Disconnect;

  SMTP.Free;
  DATA.Free;
  SSL.Free;

end;

Tinggal panggil procedure tersebut dan jangan lupa untuk gmail harus membuka permission apps dengan https://www.google.com/settings/security/lesssecureapps

Tinggal klik aja