VB NET : Send Email

Kali ini penulis akan me-share source code untuk mengirim email via vb net,  untuk sample bisa digunakan untuk account gmail :

Berikut caranya :
1. Buka new Project
2. Tambahkan 7 Textbox pada Form, masing-masing beri name : TxtFrom, TxtTO, Txtusername, TxtPass, TxtSubject, TxtMessage, dan TxtAttach
2. Tambahkan 2 Button, masing-masing beri name : BtnSend dan BtnAttach
3. Ketik dan atau Ketik Source code berikut :

Public Class Form1

Dim message As System.Net.Mail.MailMessage
Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
Dim attach As System.Net.Mail.Attachment

Private Sub btnAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAttach.Click
Dim openDLG As New OpenFileDialog

openDLG.AddExtension = True
openDLG.ReadOnlyChecked = True
openDLG.Title = "Pilih File yang akan ditambahkan..."

If openDLG.ShowDialog = Windows.Forms.DialogResult.OK Then
txtAttachment.Text = openDLG.FileName
attach = New System.Net.Mail.Attachment(openDLG.FileName)
End If
End Sub

Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
message = New System.Net.Mail.MailMessage(txtfrom.Text, txtTO.Text, _
txtsubject.Text, txtmessage.Text)

If My.Computer.FileSystem.FileExists(txtattachment.Text) Then _
message.Attachments.Add(attach)
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(txtUserName.Text, _
txtPass.Text)

Try
smtp.Send(message)
MsgBox("Email berhasil dikirim", MsgBoxStyle.Information, "Sukses")
Catch exc As Net.Mail.SmtpException
MsgBox(Err.Description)
End Try
End Sub
   
End Class

Silahkan diperhatikan potongan source "Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
smtp.gmail.com merupakan nama host email dan 587 adalah port yang digunakan.
Untuk membuat send email dengan account selain gmail, silahkan rubah nama host dan port yang digunakan, nama host juga bisa menggunakan alamat IP.
Jika mengalami kegagalan saat mengganti dengan account selain gmail, coba rubah smtp.EnableSsl menjadi bernilai FALSE.

Selamat mencoba dan mengembangkan :D