Question

我试图从网络上找到我的问题的答案。由于我没有从outlook-vba那里获得如此多的经验，所以我决定在这里问。

我尝试做的是在用户打开邮件时运行脚本。此外，我只需要在共享邮箱中运行此脚本，而不是在用户自己的框中。

我已经使用了用户@ZZA question # 21727768中找到的代码，但它对创建邮件并回复一个邮件也有一点烦恼（它也会在这些情况下运行脚本）。这很有帮助，但我还没有找到一种方法将该代码仅应用于用户从共享邮箱打开邮件的情况。

这里有任何帮助吗？

谢谢！

Answer 1

好的，我找到了一种更简单的方法（这主要是来自与OP相关联的问题的代码）

Public WithEvents myItem As Outlook.MailItem
Public EventsDisable As Boolean



Private Sub Application_ItemLoad(ByVal Item As Object)
    If EventsDisable = True Then Exit Sub
    If Item.Class = olMail Then
        Set myItem = Item
    End If
End Sub


Private Sub myItem_Open(Cancel As Boolean)
    EventsDisable = True
    'this is the new part
    If myItem.Parent = "NAMEOFYOURSHAREDINBOX" Then
        'your code here
    End If
    EventsDisable = False
End Sub

主要归功于hstay

HTH

仅在打开邮件时在共享邮箱中运行脚本

1 个答案: