asp.net VB.net 发送邮件 Email

首先添加引用

Imports System.Net.Mail

Dim  client  As   New  System.Net.Mail.SmtpClient() 
client.Host  =   " smtp.163.com "  
client.UseDefaultCredentials  =   False  
client.Credentials  =   New  System.Net.NetworkCredential( " 自已的163邮件地址 " ,  " 密码 " ) 
client.DeliveryMethod  =  System.Net.Mail.SmtpDeliveryMethod.Network 
Dim  message  As   New  System.Net.Mail.MailMessage( " 自已的163邮件地址 " ,  " 收件人邮件地址 " ) 
message.Subject  =   " 主题测试 "  
message.Body  =   " asp.net发送邮件 "  
message.BodyEncoding  =  System.Text.Encoding.UTF8 
message.IsBodyHtml  =   True  
' 添加附件需将(附件先上传到服务器) 
Dim  data  As   New  System.Net.Mail.Attachment( " Upload\File1.rar " , System.Net.Mime.MediaTypeNames.Application.Octet) 
message.Attachments.Add(data) 
Try  
    client.Send(message) 
    Response.Write( " Email successfully send. " ) 
Catch  ex  As  Exception 
    Response.Write( " Send Email Failed. "   +  ex.ToString()) 
End   Try