1
Dim mail As New MailMessage()
2
mail.To = mailTo.Text
3
mail.From = "gghouse@163.com"
4
mail.Subject = mailSubject.Text
5
mail.BodyFormat = MailFormat.Text
6
mail.Body = mailBody.Text
7
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
8
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "xxx@163.com")
9
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "xxx的密码")
10![](/Images/OutliningIndicators/None.gif)
11
On Error Resume Next
12
SmtpMail.SmtpServer = "smtp.163.com"
13
SmtpMail.Send( mail )
14![](/Images/OutliningIndicators/None.gif)
15![](/Images/OutliningIndicators/None.gif)
之前有做过邮件发送的,不过下面第7行开始的东西对我来说还是新知识
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/None.gif)
4
![](/Images/OutliningIndicators/None.gif)
5
![](/Images/OutliningIndicators/None.gif)
6
![](/Images/OutliningIndicators/None.gif)
7
![](/Images/OutliningIndicators/None.gif)
8
![](/Images/OutliningIndicators/None.gif)
9
![](/Images/OutliningIndicators/None.gif)
10
![](/Images/OutliningIndicators/None.gif)
11
![](/Images/OutliningIndicators/None.gif)
12
![](/Images/OutliningIndicators/None.gif)
13
![](/Images/OutliningIndicators/None.gif)
14
![](/Images/OutliningIndicators/None.gif)
15
![](/Images/OutliningIndicators/None.gif)