Subscribe:
Selamat Datang di Blog IT, Blog ini berisikan tentang Teknologi Informasi dan Komunikasi serta Gadge

Social Icons

Sample Text

Followers

Featured Posts

Senin, 10 Desember 2012

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 :


0 komentar:

Posting Komentar