本案例采用的方法是采用 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编辑过]