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

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

成都创新互联公司总部坐落于成都市区，致力网站建设服务有成都网站设计、成都做网站、网络营销策划、网页设计、网站维护、公众号搭建、微信小程序定制开发、软件开发等为企业提供一整套的信息化建设解决方案。创造真正意义上的网站建设，为互联网品牌在互动行销领域创造价值而不懈努力！

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

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

如何用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

在visual studio中用VB如何编写收发邮件的码

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

Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 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.com")

'邮件优先级

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 如何用 jmail 接收邮件

抄个自己的回答：

建议你去看阿江翻译的JMAIL开发文档：

把这几个对象看一下：

POP3。MESSAGES，MESSAGE，ATTS，ATT

过程：

1。先用POP3对象连接邮件服务（当然你邮箱要开POP设置）并接受到MESSAGES

2。取到MESSAGES后，轮循到MESSAGE对象后。

3。对MESSAGE解析，得到邮件标题，内容，收发人，

4。如果有附件还要对ATTS对象轮循并解析（可以把附件存在本地或写链接）

MESSAGES是信件集

MESSAGE是单封信件

ATTS是附件集

ATT是单个附件

————————————————————————

发信分割线

————————————————————————

拿个别人的回答改了一下，俺VB几乎没用过，只会VB。NET

先注册DLL

然后VB代码如下:

Private Sub Command1_Click()

SendMail "标题", "正文"

End Sub

Sub SendMail(Optional ByVal sSubject As String, _

Optional ByVal sBody As String)

Dim jmail

Set jmail = CreateObject("jmail.Message")

jmail.Charset = "gb2312"

jmail.Silent = False

jmail.Priority = 1 '邮件状态,1-5 1为最高

jmail.MailServerUserName = "XXX" 'Email帐号

jmail.MailServerPassWord = "XXX" 'Email密码

jmail.FromName = "XXX" '发信人姓名

jmail.From = "XXX@XXX.XXXX" '发邮件地址地址

jmail.Subject = sSubject '主题

jmail.AddRecipient "XXX@XXX.XXXX" '收信人地址

jmail.body = sBody '信件正文

jmail.Send ("smtp.163.com") 'SMTP服务器，如smtp.sohu.com

Set jmail = Nothing

End Sub

全了。FromName 和FROM 建议都用邮件地址，不然有的邮箱不收的

VB如何接收邮件

Visual Basic 6中发送邮件的新方法

用VB6编写发送邮件的程序，有多种E-mail组件可供选择，如MAPIMessages、IIS4.0附带的CDONTS（NTS Collaboration Data Objects）以及许多第三方厂商开发的Email软件等。本文介绍用CDONTS开发VB下的邮件程序方法。

1. 确认已安装SMTP服务器

首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装Option Pack时被缺省安装的选项。如果SMTP服务器已安装，在System32目录下会存在一个名为cdonts.dll的文件。

2. 最简单的邮件发送程序

以下是一个最简单的邮件发送程序，它由me@hotmail.net向abc@263.net发出一封标题为“Title”、内容为“Hello”的E-mail：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTS.DLL")

ObjMail.Send "me@hotmail.net ", "abc@263.net","Title","Hello"

Set objMail=nothing

End Sub

3. 发送邮件附件

如果有附加的文件需要随同邮件传送，可以使用CDONTS的AttachFile方法：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTS.DLL")

With ObjMail

.From= "me@hotmail.net "

.To= "abc@263.net"

.Subject="Title"

.Body="Hello"

.AttachFile "c:\document\ sample.doc","sample.doc"

.Send

End With

Set objMail=nothing

End Sub

4. CDONTS组件常用属性和方法

CDONTS组件常用的属性和方法列举如下：

属性：

Version：返回CDONTS组件的版本号

MailFormat：邮件格式，1-普通文本类型；0-MIME类型

Cc：设置一个或多个参阅的邮件地址

From：邮件发送者的地址

To ：邮件接受者的地址

Subject：标题

Body：内容

BodyFormat：内容格式，1-普通文本；0-超文本

方法：

AttachFile：附加一个文件

AttachURL：附加一个地址

Send：发送邮件

5. 发送超文本格式的E-mail

你一定见到过许多使用超文本格式的E-mail，其中不但可以有图片、声音，甚至还可以嵌入动画。如果给你的朋友也发送一封这样的邮件，一定会带给他（她）意外的惊喜，因为这用一般的邮件发送程序是无能为力的。以下使用CDONTS组件发送一个HTML格式的邮件，其中包含有一幅名为sample.gif的图片，程序如下：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTS.DLL")

Dim strHTML as String

StrHTML=""

StrHTML= StrHTML+""

StrHTML = StrHTML +"

用CDONTS发送Email的例子"

StrHTML= StrHTML+"

"

StrHTML= StrHTML+"

以上例子嵌入了图片sample.gif

"

StrHTML= StrHTML+""

With ObjMail

.From= "me@hotmail.net "

.To= "abc@263.net"

.Subject="Title"

.Body=strHTML

.AttachURL "c:\mydata\sample.gif","sample.gif"

.BodyFormat=0

.EmailFormat=0

.Send

End With

Set objMail=nothing

End Sub

到这里，相信大家一定发现SMTP邮件处理的一个缺陷了。SMTP服务器接收你的输出消息，但并不做发送者名字和地址的验证，这本是由SMTP的异步发送机制所决定的，但有人可能别有用心地用它来假扮别人发送邮件！本文强烈建议各位切勿轻易试用，一旦让ISP知道你的行径，你的帐号极可能会被立即删除。

我用vb.net 弄了个jmail接收邮件，但是运行报错，请各位帮忙看下到底是什么问题，非常感谢！

JMAIL组件没有安装。或注册。。

最好下载4.4pro破解版安装。

或者regsvr32 注册下 dll文件

网页名称：vb.net收取邮件 vbs发送邮件
文章起源：http://hbruida.cn/article/hhpghg.html