[[20200806154913]] 『excel VBAでのoutlook操作について,サブフォルダ』(Kさん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『excel VBAでのoutlook操作について,サブフォルダーが取得できたりできなかったりします』(Kさん)

いつもお世話になっております.

outlookのセカンドアドレスのサブフォルダから
メールを取得するVBAを使用しているのですが,

メールを取得できたりできなかったりします.
原因がわからずに困っております.

ウォッチウィンドウで確認すると,
メールを取得できるときには操作対象の
オブジェクトが表示されるのですが,
取得できないときにはオブジェクトが,
存在していない状態でした.

取得できないときは,15分程度待ってから実行すると,
取得できるときもあります.

できれば,どんな時でも一発でメールを取得できるようにしたいです.
何卒,ご教示のほどよろしくお願いいたします.

コードは下記です.

    Dim objOutlook As Outlook.Application
    Dim myNamespace As Outlook.Namespace
    Dim myInbox As Folder, mySubfolder As Folder

    Set objOutlook = New Outlook.Application
    Set myNamespace = objOutlook.GetNamespace("MAPI")
    Set myInbox = myNamespace.Folders("セカンドアドレス名").Folders("受信トレイ")
    Set mySubfolder = myInbox.Folders.Item("サブフォルダ名")

< 使用 Excel:Office365、使用 OS:Windows10 >


Sub SendAndReceive(showProgressDialog As Boolean)
Event NewMailEx(EntryIDCollection As String)

あたり調べてみては?
(サンダー) 2020/08/06(木) 21:54


ご助言いただきありがとうございます.
調べてみます.
(Kさん) 2020/08/07(金) 10:44

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.