|
发表于 14-5-2007 03:18 PM
|
显示全部楼层
System.net.Mail
Public Sub SendMail(ByVal strToEmail As String, ByVal strToName As String, ByVal strFromEmail As String, ByVal strFromName As String, ByVal strSubject As String, ByVal strBody As String, ByVal blnIsbodyHTML As Boolean, ByVal Priority As MailPriority, Optional ByVal AttachmentFile As Attachment = Nothing)
Dim objmail = New MailMessage(New MailAddress(strFromEmail, strFromName, System.Text.Encoding.UTF8), New MailAddress(strToEmail, strToName, System.Text.Encoding.UTF8))
objmail.Subject = strSubject
objmail.SubjectEncoding = System.Text.Encoding.UTF8
objmail.Body = strBody
objmail.BodyEncoding = System.Text.Encoding.UTF8
objmail.IsBodyHtml = blnIsbodyHTML
objmail.Priority = Priority
If Not AttachmentFile Is Nothing Then
objmail.Attachments.Add(AttachmentFile)
End If
Dim smtpclient As SmtpClient
smtpclient = New SmtpClient
smtpclient.Port = Me.GetWebSettiongXmlFile("MailserverPort").ToString
smtpclient.Host = GetWebSettiongXmlFile("MailServer").ToString
smtpclient.Credentials = New System.Net.NetworkCredential(GetWebSettiongXmlFile("MailAdminID"), GetWebSettiongXmlFile("MailAdminPassword"))
smtpclient.Send(objmail)
End Sub |
|