VB 6.0 如何批量发送邮件

Visual Basic 6中发送邮件的新方法

用VB6编写发送邮件的程序，有多种E-mail组件可供选择，如MAPIMessages、IIS40附带的CDONTS（NTS Collaboration Data Objects）以及许多第三方厂商开发的Email软件等。本文介绍用CDONTS开发VB下的邮件程序方法。

1 确认已安装SMTP服务器

首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装Option Pack时被缺省安装的选项。如果SMTP服务器已安装，在System32目录下会存在一个名为cdontsdll的文件。

2 最简单的邮件发送程序

以下是一个最简单的邮件发送程序，它由me@hotmailnet向abc@263net发出一封标题为“Title”、内容为“Hello”的E-mail：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTSDLL")

ObjMailSend "me@hotmailnet ", "abc@263net","Title","Hello"

Set objMail=nothing

End Sub

3 发送邮件附件

如果有附加的文件需要随同邮件传送，可以使用CDONTS的AttachFile方法：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTSDLL")

With ObjMail

From= "me@hotmailnet "

To= "abc@263net"

Subject="Title"

Body="Hello"

AttachFile "c:\document\ sampledoc","sampledoc"

Send

End With

Set objMail=nothing

End Sub

4 CDONTS组件常用属性和方法

CDONTS组件常用的属性和方法列举如下：

属性：

Version：返回CDONTS组件的版本号

MailFormat：邮件格式，1-普通文本类型；0-MIME类型

Cc：设置一个或多个参阅的邮件地址

From：邮件发送者的地址

To ：邮件接受者的地址

Subject：标题

Body：内容

BodyFormat：内容格式，1-普通文本；0-超文本

方法：

AttachFile：附加一个文件

AttachURL：附加一个地址

Send：发送邮件

5 发送超文本格式的E-mail

你一定见到过许多使用超文本格式的E-mail，其中不但可以有、声音，甚至还可以嵌入动画。如果给你的朋友也发送一封这样的邮件，一定会带给他（她）意外的惊喜，因为这用一般的邮件发送程序是无能为力的。以下使用CDONTS组件发送一个HTML格式的邮件，其中包含有一幅名为samplegif的，程序如下：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTSDLL")

Dim strHTML as String

StrHTML=""

StrHTML= StrHTML+""

StrHTML = StrHTML +"

用CDONTS发送Email的例子"

StrHTML= StrHTML+"

"

StrHTML= StrHTML+"

以上例子嵌入了samplegif

"

StrHTML= StrHTML+""

With ObjMail

From= "me@hotmailnet "

To= "abc@263net"

Subject="Title"

Body=strHTML

AttachURL "c:\mydata\samplegif","samplegif"

BodyFormat=0

EmailFormat=0

Send

End With

Set objMail=nothing

End Sub

到这里，相信大家一定发现SMTP邮件处理的一个缺陷了。SMTP服务器接收你的输出消息，但并不做发送者名字和地址的验证，这本是由SMTP的异步发送机制所决定的，但有人可能别有用心地用它来假扮别人发送邮件！本文强烈建议各位切勿轻易试用，一旦让ISP知道你的行径，你的帐号极可能会被立即删除

很多的时候我们需要发送同一样的一份邮件给不同的qq好友，怎么进行设置呢如果是单个的发送就会需要很多的时间，怎么办呢QQ邮箱怎么批量发送下面我们一起来看看详细的内容介绍。

QQ邮箱如何批量发送

QQ邮箱最新版下载:QQ邮箱iPhone版|QQ邮箱Android版

1、点击如入qq邮箱，然后点击写信。

2、填写好主题以及内容之后，就点击收件人下方的分别发送，就可以在右边选择收件人了。

3、选择好之后在点击发送就ok了，邮件就会批量发送了。

要用VBA，参考程序

Set newItem = olAppCreateItem(olMailItem)

newItemTo = "邮件地址"

newItemSubject ="abc"

newItemBody = "abc"

newItemSend

步骤1　在刚刚建立的主文档中，选择“工具|邮件合并”，调出“邮件合并”工具栏。

步骤2　选择“打开数据源”，将建立的信息导进来。

步骤3　将光标置于表格内要插入相应项目的位置，单击“插入域”，调出“插入合并域”对话框，在“数据库域”中选择插入的字段要保证与电子表格标题行中的一一对应，直至 *** 作完毕。

步骤4　点击“合并域”选项

步骤5　最后需要发邮件通知相关人员。选择“合并到电子邮件”，打开该对话框，在“收件人”处选择“E-mail”，可以选择以附件或纯文本的方式发送。“发送记录”选择“全部”，此时点击“确定”。

以上就是关于VB 6.0 如何批量发送邮件全部的内容，包括:VB 6.0 如何批量发送邮件、QQ邮箱如何批量发送 QQ邮件批量发送方法、如何用excel批量发邮件自动发邮件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！