首先添加引用
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
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