Kirim Email dengan Google Account Via Source Code

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Berikut ini adalah salah satu trik yang dapat digunakan untuk mengirim email dengan menggunakan google account dengan melalui source code. Dengan trik ini teman - teman bisa menambahkan fasilitas kirim email ke aplikasi yang teman - teman buat secara otomatis. Tapi sebelumnya pastikan bahwa teman - teman sedang terkoneksi internet dan memasukkan user & password account gmail dengan benar. Di bawah ini source code nya :

public fromEmail, cpassword, emailObj, emailConfig
fromEmail = "account_gmail_anda@gmail.com"
cpassword = "password gmail"
emailObj = CreateObject("CDO.Message")
emailObj.From = fromEmail
emailObj.To = "email_tujuan@yahoo.com"
emailObj.Subject = "Foxpro Mania"
emailObj.TextBody = "Ini adalah pesan yang akan dikirimkan"
emailConfig = emailObj.Configuration
emailConfig.Fields("http://schemas.microsoft.com/;
cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/;
cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/;
cdo/configuration/sendusing") = 2
emailConfig.Fields("http://schemas.microsoft.com/;
cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/;
cdo/configuration/smtpusessl") = .t.
emailConfig.Fields("http://schemas.microsoft.com/;
cdo/configuration/sendusername") = fromEmail
emailConfig.Fields("http://schemas.microsoft.com/;
cdo/configuration/sendpassword") = cpassword
emailConfig.Fields.Update
emailObj.Send

Yang perlu diperhatikan adalah variable fromEmail, silahkan isi variable tersebut dengan account dari gmail yang akan digunakan untuk mengirim email, variable cpassword isi dengan password dari account gmail yang digunakan. Sedangkan variable emailObj.To isikan dengan alamat email yang akan dikirimi pesan, variable emailObj.Subject merupakan isian yang akan ditampilkan sebagai subject pengirim dan variable emailObj.TextBody isikan dengan pesan yang ingin dikirimkan. 

Bila ingin mencoba contoh penerapannya dalam sebuah form silahkan download contoh formnya di link di bawah ini :

FrmSendEmail