Mengirim Email Sederhana dengan Delphi

Mengirim AUTO email dengan delphi dapat dilakukan dengan mudah. Ayo ikuti saja tutorial ini.

Pertama tama siapkan form yang berisi : TIdSMTP dan TIdMessage

Ubah nama dengan :
TIdSMTP dengan SMTP
TIdMessage dengan MailMessage

Kemudian berikan setting seperti gambar dibawah ini

Isikan alamat smtp dengan IP Server
dan alamat email dengan alamat email anda.

Kemudian buat text box untuk mengisi alamat penerima, subject dan isi email

Dalam button Kirim Email berikan perintah :

procedure TFormKIRIMEMAIL.Button1Click(Sender: TObject);
begin

  MailMessage.From.Address := Edit1.Text;
  MailMessage.Sender.Address := Edit1.Text;
  MailMessage.ReceiptRecipient.Address := Edit2.Text;
  MailMessage.Subject := Edit3.Text;
  MailMessage.Body.Text := Memo1.Text;

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

  try
     try
       SMTP.Connect;
       SMTP.Send(MailMessage) ;
       ShowMessage('OK');
     except on E:Exception do
        ShowMessage('Error : ' + E.Message);
     end;
   finally
     if SMTP.Connected then SMTP.Disconnect;
   end;
             
end;

Sebagai contoh saya gunakan scr_3@......... sebagai penerima dan pengirim

Dan cek di program email :

Yeeay berhasil.


Silahkan di eksplorasi lagi dengan menggunakan database. Sudah ada tutorialnya disini : Klik Disini


Terimakasih,
Windy


UPDATE 7 DESEMBER 2017

Setelah saya membaca komentar, saya temukan solusi atas masalah ini, yaitu :

Sebelum membuat aplikasi ini, pastikan anda sudah mempunyai server email dan akun email terlebih dahulu. Kemudian masukkan alamat server email di tool SMTP.Host

atau

Masukkan alamat server email online (seperti Google, Yahoo)

contoh :

smtp.gmail.com

Kemudian masukkan user dan password sesuai di akun email anda.

Share this

Eunike Windy