以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  狐表可以发HTML邮件发送与接收邮件内容了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43480)

--  作者:打错潇洒
--  发布时间:2013/12/8 16:19:00
--  狐表可以发HTML邮件发送与接收邮件内容了
本案例采用的方法是采用 jmail.dll 来实现的

首先先注册Dll先
如何注册请看 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=43117 【我个人的COM组件的注册方法】
说道这里大神门都应该知道了怎么用了

发邮件支持HTML格式,采用本格式邮件所需要的东西 基本ok 【备注:本插件由某大神提供,官方的dll没有试过】

上代码
【请先注册dll】
【收邮件 举例】
Dim jmail As Object 
     jmail = CreateObject("jmail.POP3")
JMail.Connect("邮箱帐号","密码","pop.163.com") 
Dim x As Integer = JMail.Count() 
Output.Show(x)
【以上代码输出 邮箱内的所有的邮件数目】
【发邮件 举例】
Dim jmail As Object 
     jmail = CreateObject("jmail.Message")
JMail.Charset ="gb2312" 
JMail.C 
JMail.From = "***@163.com"        \'发件人
JMail.AddRecipient "***@qq.com"  \'收件人 
JMail.MailServerUserName = "***"  \'邮箱帐号
JMail.MailServerPassWord = "***"  \'邮箱密码
JMail.subject = "测试一下"              \'标题
JMail.body = "123123123"             \'正文
JMail.Priority = 1                         \'优先度
JMail.Send "smtp.163.com"            \'SMTP(邮箱内可以查看到)
JMail.Close()                               \'发送并且清理

【这是一个标准的COM组件,调用好方便的】

以下内容只有回复后才可以浏览



[此贴子已经被作者于2013-12-9 9:16:06编辑过]

--  作者:逛逛
--  发布时间:2013/12/8 19:33:00
--  


--  作者:lsy
--  发布时间:2013/12/8 20:04:00
--  
顶好,顶好。
--  作者:yankunhao
--  发布时间:2013/12/9 8:33:00
--  
顶你,谢谢分享!
--  作者:飞
--  发布时间:2013/12/9 9:11:00
--  
我看看你邮件是怎么编辑的
--  作者:yyzlxc
--  发布时间:2013/12/9 9:33:00
--  
学习
--  作者:blackzhu
--  发布时间:2013/12/9 10:18:00
--  
我也看下
--  作者:wei0769
--  发布时间:2013/12/9 13:58:00
--  

这个是好东西,有可能会用得处


--  作者:hrc11
--  发布时间:2013/12/9 14:12:00
--  
顶好
--  作者:jiterp
--  发布时间:2013/12/9 14:12:00
--  
学习一下