JMail4.3如何发邮件编程?

cqhydz 2003-05-14 04:05:30
Dim jmail11 As New JMail.Message
jmail11.Logging = True
jmail11.Subject = "sss"
jmail11.Body = "ssssssssssssssss"
jmail11.AddRecipient ("XXXXX@163.com")
jmail11.Send ("XXXXX:XXXXX@smtp.163.com")'在这里出错,意思无法发送
Set jmail11 = Nothing
我照范例写的但总是发不出取不知哪位道原因
...全文
10 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lihonggen0 2003-05-14
使用JMail组件

Jmail具有以下特点:

(1)可以发送附件;
(2)详细日志能力,便于你查看问题所在;
(3)设置邮件发送的优先级;
(4)支持多种格式的邮件发送,比如说以HTML或者TXT的方式发送邮件。这是个免费的组件。
(5)密件发送/(CC)抄送/紧急信件发送能力;
(6)最关键的就是--免费的组件,不必发钱,所以非常值得使用。

网站:http://www.dimac.net/,目前版本是4.3



JMail组件的常用属性:

Body   邮件正文

Logging   调用Log记录,供Debug用

Priority   邮件的优先程度,从1到5

Sender   发件人

ServerAddress   SMTP服务器的IP地址或名称

Subject   邮件标题



JMail组件的常用方法:

AddAttachment   指定附件文件

AddRecipient   加入一个收件人

AddRecipientBCC   隐藏的副本抄送,只有发件人和BCC收件人知道。

AddRecipientCC   副本抄送

Execute   送出邮件



了解必要的属性及方法后,余下的部分接收使用者输入的Email,当成参数传给AddRecipient方法,然后根据需要填上其余属性,最后以Execute方法寄出。例如:

Dim JMail

JMail = Server.CreateObject("JMail.SMTPMail")

JMail.Logging = True

JMail.ServerAddress = "202.96.144.48"

JMail.Sender = "lihonggen0@163.com"

JMail.Subject = "subject."

JMail.Body = "body."

JMail.AddRecipient("bbbb@163.com")

JMail.AddAttachment("c:\go.gif")

JMail.Priority = 3

JMail.Execute()

JMail = Nothing

回复
cqhydz 2003-05-14
问题解决要分的快签名
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-14 04:05
社区公告
暂无公告