小编Rig*_*ggy的帖子

我有几条信息需要处理。

1. 一个带有自动消息和 3 个“插入点”的 Outlook 电子邮件模板，我需要一个格式整洁的表格，其中包含插入的超链接并将其发送到保存的通讯组列表。
2. 包含 3 个工作表的 Master Excel 电子表格会自动更新表格中所需的所有信息（但不包含超链接）。
3. 3 个经过筛选的 Sharepoint 列表，其中包含表中所需的所有信息，并且包含所需的超链接。

无论如何，我需要一种简单的方法（比打开文件以及复制和粘贴更容易）自动生成包含上述所有信息的格式化电子邮件。我是一名实习生，所以这更多的是对我能力的测试，而不是节省个人时间，所以偏离要求并不是真正的选择。截至目前，我的老板正在打开电子邮件模板，然后一一打开 Sharepoint 列表，单击并拖动选择项，然后单独复制并粘贴每个列表。因此，让我从我尝试过的方法开始，然后继续讨论我遇到困难的地方。

因此，我的第一次尝试是在源 Excel 文件中工作并生成电子邮件，因为我之前已经通过一些更简单的自动化完成了此操作。

Sub GenerateEmail()
Const template As String = "--The path to the email template goes here--It works but I removed it for this post"
MakeEmail (template)
End Sub

Sub MakeEmail(templatePath As String)

'Not currently working but I'm not as concerned for it at the moment
'I havent been able to make it as far as this yet
'Dim today …