Sending email via Google's GMail.

[met0555]

Sending email via Google's GMail.

Works on ASP.NET 2.0 and 3.5

Imports System.Net
Imports System.Net.Mail 
 
Dim loginInfo As New NetworkCredential("[email protected]", "yourGMailPassword")
Dim msg As New MailMessage(EmailFromTextBox.Text, EmailToTextBox.Text, EmailSubjectTextBox.Text, EmailBodyTextBox.Text)
msg.IsBodyHtml = True
StatusLabel.Visible = False
 
Try
    Dim client As New SmtpClient("smtp.gmail.com", 587)
    client.EnableSsl = True
    client.UseDefaultCredentials = false
    client.Credentials = loginInfo
    client.Send(msg)
Catch ex As SmtpException
    StatusLabel.Visible = True
    StatusLabel.Style.Add("color", "#CC0033")
    StatusLabel.Text = "The following error occurred: " + "<br /><br />" + ex.Message
    Return
End Try
 
    StatusLabel.Visible = True
    StatusLabel.Style.Add("color", "#009966")
    StatusLabel.Text = "Email sent successfully."