outlook点对点群发邮件
今天一米软件来教教大家outlook点对点群发邮件具体该怎么去做。
step1:先准备好附件、邮件正文内容、合作商的邮件收件人和抄送人、附件所在的文件路径。
Step2:点击开发工具→表单控件,插入表单控件,修改控件名称为你自己想设置的名称。
Step3:点击开发工具→查看代码,点击视图→工程资源管理器,找到模块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
上一条:群发邮件 工具
下一条:qq群监控引流效果怎么样
-
经费紧张外贸推广该如何做呢
如今在各大论坛和相关平台上流传着外贸推广技巧的帖子已经泛滥,其实归根结底其实都差不多,下面一米营销...
2016-12-26 14:31:17 阅读:7733 #网络营销#
-
外贸网络营销发展方向
“外贸网络营销”可以分为两大类,一类是“网络”,另一类是“营销”,二者的结合就是外贸网络营销。今天...
2016-12-28 10:52:25 阅读:8783 #网络营销#
-
外贸营销战略中存在的3个误区
外贸网络营销属于一种比较新的营销手段,所以在实施营销的过程中肯定避免不了误区,下面,一米营销软件为...
2017-01-03 11:29:54 阅读:7999 #网络营销#
-
软营销其实并不软
传统企业的营销方式是比较强势的,消费者被动接受企业的信息。传统的营销方式主要通过进行狂轰滥炸式的广...
2017-01-03 11:48:25 阅读:7798 #网络营销#
-
外贸网络营销是什么呢
外贸网络营销是一种新的经营方式,而我们所做的其实就是全方位的利用各种方式进行合理有效的网络营销并推...
2017-01-10 10:55:51 阅读:8599 #网络营销#
热门推荐
- 1怎么利用Facebook赚钱阅读:5172
- 2电子邮件营销的策略 阅读:4658
- 3邮箱群发不进垃圾箱阅读:5184
- 4群发邮箱平台哪个好 阅读:4866
- 5邮件推广中的具体营销步骤阅读:4922
- 6如何群发邮件但不被发现阅读:5857
- 7群发邮件如何不屏蔽阅读:3399
- 8邮件如何群发多个不同的人阅读:3506
- 9哪个邮箱群发效果好阅读:3328
- 10如何群发邮件阅读:3508
- 11电子邮件的营销方法 阅读:3331
- 12电子邮件杂志营销 阅读:3343
- 13电子邮件广告样式阅读:3434
- 14邮件批量发送软件 阅读:3545
- 15外贸邮件群发阅读:3248
- 16哪个邮箱群发效果好阅读:3253
- 17邮件推广的技巧阅读:3435
- 18邮件如何群发阅读:3275
- 19facebook 怎么增加好友阅读:3498
- 20如何可以群发邮件 阅读:3443
- 21邮件广告投放渠道有哪些阅读:3801
- 22批量群发邮件 阅读:3383
- 23怎么发广告邮件阅读:3627
- 24邮件批量发送系统使用方法阅读:3338
- 25群发邮件数量限制阅读:3909
- 26批量发送个性化邮件阅读:3450
- 27邮件怎么群发给很多人阅读:3277
- 28如何自动发广告邮件阅读:3610
- 29如何群发邮件阅读:75748
- 30邮件如何发给多人阅读:76066
标签更多+