1

我已经尝试搜索一堆论坛，但未能找到解决我的问题的方法。我承认我对 VBA 对象的理解是有限的。我有一个 Excel VBA 报告，它创建一个 Outlook 对象，然后扫描 Outlook 默认收件箱，直到找到未读电子邮件。我已经让代码在我的计算机上完美运行。但是，运行它的计算机有两 (2) 个与 Outlook 相关联的不同电子邮件地址/收件箱（一个是个人收件箱，另一个是组收件箱）。

我用来搜索我的个人收件箱的代码是这样的（它会继续搜索未读的电子邮件等......）：

    Application.ScreenUpdating = False
    Dim oOlAp As Object, oOlns As Object, oOlInb As Object
    Dim oOlItm As Object, oOlAtch As Object
    '~~> New File Name for the attachment
    Dim NewFileName As String
    NewFileName = "ActInv Export"
    '~~> Get Outlook instance
    Set oOlAp = GetObject(, "Outlook.application")
    Set oOlns = oOlAp.GetNamespace("MAPI")
    Set oOlInb = oOlns.GetDefaultFolder(olFolderInbox)

但是，这仅指向默认收件箱（即个人电子邮件）。如何更改它以设置对象以搜索群组电子邮件收件箱？

4

1 回答 1

1

我不能确定（因为我现在不在运行 Outlook 的计算机上，因此无法使用它），但我认为您的问题的答案可能包含在这个问题的答案中共享 Outlook 邮箱的跟踪器。

我认为关键在于这条线

Set f = olns.Folders("Mailbox - Name, Name")

这与您的陈述平行但不同

Set oOlInb = oOlns.GetDefaultFolder(olFolderInbox)

祝你好运！

于 2013-10-04T01:37:58.440 回答