Sending an Email

Imports System.Net
Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim testMessage As New MailMessage
        Dim fromAddress As New MailAddress(TextBox1.Text)
        Dim objSmtpClient As New SmtpClient("smtp.gmail.com", 587) 'Try Port 25 or port 465 if 587 doesn't work. Each port and server is unique to the email server.
        objSmtpClient.UseDefaultCredentials = False
        objSmtpClient.Credentials = New NetworkCredential(TextBox1.Text, MaskedTextBox1.Text)
        objSmtpClient.EnableSsl = True

        testMessage.From = fromAddress 'Gmail overwrites this I think.
        testMessage.To.Add(TextBox2.Text)
        testMessage.Subject = TextBox3.Text
        testMessage.Priority = MailPriority.Normal
        testMessage.Body = RichTextBox1.Text
        testMessage.IsBodyHtml = False

        objSmtpClient.Send(testMessage)

    End Sub
End Class