群发电子邮件 带不同的附件

  

大家在做群发电子邮件时常常需要添加附件,但很多人都有电子邮件群发时带不同的附件的需求,下面就让一米软件来教教大家怎么去做。


群发电子邮件 带不同的附件


群发电子邮件带不同的附件操作步骤如下:


1、先准备好附件、邮件正文内容、合作商的邮件收件人和抄送人、附件所在的文件路径。


2、点击开发工具→表单控件,插入表单控件,修改控件名称为你自己想设置的名称。


3、点击开发工具→查看代码,点击视图→工程资源管理器,找到模块1,双击输入以下代码:


Sub Mygirl()

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

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

A =Application.WorksheetFunction.Clean(Worksheets("发送清单").Cells(rowCount, 3))

'创建objMail为一个邮件对象

Set objMail =objOutlook.CreateItem(olMailItem)

With objMail

'设置收件人地址

.To = Cells(rowCount, 1)

'设置抄送收件人地址

.CC = Cells(rowCount, 2)

'设置邮件主题

.Subject = Worksheets("正文").Cells(1, 2)

'设置邮件内容

.Body = Worksheets("正文").Cells(2, 2)

'设置附件

.Attachments.Add A

'自动发送邮件

.Send

End With

'销毁objMail对象

Set objMail = Nothing

Next

X = (endRowNo - 1) & "封邮件都发完了哦"

MsgBox X

End Sub


大功告成,测试一下,太棒了,所有邮件一次性搞定,均带有附件。

相关资讯

推荐软件