使用EXCEL VBA代码自动群发带附件的邮件同时抄送给不同的人

使用EXCEL VBA代码自动群发带附件的邮件同时抄送给不同的人

Private Sub CommandButton1_Click()
'要能正确发送并需要对Microseft　Outlook进行有效配置
On Error Resume Next
Dim rowCount, endRowNo
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
Dim SigString As String
Dim Signature As String
'取得当前工作表与Cells(1,1)相连的数据区行数
endRowNo = Application.WorksheetFunction.CountIfs(Range(“A:A”), “<>”)
'创建objOutlook为Outlook应用程序对象
Set objOutlook = New Outlook.Application
'开始循环发送电子邮件，比如从第二行开始，第一行是标题
For rowCount = 2 To endRowNo
Set objMail = objOutlook.CreateItem(olMailItem) '创建objMail为一个邮件对象
'提取邮件签名
SigString = Worksheets(“Sheet1”).Cells(2, 5)
If Dir(SigString) <> “” Then
Signature = GetBoiler(SigString)
Else
Signature = “”
End If
With objMail
.To = Cells(rowCount, 1).Value '设置收件人地址（从Excel表的第一列"邮件地址"字段中获得）
.CC = Cells(rowCount, 2).Value '设置抄送人地址（从Excel表的第二列"邮件地址"字段中获得）
.Subject = Cells(rowCount, 3).Value '设置邮件主题（从Excel表的第三列"邮件主题"字段中获得）
.HTMLBody = Cells(rowCount, 4).Value '设置邮件内容（从Excel表的第四列"邮件内容"字段中获得）
.Attachments.Add Cells(rowCount, 5).Value '设置附件（从Excel表的第五列"附件"字段中获得）
.Send
End With
Set objMail = Nothing '销毁objMail对象
Next
MsgBox (“邮件全部发送完成！”)
Set objOutlook = Nothing '销毁objOutlook对象
End Sub
'提取邮件签名子函数
Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

第一步：在excel表中键入以下表格格式，填写好对应的内容，邮件附件内容填的是需要发送的附件地址。

第二步：插入命令按钮控件，进入设计模式，键入以上所有代码，保存。

第三步：配置outlook邮件发送环境，工具——引用——勾选outlook 15.0——确定。

第四步：点击命令按钮无反应，则回到VB编辑界面，点击图中三角形按钮，后显示邮件发送成功，完成。

使用EXCEL VBA代码自动群发带附件的邮件同时抄送给不同的人相关推荐

编写高效Excel VBA代码的最佳实践(一)
很多Excel VBA文章和图书都介绍过如何优化VBA代码,使代码运行得更快.下面搜集了一些使Excel VBA代码运行更快的技术和技巧,基本上都是实践经验的总结.如果您还有其它优化Excel VBA ...
调试Excel VBA代码
调试Excel VBA代码目录 1编译错误 2运行中出错或者运行结果错误 Excel VBA出错时给出的错误信息极少,需要充分利用各种工具来进行调试. 1.编译错误常见的编译错误有: 错误 ...
经典Excel VBA代码
经典Excel VBA代码 Application(Excel程序)篇 Application.EnableEvents = True / False '启用 / 禁用所有事件 Applic ...
Excel VBA代码学习
艺思网 http://www.edusrc.com 提供中学教学资料下载很多Excel VBA文章和图书都介绍过如何优化VBA代码,使代码运行得更快.下面搜集了一些使Excel VBA代码运 ...
转：经典Excel VBA代码
VBA基础在大家的关注声中即将告一段落了,有许多经典的VBA操作我们只是作了简要的介绍,想要熟练地使用VBA还需要大家慢慢地去消化和吸收,然后在实践中总结和提高.最后我们收集了常见的VBA代码以飨广大 ...
如何调试Excel VBA代码
Excel VBA出错时给出的错误信息极少,需要充分利用各种工具来进行调试. 1.编译错误常见的编译错误有: 错误的源代码格式,比如if后面缺少then:在编辑器中该行会变成红色. 错误的语法结构, ...
Excel VBA代码密码破解
1.查看VBA代码,有密码 2.破解密码: 2.1:修改文件名后缀,修改为压缩包格式 2.2:打开压缩包文件,找到文件:vbaProject.bin 2.3:把这个文件从压缩包中拖出来 2.4:打开 ...
Excel VBA: 自动生成巡检报表并通过邮件定时发送
目录环境说明逻辑结构效果说明及截图 ①. 安装SecureCRT ②. 自动巡检脚本 ③. 数据检索并FTP传送 ④. 安装Excel 2013 ⑤. 安装Serv-U ⑥. 自动生成图表并邮件 ...
13,excel vba 代码的简化和重复使用_初识对像
作为一个人. 我们知道人具有自己的属性和动作. 比如头发是黑色的. 眼晴是黑的. 牙可能也是黑的. 然后我们也会有做一些动作 , 比如放声歌唱, 或者吃一些东西. 对像就是具有自己属性和可以执行一些 ...
Excel VBA代码示例
'将选定的单元格区域里面的单元格的值拼接到一起,使用spliter分隔,默认使用逗号分隔 'mRange:单元格区域 'spliter:拼接两个单元格时的分隔字符串 Function joincell ...

使用EXCEL VBA代码自动群发带附件的邮件同时抄送给不同的人

使用EXCEL VBA代码自动群发带附件的邮件同时抄送给不同的人相关推荐

最新文章

热门文章