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
我照范例写的但总是发不出取不知哪位道原因
...全文
98 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
问题解决要分的快签名

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧