批量Excel邮件发送：抄送多个收件人

在Excel中，利用VBA编程实现批量发送电子邮件是一项实用且常见的功能，特别是在处理工作中的批量通信需求时。在这个问题中，用户想要创建一个简单的VBA宏，以便在一个邮件中同时抄送给多个收件人。具体场景是，他们已经有了发送地址（存储在单元格Q2中）和需要抄送的地址（在R2和R3单元格中）。当前的问题是如何修改程序，使得发送邮件时能一次性将邮件抄送给R2和R3这两个地址，而不是像原始代码那样循环发送。 原始的VBA宏`Sub Send_Range()`可能类似于这样： ```vba Sub Send_Range() Dim sendTo As String, copyTo As Variant sendTo = Range("Q2").Value copyTo = Array(Range("R2").Value, Range("R3").Value) '假设数组形式存储抄送地址 '这里应有邮件发送的逻辑，使用sendTo作为收件人，copyTo中的每个地址作为抄送 '例如使用Outlook的MailItem对象： Dim mailItem As Object Set mailItem = CreateObject("Outlook.Application").CreateItem(0) mailItem.To = sendTo For Each addr In copyTo mailItem.CC = addr '添加抄送地址 Next addr '发送邮件的其他设置（如邮件主题、内容等） mailItem.Send End Sub ``` 为了实现一次性的抄送，你需要在`mailItem.CC`这一行，将`copyTo`数组的所有元素添加到抄送字段，而不是仅添加第一个元素。修改后的部分如下： ```vba mailItem.CC = Join(copyTo, ";") '使用Join函数连接地址，用分号分隔 ``` 这将把R2和R3的地址以分号分隔的形式添加到抄送栏，确保邮件同时抄送给两个收件人。记得在实际使用前，确保你的Excel环境支持VBA编程，并且安装了Office Outlook，因为VBA邮件功能通常依赖于Outlook的邮件组件。 执行这个修改后的宏后，点击发送按钮，将会一次发送邮件至Q2地址，并抄送给R2和R3地址，满足用户的需求。如果你对VBA编程或特定的Excel函数有进一步疑问，ExcelHome论坛提供了丰富的资源和支持，包括教程、视频和社区讨论，可以帮助你解决问题。