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.
