问在程序开始时验证服务器中的电子邮件地址以继续

EN

 Imports System.Net
 Imports System.Net.Mail

 Public Class Form1

Sub sendMail()
    Try
        Dim AnEmailMessage As New MailMessage
        AnEmailMessage.From = New MailAddress(some email address)
        AnEmailMessage.To.Add(some email address)
        AnEmailMessage.Subject = ("ho")
        AnEmailMessage.Body = ("what")
        AnEmailMessage.Priority = MailPriority.High
        Dim SimpleSMTP As New SmtpClient("smtp.gmail.com")
        With SimpleSMTP
            .Port = 587
            .EnableSsl = True
            .Credentials = _
            New NetworkCredential(username,password)
            .Send(AnEmailMessage)
        End With
        MsgBox("Email sent to : emails ", MsgBoxStyle.Information)
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical)
       End Try
     End Sub
 End class