如何用VB.Net收发邮件

在Identity2.0里面封装了IIdentityMessageService接口，可以用来发送接收邮件。

创新互联公司服务项目包括新华网站建设、新华网站制作、新华网页制作以及新华网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，新华网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到新华省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

看看

Imports System.Threading.Tasks

Imports System.Security.Claims

Imports Microsoft.AspNet.Identity

Imports Microsoft.AspNet.Identity.EntityFramework

Imports Microsoft.AspNet.Identity.Owin

Imports Microsoft.Owin

Imports Microsoft.Owin.Security

public function SendAsync(message as IdentityMessage) as task

dim credentialUserName = "邮箱登录名"

dim sentFrom = "你的邮箱地址"

dim pwd= "邮箱登录密码";

dim client as new System.Net.Mail.SmtpClient("smtp服务器地址")

client.Port = 25'mtp邮件服务器端口

client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

client.UseDefaultCredentials = false

dim credentials as new System.Net.NetworkCredential(credentialUserName, pwd)

client.EnableSsl = true

client.Credentials = credentials

dim mail as new System.Net.Mail.MailMessage(sentFrom, message.Destination)

mail.Subject = message.Subject

mail.Body = message.Body

return client.SendMailAsync(mail)

end function

vb.NET中如何实现网址超级连接和邮箱连接

告诉你原理吧，要实现邮箱激活其实就是解决服务器上发邮件的问题，用户注册后，把用户状态默认成未激活，然后生成一个链接到一个页面，在那个页面加载时运行一个SQl语句把用户状态改成激活，然后再跳转到什么成功激活的页面就可以了，当然要传递一些有效的参数了；邮件激活的话就给注册时用户填写的邮箱发信就可以了，内容里面写上那个自动生成链接，怎么发邮件呢，建议你使用第三方控件Jmail不错，当然还有别的，如果用Smtp协议发的话20封左右就挂掉了···

找回密码一样，用户回答对密保问题的话就把密码给他发到邮箱就是了，归根结底还是发邮件···

补一句：源码的没有····

要一段VB.NET发邮件的代码

'创建发件连接,根据你的发送邮箱的SMTP设置填充

Dim smtp As New System.Net.Mail.SmtpClient("smtp.163点抗 ", 25)

'发件邮箱身份验证,参数分别为 发件邮箱登录名和密码

smtp.Credentials = New System.Net.NetworkCredential("用户名", "密码")

'创建邮件

Dim mail As New System.Net.Mail.MailMessage()

'邮件主题

mail.Subject = "邮件主题"

'主题编码

mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")

'邮件正文件编码

mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")

'发件人邮箱

mail.From = New System.Net.Mail.MailAddress("example@163点抗 ")

'邮件优先级

mail.Priority = System.Net.Mail.MailPriority.Normal

'HTML格式的邮件,为false则发送纯文本邮箱

mail.IsBodyHtml = True

'邮件内容

mail.Body = "邮件正文内容"

'添加收件人,如果有多个,可以多次添加

mail.To.Add("收件人地址")

'定义附件,参数为附件文件名,包含路径,推荐使用绝对路径

'如果不需要附件,下面三行可以不要

Dim a As New System.Net.Mail.Attachment("附件文件")

'附件文件名,用于收件人收到附件时显示的名称

a.Name = "附件文件名"

'加入附件,可以多次添加

mail.Attachments.Add(a)

'发送邮件

Try

smtp.Send(mail)

MessageBox.Show("发送成功")

Catch

MessageBox.Show("发送失败")

Finally

mail.Dispose()

End Try

分享名称：vb点虐 邮箱 vb收邮件
转载来于：http://scyanting.com/article/ddsdeji.html