Outlook 如何使用新电子邮件自动运行宏答案

【问题标题】：How I can run macro automatically with new email arrives in outlookOutlook 如何使用新电子邮件自动运行宏
【发布时间】：2015-05-10 04:06:01
【问题描述】：

我对 VBScript 和宏非常陌生。我有一个 vbscript，它将为电子邮件创建票证，但我每次都需要手动运行此脚本。为了使其自动化，我已将宏映射到 Outlook 中的“运行脚本”脚本规则，但是当规则运行时，它不会获取到达的邮件中的数据。它总是用以前的电子邮件创建票证。

我浏览了很多 VBscripts，但没有一个能将收到的邮件转换为票证。

如果有人遇到类似问题，请告诉我完整的解决方案。

Dim olApp As outlook.Application
Dim objNS As outlook.NameSpace
Dim objSourceFolder As outlook.MAPIFolder
Dim objDestFolder As outlook.MAPIFolder
Dim Msg As outlook.MailItem
Set olApp = outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set objSourceFolder = objNS.GetDefaultFolder(olFolderInbox)
Set objDestFolder = objSourceFolder.Folders("Termination")
Set Msg = objDestFolder.Items.GetLast
Set sh = CreateObject("Shell.Application")
Set ie = CreateObject("InternetExplorer.Application")
LocationURL = "Ticket URL” & Msg.EntryID"
ie.Navigate (LocationURL)
ie.Visible = True
With ie.Document
    .getElementById("details").Value = Msg.Body
    .getElementById("short_description").Value = Msg.Subject
    .getElementById("requester_login").Value = "premchand"

End With

【问题讨论】：

请发布您的代码。
我的代码太长无法粘贴在这里..有什么办法可以附上代码。
您不必发布完整代码 - 只需发布相关部分
如果有任何示例代码，宏应该在收到新电子邮件并创建票证时自动运行，请将代码分享给我，以便我可以修改我的（或）更正我的代码。
在问题中添加代码。请检查

标签： vba email vbscript outlook

【解决方案1】：

当您从规则运行宏时，它通常具有一个参数，触发该规则的项目将传递给该参数：您无需浏览收件箱即可找到该项目。

Public Sub DoSomething(Item As Outlook.MailItem)

   'code which acts on "Item"

End Sub

【讨论】：

【解决方案2】：

有几种方法可以处理传入的电子邮件：

Application 类的NewMailEx 事件在收件箱中收到新项目时触发。此事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。
当一个或多个项目被添加到指定的集合时，Items 类的ItemAdd 事件被触发。因此，您可以订阅收件箱文件夹以查看新项目。请注意，当一次将大量项目添加到文件夹时，此事件不会运行。此事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。
将宏 VBA 子分配给 Outlook 中的规则。在这种情况下，传入的邮件项将作为参数传递给子，如 Tim 所示。

【讨论】：