1

多数のフォーラムを検索しようとしましたが、問題の解決策を見つけることができませんでした。VBA オブジェクトに関する私の理解には限界があることを認めます。Outlook オブジェクトを作成し、未読の電子メールが見つかるまで Outlook の既定の受信トレイをスキャンする Excel VBA レポートがあります。私のコンピューターで完全に動作するようにコードを取得しました。ただし、これを実行するコンピューターには、Outlook に関連付けられた 2 つの異なる電子メール アドレス/受信トレイがあります (1 つは個人の受信トレイで、もう 1 つはグループの受信トレイです)。

個人の受信トレイを検索するために使用しているコードは次のとおりです (未読メールなどの検索を続けます...):

    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 に答える