从CSV附件发送自动电子邮件

每天我都会收到一封带有CSV/excel附件的电子邮件，其中包含电子邮件地址列表。我想自动获取这些地址，并向所有地址发送电子邮件模板。问题是，它必须在工作计算机上完成，所以我不能下载任何其他程序来帮助它。这需要使用本机Windows应用程序来完成。我尝试过使用VBA，但没有成功（我不是很精通）。任何帮助都将不胜感激。

如果要将解决方案分发到多台计算机，您可以开发VBA宏或COM加载项。基本上，您需要处理应用程序类的

NewMailEx

事件。此事件对Microsoft Outlook处理的每个接收项目激发一次。项目可以是几种不同的项目类型之一，例如，

邮件项目

，

会议项目

，或

共享项目

。

entryidscolection

字符串包含与该项对应的条目ID。

NewMailEx

事件在新邮件到达收件箱时以及客户端规则处理发生之前触发。您可以使用

entrydcollection

数组中返回的条目ID调用

名称空间.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打开文件并读取其内容，以便根据保存的模板创建新项目。请在以下文章中阅读有关这些操作的更多信息：