4 Jan 2012

Cara mengirim Email di Visual Basic

Dalam mengirim email di Visual Basic, kita perlu mereferensikan salah satu namespace dalam System.Web.Dll yaitu System.Web.Mail. Kita buat objek dari MailMessage dan menyesuaikan properti – properti yang ada sebelum mengirimkan email.
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.

2 comments:

  1. Empengnet: coba skali lgi,,, sesuaikan source code dengan subyek yg di buat....

    ReplyDelete
  2. minta project nya dong ... dari tadi gagal terus :3

    ReplyDelete

Garudayasa

Garudayasa