作者：乔山办公网日期：
返回目录：excel表格制作
这个来事情，应该分2步，
1、导出全部电子邮件地址
2、群发邮件
导出全部邮箱，推荐这个工具：
htt-p://godtool.gitlab.io/zh-cn/email-finder/?f=dqun
这个工具怎么用？
1、ctrl+a 复制自全部Excel内容，ctrl+c复制这些内容
2、把复制的内容粘贴百到这个工具的输入框
3、然后你就能看到全部的邮箱地址了
网址的http写错了，手动复制，粘度贴到浏览器地址栏，改成http访问吧。
提取到全部的邮箱之后，复制那个邮箱列表，粘贴到收件人输入框，一知般就能把全部邮箱一次性批量插入，进行邮件群发了。
这个邮箱提取工具，除了道支持Excel，还支持从word、PDF文档提取邮箱、从网页抓取邮件，用法都是类似的。
步骤如下：
第一步：将公司的最新联系表zhidao进行备份，将不需要的信息删除，一般只需要姓名、岗位、邮箱，表头只有一行如下图：
第二步：将表格打开-另存为csv格式（回一般另存到桌面），如下：
第三步：将制作的csv表格导入foxmail，流程如下：
1、打开foxmai-点击工具选择-地址簿
2、工具-导入-csv文件（*.csv）-浏览-选择csv文件。
3、选择需要的信息导入（一般只需要选择姓名、电子邮件地址即可）。
4、清理导入的空白信息（由于表格处理不到位造成）。
第四步：分组（财务部、营运部等）。
1、第一种方法（适用组员比较少的）：手工新建组，一个一个拖入；
2、第二答种方法（适用组员比较多的）：新建组-分别制作不同组的CSV格式表，再分别导入到不同的组中即可。
可以通过以下方法解决问题：
1、直接将其添加到邮件的附件里面就可以了。
第一步：邮箱设置
配置好Microsoft outlook邮件客户端，确保能正常收发邮件，具体不再详述；
第二步：建立Excel文档
1、为保证后面的“邮件群发”宏代码正确运行，需要执行“工具→宏→Visual Basic编辑器”，将“工具→引用→Microseft Outlook*.0 Object Library（其中*为Microseft Outlook的版本号）选上”。
2、建立含不同邮件地址、主题、内容及附件的Excel文档，其中附件用插入超链接的方法完成。
第三步：编辑“邮件群发”宏 执行“工具→宏→Visual Basic编辑器”，单击“插入→模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它7a686964616fe4b893e5b19e361的代码窗口，并在输入以下代码后关闭代码窗口。
代码示例
Sub sendmail()
On Error Resume Next
Dim rowCount, endRowNo
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
Set objOutlook = New Outlook.Application
For rowCount = 2 ToendRowNo
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.To = Cells(rowCount, 1).Value
.Subject = Cells(rowCount, 2).Value
.Body = Cells(rowCount, 5).Value
.Attachments.AddCells(rowCount, 4).Value
.Send
End With
Set objMail = Nothing
Next
Set objOutlook = Nothing
End Sub