VisualBasic6中发送邮件的新方法

VisualBasic6中发送邮件的新方法,第1张

VisualBasic6中发送邮件的新方法,第2张

用VB6编写邮件程序时有很多邮件组件可供选择,如IIS4.0附带的MAPIMessages、CDONTS (NTS协作数据对象),以及很多第三方厂商开发的邮件软件。介绍了用CDONTS在VB中开发邮件程序的方法。

1.确认SMTP服务器已安装
首先,您必须确认SMTP服务器已安装在IIS服务器上,这是安装Option Pack时的默认选项。如果安装了SMTP服务器,System32目录中将有一个名为cdonts.dll的文件。

2.最简单的邮件发送者
下面是最简单的邮件发送者,Me@hotmail.net向abc@263.net发送了一封以“你好”为标题和内容的邮件:
private subcmd sendmail _ click()
dimobjmail as object
Set objMail = CreateObject(" CD fonts。DLL")
ObjMail。发送"me@hotmail.net "," abc@263.net "," Title "," Hello "
Set objMail = nothing
End Sub

3.发送邮件附件
如果有需要随邮件发送的附件,可以使用CDONTS的AttachFile方法:
private subcmd sendmail _ click()
dimobjmail as object
setobjmail = createobject(" CD fonts . dll ")
With ObjMail
。来自= "me@hotmail.net "
。To= "abc@263.net"
。Subject="Title"
。Body="Hello"
。attach file " c:\ document \ sample . doc "," sample.doc"
。send
End With
Set obj mail = nothing
End Sub

4.CDONTS组件的常用属性和方法
CDONTS组件的常用属性和方法如下:
属性:
版本:返回CDONTS组件的版本号
MailFormat:邮件格式,1-普通文本类型;0-MIME类型
抄送:设置一个或多个电子邮件地址
发件人地址
收件人地址
主题:标题
正文:内容
正文格式:内容格式,1 0-超文本

方法:
AttachFile:附加文件
AttachURL:附加地址
Send:发送邮件。

5.用超文本格式发邮件
你一定见过很多超文本格式的邮件,里面不仅可以有图片、声音,还可以嵌入动画。如果你给你的朋友发一封这样的邮件,一定会给他(她)带来意想不到的惊喜,因为普通的邮件发送程序是你无能为力的。下面的CDONTS组件用来发送一条HTML消息,图片名为sample.gif,程序如下:
private subcmd sendmail _ click()
dimobjmail as object
set objmail = createobject(" CD fonts . dll ")
dimstrtml as string
str HTML = " "
str HTML = str HTML+" "
str HTML = str HTML+"[/br

"
strtml = strtml+"
上面的示例嵌入了图像sample.gif

"
str html = str html+" "
With obj mail
。来自= "me@hotmail.net "
。To= "abc@263.net"
。Subject="Title"
。Body=strHTML
。attacherl "c: \ mydata \ sample.gif "," sample.gif"
。bodyformat = 0
。emailformat = 0
。send
end with
SMTP obj mail = nothing。SMTP服务器接收您的外发邮件,但不验证发件人的姓名和地址。这是SMTP的异步发送机制决定的,但是可能有人别有用心的利用它来冒充别人发送邮件!这篇文章强烈建议你不要轻易尝试。一旦ISP知道了你的行为,你的账号很可能会立刻被删除。

位律师回复
DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
白度搜_经验知识百科全书 » VisualBasic6中发送邮件的新方法

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情