我有一张带有许多电子邮件ID的excel表（也有重复项）。需要一个宏，可以从列表中选择不同的电子邮件ID，并通过一封邮件向所有邮件发送电子邮件。邮件主题必须包含日期，例如发布X日期为DD-MMM的报告。邮件正文应该从同一个excel表中复制一系列单元格。有人可以帮我宏。
答案 0 :(得分：0)
如果已安装Outlook客户端，请查看此http://www.rondebruin.nl/win/s1/outlook/bmail2.htm。它看起来几乎是开箱即用的答案，即使您仍然需要稍微进入它并调整邮件参数到您的案例
此代码主要涉及两个主要部分：
- 主要的Mail_Selection_Range_Outlook_Body过程，它设置Outlook应用程序的实例，创建一个电子邮件，填充参数（to，cc，subject，body ...）并发送电子邮件
- 由主过程调用的RangetoHTML实用程序函数，该函数发布要发送到HTML的Excel数据范围。结果将分配给正确呈现的主过程中的邮件项HTMLBody - 而不是Body - 属性
在运行主程序之前，您应该选择源数据范围。
出于测试目的，您可能会发现首先将“.send”邮件项属性替换为“.display”会有所帮助 - 这将导致主要子显示准备好在屏幕上发送的邮件，而不是实际上只是发送它。