群发电子邮件 带不同的附件
大家在做群发电子邮件时常常需要添加附件,但很多人都有电子邮件群发时带不同的附件的需求,下面就让一米软件来教教大家怎么去做。
群发电子邮件带不同的附件操作步骤如下:
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
大功告成,测试一下,太棒了,所有邮件一次性搞定,均带有附件。
上一条:计算机考试电子邮件怎么群发
下一条:如何通过电子邮件群发工资条
-
邮件营销的效果分析
邮件营销的效果分析是邮件营销中非常重要的一个环节,有利于我们找到邮件营销效果不好的原因在哪里。 ...
2018-11-02 15:35:31 阅读:4802 #网络营销#
-
退信原因知多少
为什么总是能收到退信,我相信在这个问题困扰过不少人,事实上,返回信件的原因有很多,下面一米软件就来...
2018-11-05 16:38:18 阅读:4992 #网络营销#
-
邮件营销注意小细节
互联网时代下,邮件营销可以说是性价比最好的营销方式,这也是为什么大部分营销人乐此不疲的使用电子邮件...
2018-11-06 17:38:05 阅读:5264 #网络营销#
-
如何利用搜索引擎找到更多的客户邮箱
找客户邮箱的办法有很多,最快的肯定是通过各种辅助工具,但毕竟这些都是要成本的,这里一米软件就跟大家...
2018-11-06 18:04:46 阅读:8188 #网络营销#
-
facebook上怎么打广告
Facebook有十几亿用户,如果在上面登广告,你可以想象的任何群众都能看到你的产品。有的人比较喜...
2018-11-07 15:10:30 阅读:8696 #网络营销#
热门推荐
- 1怎么利用Facebook赚钱阅读:4595
- 2电子邮件营销的策略 阅读:4131
- 3邮箱群发不进垃圾箱阅读:4496
- 4群发邮箱平台哪个好 阅读:4301
- 5邮件推广中的具体营销步骤阅读:4441
- 6如何群发邮件但不被发现阅读:5277
- 7群发邮件如何不屏蔽阅读:3067
- 8邮件如何群发多个不同的人阅读:3193
- 9哪个邮箱群发效果好阅读:3028
- 10如何群发邮件阅读:3184
- 11电子邮件的营销方法 阅读:3019
- 12电子邮件杂志营销 阅读:3012
- 13电子邮件广告样式阅读:3123
- 14邮件批量发送软件 阅读:3196
- 15外贸邮件群发阅读:2947
- 16哪个邮箱群发效果好阅读:2948
- 17邮件推广的技巧阅读:3112
- 18邮件如何群发阅读:2969
- 19facebook 怎么增加好友阅读:3199
- 20如何可以群发邮件 阅读:3113
- 21邮件广告投放渠道有哪些阅读:3455
- 22批量群发邮件 阅读:3062
- 23怎么发广告邮件阅读:3291
- 24邮件批量发送系统使用方法阅读:3029
- 25群发邮件数量限制阅读:3545
- 26批量发送个性化邮件阅读:3138
- 27邮件怎么群发给很多人阅读:2973
- 28如何自动发广告邮件阅读:3267
- 29如何群发邮件阅读:75444
- 30邮件如何发给多人阅读:75693
标签更多+