求vb收邮件源码，发邮件我会了，收邮件没学到

发邮件使用的jmail组件。
我要做一个网站的注册器，其中有一项就是验证邮箱，网站给邮箱发一封邮件，需要点邮件里面的网址去确认，现在我就差用vb收邮件，然后点击邮件里面的那个网址了。网上找了好久，都没找到收邮件的源码或者方法。

我也不会，帮顶

那就用webbrowser登入邮箱，再自动点击收件箱的第一封邮件，再通过获取网页源码方式获得激活网页链接

收邮件的代码比较麻烦，首先是与邮件服务器的通信模块，需要深入了解POP3 IMAP SSL这些概念；然后是基于MIME格式的邮件解析，这里面东西那就多了去了，光一个Content-Type就够你受的，还涉及到邮件传输最常用的两个编解码算法：BASE64和Quoted-Printable，对字符集的处理（不是VB默认的Unicode字符集）。
主要难点是SSL（某些邮件服务器安全性要求较高，现在的QQ邮箱也要求SSL了），这个网上相关的资料很少。然后就是对MIME格式的邮件解析。以前研究过一段时间，两个算法、字符集都已搞定，邮件分段解析做了一大半，SSL还没有头绪，所以只做出了一个半成品，可惜后来重装系统时给搞丢了，楼主要是有兴趣可以找个团队一起搞下，反正让我一个人做感觉工程量太耗大了。要是不想自己做也行，可以用下微软Office系列的OutLook软件，功能肯定比自己做强大多了，或者在此基础上做二次开发吧。

第一次的爱，始终无法轻描淡写。我对你，只有放弃，没有忘记。站在心碎的地方，轻轻打一个结，一种缝补，阻止伤痛再流出。在这个城市，做一道路过的风景，做一次匆匆的过客，只为了一个人。也许有一天，你回头了，而我却早已，不在那个路口。

楼主的发邮件怎么做到的，能详细解释下吗？

Private Sub Command1_Click()
SendMail "标题", "正文"
MsgBox "ok"
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 = "*******@163.com" *Email帐号
jmail.MailServerPassWord = "*******" *Email密码
jmail.FromName = "******" *发信人姓名
jmail.From = "***********" *发邮件地址地址
jmail.Subject = sSubject *主题
jmail.AddRecipient "*********@126.com" *收信人地址
jmail.body = sBody *信件正文
jmail.Send ("smtp.163.com") *SMTP服务器，如smtp.sohu.com
Set jmail = Nothing
End Sub
Private Sub Form_Load()
End Sub

也用jmail收 pop3方式

这个发邮件只能用163吗?
　　　　~~~~~~~~~~~~
　　　---毛茸茸的小尾巴~~
　　　　 ~~~~~~~~~~~　

我知道，肯定始终都是我自己在顶

我依然还在

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

19回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六