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 MailMessageWith 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.DefaultEnd With' Jika anda berada dibalik firewall, sesuaikan dengan SMTP server anda.'SmtpMail.SmtpServer = "smtp.elangmail.com"' Mengirim emailSmtpMail.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