Mit diesem Code, kannst du Emails über einen gmailAccount senden. (http://ww.gmail.com)

---

        Dim Mymailmessage As New MailMessage()
        Try
            Mymailmessage.From = New MailAddress("ABSENDER")
            Mymailmessage.To.Add("EMPFÄNGER")
            Mymailmessage.Subject = ("BETREFF")
            Mymailmessage.Body = ("TEXT")
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("ABSENDER", "PASSWORT")
            SMTP.Send(Mymailmessage)
            TextBox2.Text = ""
            MsgBox("Nachricht wenn Mail gsesndet wurde", MsgBoxStyle.Information, "Information")
        Catch ex As Exception
             MsgBox("Nachricht wenn nicht Mail gsesndet wurde", MsgBoxStyle.Information, "Information")
        End Try

---