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![]()
11
On Error Resume Next
12
SmtpMail.SmtpServer = "smtp.163.com"
13
SmtpMail.Send( mail )
14![]()
15![]()
之前有做过邮件发送的,不过下面第7行开始的东西对我来说还是新知识
Dim mail As New MailMessage()2
mail.To = mailTo.Text3
mail.From = "gghouse@163.com"4
mail.Subject = mailSubject.Text5
mail.BodyFormat = MailFormat.Text 6
mail.Body = mailBody.Text7
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

11
On Error Resume Next12
SmtpMail.SmtpServer = "smtp.163.com"13
SmtpMail.Send( mail )14

15

浙公网安备 33010602011771号