none
請教System.Net.Mail(VB2005) RRS feed

  • 問題

  •  Private Function SendMail(ByVal ToAdd As String) As Boolean
            'SendMail
            Dim madFrom As New System.Net.Mail.MailAddress(Me.txbAddFrom.Text) '寄件人
            Dim smt As New System.Net.Mail.SmtpClient() 'SMTP Server
            smt.Host = Me.txbSMTP.Text  '發信主機名稱
            Dim mms As New System.Net.Mail.MailMessage
            mms.From = madFrom
            mms.To.Add("leo@twdab.com.tw")
            mms.To.Add("may@twdab.com.tw")

            mms.Subject = Me.txbSubject.Text  '信件主旨
            mms.Body = Me.txbBody.Text '信件內容
            mms.IsBodyHtml = True

            Try
                smt.Send(mms)
                SendMail = True
            Catch ex As Exception
                Throw ex
            Finally
                mms.Dispose()
            End Try
        End Function

    問題一:

    上列程式碼共有二個收件者,發送完信件後

    每個收件者都會收到二封信

    如果有三個收件者,則每個收件者都會收到三封信

    請問應如何解決

    問題二:

    請問要如何判斷電子郵件地址字串是否為合法的電子郵件地址格式

    謝謝

     

    2007年2月4日 上午 11:34

解答

所有回覆