Dim cmail As New Mail.MailMessage
Dim sqlcmd As New SqlClient.SqlCommand
Dim cn As SqlConnection
' cmail.To = AddressList.Trim
cmail.To = "[email protected]" '收信人
cmail.From = "[email protected]"'發送人
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