Send Email

[Tuperra]

In this example, let us create a simple application that would send an e-mail. Take the following steps:

Add three labels, three text boxes and a button control in the form.

Change the text properties of the labels to - 'From', 'To:' and 'Message:' respectively.

Change the name properties of the texts to txtFrom, txtTo and txtMessage respectively.

Change the text property of the button control to 'Send'

Add the following code in the code editor.
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Set the caption bar text of the form.
Me.Text = "tutorialspoint.com"
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("[email protected]", "password")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"

e_mail = New MailMessage()
e_mail.From = New MailAddress(txtFrom.Text)
e_mail.To.Add(txtTo.Text)
e_mail.Subject = "Email Sending"
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
MsgBox("Mail Sent")

Catch error_t As Exception
MsgBox(error_t.ToString)
End Try

End Sub