[VB 6]-Send Receive email

Sekarang kita akan membuat aplikasi sederhana untuk mengirim dan menerima email dengan Visual Basic 6.0. Kita harus menambahkan 2 library tambahan yang taidak terdapat pada Visual Basic 6.0. Library tersebut adalah OSPOP3.dll untuk menerima email dan vbSendMail.dll untuk mengirimkan email. Apabila belum punya library nya bisa di download di sini (library untuk Receive) dan di sini (library untuk Send).

Setelah men-download 2 library tersebut, unzip OSPOP3.dll dan vbSendMail.dll dari masing-masing zip file. Lalu masuk ke menu Run dan ketikkan “regsvr32 OSPOP3.dll” dan “regsvr32 vbSendMail.dll” pada command-line satu per satu.

Library sudah ada tinggal kita menggunakan dan memanggil dalam program.

Proses send email

Public WithEvents SendMail As vbSendMail.clsSendMail ’Buat object baru

Set SendMail = New clsSendMail

With SendMail

.SMTPHost = “[smtp_host]“
.From = “[email_pengirim]“
.FromDisplayName = “[nama_pengirim]“
.ReplyToAddress = “[alamat_email_balasan]“
.Recipient = “[email_penerima]“
.CcRecipient = “[email_cc]“
.BccRecipient =”[email_bcc]“
.Subject = “[subyek_email]“
.Message = “[isi_pesan]“
.Attachment = “[path_file_lampiran]“
.Send

End With

Proses receive email