VB.NET使用SMTP发送邮件
发布时间：2020-12-16 22:20:32 所属栏目：大数据 来源：网络整理
导读：’需要邮箱支持SMTP功能 Public Function SendMail( ByVal fstr As String , ByVal tstr As String ) As String Dim smtp As New System.Net.Mail. SmtpClient ( "smtp.qq.com" ,25) '发件t邮箱?身份Y验证,参?数y分?别e为a 发件t邮箱?登?录?名?和密码? smtp.
|
’需要邮箱支持SMTP功能
Public
Function
SendMail(
ByVal
fstr
As
String
,
ByVal
tstr
As
String
)
As
String
Dim
smtp
As
New
System.Net.Mail.
SmtpClient
(
"smtp.qq.com"
,25)
'发件t邮箱?身份Y验证,参?数y分?别e为a 发件t邮箱?登?录?名?和密码?
smtp.Credentials =
New
System.Net.
NetworkCredential
(
"888888888@qq.com"
,
"88888"
)
'创建邮件t
Dim
mail
As
New
System.Net.Mail.
MailMessage
()
'邮件t主题a
mail.Subject =
"邮件t主题a"
'主题a编码?
mail.SubjectEncoding = System.Text.
Encoding
.GetEncoding(
"GB2312"
)
'邮件t正y文?件t编码?
mail.BodyEncoding = System.Text.
Encoding
.GetEncoding(
"GB2312"
)
'发件t人?邮箱?
mail.From =
New
System.Net.Mail.
MailAddress
(
"841526269@qq.com"
)
'邮件t优?先级?
mail.Priority = System.Net.Mail.
MailPriority
.Normal
'HTML格?式?的?邮件t,为afalse则发送纯?文?本?邮箱?
mail.IsBodyHtml =
True
'邮件t内容Y
mail.Body =
"邮件t正y文?内容Y"
'添加收?件t人?,如?果?有D多个?,可以?多次?添加
mail.To.Add(
"8889@qq.com"
)
'定义?附?件t,参?数y为a附?件t文?件t名?,包含?路径?,推?荐?使1用?绝?对?路径?
'如?果?不?需要a附?件t,下?面?三y行D可以?不?要a
'Dim a As New System.Net.Mail.Attachment("附?件t文?件t")
''附?件t文?件t名?,用?于收?件t人?收?到?附?件t时显?示?的?名?称?
'a.Name = "附?件t文?件t名?"
''加入?附?件t,可以?多次?添加
'mail.Attachments.Add(a)
'发送邮件t
Try
smtp.Send(mail)
Return
"发送成功|"
Catch
ex
As
Exception
Return
"发送失败"
& ex.Message
Finally
mail.Dispose()
End
Try
End
Function
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |