6,210
社区成员
发帖
与我相关
我的任务
分享
Imports System.Web.mail
private sub dd()
Dim mail As New MailMessage()
Try
mail.To = ReceiverEmail
mail.From = SenderEmail
mail.Subject = MailSubject
If bIsHtml Then
mail.BodyFormat = MailFormat.Html
Else
mail.BodyFormat = MailFormat.Text
End If
mail.Body = MailBody
SmtpMail.Send(mail)
Catch ex As Exception
Return False
End Try
end sub