VisualBasic6中发送邮件的新方法

用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知道了你的行为，你的账号很可能会立刻被删除。