Excel实例下载
  VBA  应用教程
    数据库SQL知识
设为首页
利用宏批量发送邮件
作者:bengdeng | 来源:Excel吧 | 时间:2006-11-02 | 阅读权限:游客 | 会员币:0 | 【

最近不少朋友遇到要用Excel来批量发送邮件的问题,今天我们就举个实例并利用宏来完成。

1、首先在工作表中建立通讯录,其中首行为标题列,1-4列分别为收件人地址、标题、内容与附件。

2、打开“工具→宏→Visual Basic编辑器”,单击“插入→模块”插入一个模块,在“工程”窗口中双击插入的模块,打开它的代码窗口,并输入以下宏:

Sub 批量发送邮件()

'要能正确发送并需要对Microseft Outlook进行有效配置

On Error Resume Next

Dim rowCount, endRowNo

'要正常运行下面这句,要将工具/引用中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上

Dim objOutlook As New Outlook.Application

Dim objMail As MailItem

'取得当前工作表与Cells(1,1)相连的数据区行数

endRowNo = Cells(1, 1).CurrentRegion.Rows.Count

'创建objOutlook为Outlook应用程序对象

Set objOutlook = New Outlook.Application

'开始循环发送电子邮件

For rowCount = 2 To endRowNo

'创建objMail为一个邮件对象

Set objMail = objOutlook.CreateItem(olMailItem)

With objMail

'设置收件人地址(从通讯录表的'E-mail地址'字段中获得)

.To = Cells(rowCount, 1)

'设置邮件主题

.Subject = Cells(rowCount, 2)

'设置邮件内容(从通讯录表的'内容'字段中获得)

.Body = Cells(rowCount, 3)

'设置附件(从通讯录表的'附件'字段中获得)

.Attachments.Add Cells(rowCount, 4)

'自动发送邮件

.Send

End With

'销毁objMail对象

Set objMail = Nothing

Next

以上代码在ExcelXP+Microseft Outlook XP中执行通过,你只要对“通讯录”和“批量发送邮件”宏代码稍作修改,就可以完成任何形式的大量邮件的发送。

文章录入:admin | 浏览次数:
相关评论(以下网友评论只代表其个人观点,不代表Excel吧的观点或立场)
相关信息

关于本站 | 留言本站 | 友情连接 | 后台管理
Copyright © 2005 - 2008 Excel吧 Inc. All Rights Reserved.
HxCms Ver9.0  闽ICP备06001689号
关闭此窗口