Senin, 06 Maret 2017

Mengirim Auto Email dengan Delphi (Menggunakan Database)

00.42 Posted by Eunike Windy 2 Comments

Oke, postingan kali ini akan membahas tentang cara mengirimkan auto email melalui Delphi.

Disini saya akan langsung menggunakan database sebagai sample, sesuai dengan judulnya ya yaitu AUTO jadi kita tidak input data lagi.

Pertama, siapkan tabel databasenya : (Disini saya gunakan Tool Zeos Database, bila belum menggunakan kamu dapat pakai Tool Connection bawaan delphi)

Kemudian isi data dengan contoh seperti ini :

Nah, setelah ini mari kita tarik data ke Form Delphi hingga tampil seperti ini :
Tambahkan DBGrid untuk menampilkan data dan Button Kirim Email

Setelah selesai menyiapkan datanya, tambahkan Tools TidSMTP dan TidMessage

Yang perlu diisi di TidSMTP :
1. HOST : Server Email
2. Username : user email
3. Password : password email

Yang perlu diisi di TidMessage adalah
1. Sender : Isikan email address di kolom address, secara otomatis domain akan mengikuti sesuai alamat email.
2. From : (Optional) Kamu dapat mengisi apabila security di server email memiliki tingkat yang tinggi, karena menurut pengalaman pribadi bila kolom from ini tidak diisi maka akan error pada running program.

Database : AdoQueryData
Dbgrid : Dbgrid1
TidSMTP : SMTP
TidMessage : MailMessage
Datasource : DataSource1

Tambahkan List Penerima dengan klik tombol 3 titik

Setelah selesai, beri action di tombol kirim email

procedure TForm5.Button1Click(Sender: TObject);
begin
ADOQueryData.Open;
ADOQueryData.First;
while not ADOQueryData.Eof do
begin
    MailMessage.Body.Clear;
    MailMessage.Subject := ADOQueryDatasubject.Text;
    MailMessage.Body.Text := ADOQueryDataisi_email.Text;
    MailMessage.Recipients[0].Address := ADOQueryDataemail_penerima.Text;

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

    ADOQueryData.Next;
end;
end;

Kemudian jalankan program, dan tadaaa... auto email telah terkirim

Sekian dari saya, postingan selanjutnya akan membahas bagaimana membaca email dan kemudian memasukkannya kedalam database MySql.

Stay tune di blog ini yaa, ceileh

Terimakasih, silahkan komen kalau kurang jelas.