版excel群发邮件,添加多个不同的附件

2022-07-18 07:43:20 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《版excel群发邮件,添加多个不同的附件》，欢迎阅读！
群发,附件,多个,添加,不同

配置好Microsoft outlook邮件客户端，确保能正常收发邮件，具体的

本文不再详述；

第二步：建立Excel文档

1、为保证后面的“邮件群发”宏代码正确运行，需要执行“开发工具→Visual Basic”，将“工具→引用→Microseft Outlook*.0 Object Library（其中*为Microseft Outlook的版本号）选上”。如下图

2、建立含不同邮件地址、主题、内容及附件的Excel文档。例如

第三步：编辑宏

执行“开发工具→Visual Basic”，单击“插入→模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并在输入以下代码后关闭代码窗口。

代码示例 Sub sendmail() On Error Resume Next Dim rowCount, endRowNo Dim objOutlook As New Dim objMail As MailItem Dim arr, n

endRowNo = Cells(1, 1). objOutlook = New For rowCount = 2 To endRowNo

Set objMail = (olMailItem) With objMail

.To = Cells(rowCount, 2).Value '邮件的地址 .Subject = Cells(rowCount, 3).Value '"邮件主题" .Body = Cells(rowCount, 4).Value '"邮件内容" arr = Split(Cells(rowCount, 5).Value, ";") For n = LBound(arr) To UBound(arr) . (arr(n)) '邮件的附件 Next .Send End With

Set objMail = Nothing Next

Set objOutlook = Nothing

MsgBox "邮件已发送", vbInformation End Sub 第四步：执行宏

执行“开发工具→宏”，选择“sendmail”，点击“执行”，就会自动发送邮件，并且在发送完成后提示“邮件已发送”。

(此处最好选择当前工作簿)

本文来源：https://www.dywdw.cn/5ae1cc5a1cd9ad51f01dc281e53a580217fc5042.html