Minggu, 12 Agustus 2012

Mengirim Email Attachment dengan VB.NET (Pemrograman Visual Basic .NET)


Setelah Berhasil Mengirim Email dan Attachment dengan menggunakan Bahasa Pemrograman C#.Berikut ini versi lainnya dalam Bahasa Pemrograman Visual Basic .NET, disertai contoh project.

Buat dahulu Project VB.NET baru, kemudian Tambahkan satu buah Button sehingga tampak sebagai berikut :


Tampilkan kode program, tambahkan Import berikut di bagian kode program paling atas :

Imports System.Net.Mail

Klik dua kali pada Button1, tambahkan Kode Program berikut ini yang berguna untuk mengirimkan email, bisa email teks, HTML atau disertai Attachment berupa Gambar, Dokumen ataupun ZIP.



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim mail As MailMessage = New MailMessage()
            Dim SmtpServer As SmtpClient = New SmtpClient("smtp.gmail.com")
            mail.From = New MailAddress("mapjogja@gmail.com")
            mail.To.Add("nuramijaya@gmail.com")
            mail.Subject = "Halo Boss"
            mail.Body = "Halo Boss, Salam Super"

            Dim Attachment As System.Net.Mail.Attachment
            Attachment = New System.Net.Mail.Attachment("D:\dokumen.doc")
            mail.Attachments.Add(Attachment)
            SmtpServer.Port = 587
            SmtpServer.Credentials = New System.Net.NetworkCredential("mapjogja", "xxx")
            SmtpServer.EnableSsl = True

            SmtpServer.Send(mail)
            MessageBox.Show("Email Terkirim")

        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub

Ganti email dengan email GMail anda, username dan passwordnya. Dan tambahkan Attachment yang anda inginkan.

Projectnya dapat didonwload disini. Klik File - Download.

Semoga bermanfaat.