-1

クラスコード:-

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

ctrl「ボタンサブ」内のコード

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

指定された文字列は、電子メール アドレスに必要な形式ではありません。「mailto」フィールドで有効な電子メールをインティライズしようとしましたが、プロパティとフィールドのすべてを削除しましたが、まだ解決されていません,,, Help :D

何かソウルション??

4

1 に答える 1

0

txtEmail.Textユーザーが値を入力するときに有効な電子メール アドレスを検証しますか? そうでない場合は、実行してください。

メソッドで例外が発生しますemail()か?

于 2012-04-09T04:50:14.683 に答える