用vb.net

Question

類代碼發送電子郵件： -

按Ctrl「鍵子」

Dim objemail As New SendEmail 
objemail.Mailto = txtEmail.Text 
objemail.email() 
LabelEmail.Text = "The email has been sent" 

指定的字符串不是一個電子郵件地址所要求的形式裏面

Imports Microsoft.VisualBasic 

Imports System.Net.Mail 

Public Class SendEmail 

    Private _Mailto As String = "" 
    Public Property Mailto() As String 
     Get 
      Return _Mailto 
     End Get 
     Set(ByVal value As String) 
      _Mailto = value 
     End Set 
    End Property 
    Private _MailSub As String = "" 
    Public Property MailSub As String 
     Get 
      Return _MailSub 
     End Get 
     Set(ByVal value As String) 
      _MailSub = value 
     End Set 
    End Property 
    Private _MailBody As String = "" 
    Public Property MailBody As String 
     Get 
      Return _MailBody 
     End Get 
     Set(ByVal value As String) 
      _MailBody = value 
     End Set 
    End Property 
    Private _Msg As String = "" 
    Public ReadOnly Property Msg As String 
     Get 
      Return _Msg 
     End Get 
    End Property 


    Public Sub email() 
     Try 
      Dim mail As New MailMessage() 
      Dim SmtpServer As New SmtpClient("smtp.gmail.com") 
      mail.From = New MailAddress("email@gmail.com") 
      mail.[To].Add(_Mailto) 
      mail.Subject = _MailSub 
      mail.Body = _MailBody 
      ' mail.Headers.Add("In-Reply-To", 1) 
      SmtpServer.Port = 587 
      SmtpServer.Credentials = New System.Net.NetworkCredential("email@gamil.com", "password") 

      SmtpServer.EnableSsl = True 
      SmtpServer.Send(mail) 

      _Msg = " Check Your Mail " 
     Catch ex As Exception 
      _Msg = ex.Message 
     End Try 

    End Sub 
End Class 

代碼，並且我試圖在「mailto」字段中使用vaild電子郵件，並刪除了proprities和fields中的所有內容，但尚未解決,,,幫助：D

任何靈魂？

Answer 1

您是否在用戶輸入值時驗證txtEmail.Text是否有效的電子郵件地址？ 如果沒有，請做。

您是否在email()方法中遇到一些異常？