Jika anda berada dibalik firewall, sesuaikan SmtpMail.SmtpServer dengan SMTP Server anda. Selanjutnya gunakan SmtpMail.Send untuk mengirim email tersebut.
Pertama buatlah imports terhadap System.Web.Mail:
imports System.Web.Mail
Selanjutnya buatlah tombol dan beberapa textbox sesuai dengan potongan kode berikut :
Dim
suratElektronik
As
New
MailMessage
With
suratElektronik
'Penjelasan mengenai istilah - istilah dibawah dapat anda baca di akhir artikel, tapi anda juga bisa menebak dari namanya
.
To
= txtEmailPenerima.Text
.From = txtEmailPengirim.Text
.Cc = txtCarbonCopy.Text
.Bcc = txtBlindCarbonCopy.Text
.Subject = txtJudulSurat.Text
.Body = txtIsiSurat.Text
'Menentukan prioritas email.
Select
Case
cboPrioritas.Text
Case
"Rendah"
.Priority = MailPriority.Low
Case
"Biasa"
.Priority = MailPriority.Normal
Case
"Tinggi"
.Priority = MailPriority.High
End
Select
.BodyEncoding = System.Text.Encoding.
Default
End
With
' Jika anda berada dibalik firewall, sesuaikan dengan SMTP server anda.
'SmtpMail.SmtpServer = "smtp.elangmail.com"
' Mengirim email
SmtpMail.Send(suratElektronik)
Penjelasan beberapa istilah dalam pengiriman email:
To : Alamat tujuan dari email yang akan anda kirim.
From : Alamat pengirim email.
Cc : Carbon Copy/Email yang anda kirim akan dikirim ke penerima lainnya dan akan tampak pada field Cc.
Bcc : Blind Carbon Copy/Sama dengan Carbon Copy tapi sang penerima tidak tahu itu, karena tdiak diperlihatkan(Blind).
Subject : Judul dari email anda.
Body : Isi surat anda.
Empengnet: coba skali lgi,,, sesuaikan source code dengan subyek yg di buat....
ReplyDeleteminta project nya dong ... dari tadi gagal terus :3
ReplyDelete