Question

每天我都会收到一封包含CSV / excel附件的电子邮件，其中包含电子邮件地址列表。我想自动获取这些地址并将电子邮件模板邮寄给所有这些人。问题是，它必须在工作计算机上完成，因此我无法下载任何其他程序来帮助它。这需要使用本机Windows应用程序来完成。我尝试使用VBA失败，但我并不精通。任何帮助将不胜感激。

Answer 1

如果要将解决方案分发到多台计算机，则可以开发VBA宏或COM加载项。基本上，您需要处理Application类的NewMailEx事件。对于Microsoft Outlook处理的每个收到的项目，将触发一次此事件。该项目可以是几种不同的项目类型之一，例如MailItem，MeetingItem或SharingItem。 EntryIDsCollection字符串包含与该项目对应的条目ID。当有新消息到达收件箱时，并且在发生客户端规则处理之前，将触发NewMailEx事件。您可以使用EntryIDCollection数组中返回的Entry ID来调用NameSpace.GetItemFromID方法并处理该项目。

Private Sub Applicaition_NewMailEx(ByVal EntryIDCollection As String)
    Dim mai As Object
    
    Set mai = Application.Session.GetItemFromID(strEntryId)
    MsgBox mai.Subject
    
End Sub

在事件处理程序中，您需要将附加的Excel文件保存到硬盘驱动器。然后，您可以使Excel自动打开文件并读取其内容，以基于保存的模板创建新项目。在以下文章中了解有关这些操作的更多信息：

通过CSV附件发送自动电子邮件

1 个答案: