Imports Microsoft.VisualBasic Public Class AAA Inherits System.Web.UI.Page Public Shared Sub SendEmail(.....) Dim strSMTP = ConfigurationManager.AppSettings("MailServer").ToString 'Define : SMTP Server Name Dim myMail As MailMessage Dim mySMTP As SmtpClient
myMail = New MailMessage() mySMTP = New SmtpClient()
......
try myMail.Priority = MailPriority.Normal myMail.Subject = strEmailSubject myMail.IsBodyHtml = True myMail.Body = strEmailBody & strEmailSig mySMTP.Host = strSMTP mySMTP.Send(myMail) catch ex As Exception 'XXXX Finally myMail.Dispose() If Not mySMTP.Host = "" Then mySMTP.Dispose() End If End Try End Sub End Class