Public sun SendEmail(ByVal mailFrom As String, ByVal mailPassword As String, ByVal mailTo As String, ByVal mailSubject As String, ByVal mailBody As String, ByVal mailAttach As String)
Dim client As New System.Net.Mail.SmtpClient
'设置主机地址,比如smtp.163.com
client.Host = "smtp." & Microsoft.VisualBasic.Right(mailFrom, Len(mailFrom) - InStr(mailFrom, "@"))
client.Port = 25
client.Credentials = New System.Net.NetworkCredential(mailFrom, mailPassword)
Dim mailMessage As New System.Net.Mail.MailMessage()
mailMessage.From = New System.Net.Mail.MailAddress(mailFrom)
mailMessage.To.Add(mailTo)
mailMessage.Subject = mailSubject
mailMessage.SubjectEncoding = System.Text.Encoding.GetEncoding(936)
mailMessage.Body = mailBody '主体内容
mailMessage.BodyEncoding = System.Text.Encoding.GetEncoding(936)
mailMessage.IsBodyHtml = False '是否为Html代码形式发送
If Not (mailAttach Is Nothing OrElse mailAttach = String.Empty) Then
Dim data As New System.Net.Mail.Attachment(mailAttach, System.Net.Mime.MediaTypeNames.Application.Octet)
Dim disposition As System.Net.Mime.ContentDisposition
disposition = data.ContentDisposition
disposition.CreationDate = System.IO.File.GetCreationTime(mailAttach)
disposition.ModificationDate = System.IO.File.GetLastWriteTime(mailAttach)
disposition.ReadDate = System.IO.File.GetLastAccessTime(mailAttach)
mailMessage.Attachments.Add(data)
End If
client.Send(mailMessage) '发送
end sub
我用以上代码进行发送信息。但不知道如何获取错误信息。比如当我发件账号有误时,要提示发件账号有误等。应该怎样获取。
|