Dim cmail As New Mail.MailMessage
Dim sqlcmd As New SqlClient.SqlCommand
Dim cn As SqlConnection
' cmail.To = AddressList.Trim
cmail.To = "yf.zhang@wongswtsz.com" '收信人
cmail.From = "postmaster@wongswtsz.com"'发送人
cmail.Subject = strSubject.Trim '邮件标题
cmail.Body = strBody.Trim '邮件内容
cmail.BodyFormat = MailFormat.Html '邮件格式
If cmail.To.Trim <> "" Then
SmtpMail.SmtpServer = "10.10.11.204" '邮件服务器
SmtpMail.Send(cmail) '邮件发送
End If