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 SubGanti email dengan email GMail anda, username dan passwordnya. Dan tambahkan Attachment yang anda inginkan.
Projectnya dapat didonwload disini. Klik File - Download.
Semoga bermanfaat.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
