 |
| |
【来源：视觉同盟】 【作者：fape】
一年之计在于春，在这春风拂面的季节里，笔者总要通过E－mail为亲友送去一份祝福。以往笔者都是使用Excel自动给所有亲友发送电子邮件，这种方法不仅方便快捷，而且这些邮件的收件人、主题、内容、附件都不相同。
一、建立亲友通讯录
在工作表中建立一个包含不同收件人、主题、内容和附件的亲友通讯录。
二、使用宏实现自动发送电子邮件
打开“工具→宏→Visual
Basic编辑器”，单击“插入→模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并输入以下宏：
Sub
全自动发送邮件()
"要能正确发送并需要对Microseft Outlook进行有效配置
On Error
Resume Next
Dim rowCount, endRowNo
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
(责任编辑：luwei) |
|
|
精彩生活 
