ExcelマクロでOutlookのメールの受信を停止したい

Question

お世話になっております。

Excel 2016のマクロでOutlook 2016を操作しています。
長い処理の間、メールの受信を停止したいのですがその方法をご教示いただきたくよろしくお願いします。

以下、試したことになります。

以下のコードで同期の停止をすることによってメールの受信が停止できるかと思ったのですが普通にメールを受信してしまいます。

Public Sub Sync()
    Dim objApp As New Outlook.Application
    Dim sycs As Outlook.SyncObjects
    Dim syc As Outlook.SyncObject
    Dim i As Integer

    Set sycs = objApp.Session.SyncObjects

    For i = 1 To sycs.Count
        Set syc = sycs.Item(i)
        syc.Stop
    Next i

    '長い処理

    For i = 1 To sycs.Count
        Set syc = sycs.Item(i)
        syc.Start
    Next i
End Sub

以下のコードでも受信の停止は出来ませんでした。

Public Sub SendAndReceive()
    Dim objApp As New Outlook.Application

    objApp.Session.SendAndReceive false

    '長い処理

    objApp.Session.SendAndReceive true
End Sub

ログオフすれば良いかと思ったのですがこれでも受信が出来てしまいます。

Public Sub Logoff()
    Dim objApp As New Outlook.Application

    objApp.Session.Logoff

    '長い処理

    objApp.Session.Logon
End Sub

Answer 1

outlook や excel の VBAでは、実現不可能です。

OUTLOOKのLOGOFF,LOGONのプロパティは読み取り専用です。
オブジェクトライブラリ（Ｆ２）で確認することができます。

OUTLOOKの送受信を拒否する方法は、ネットワークを切る手段しかなく、
小生の知識では、power shell でコマンドを書いて管理者で実行するようにするか、
バッチファイルを別に作って、手動で、管理者権限で実行するしかないです。

Excel から PowerShellを実行する方法もありますが、複雑になります。
プログラミングには、時には諦めも感じで、別な手段を考えるのも有効です。

Comments

[tryCSharp]

ご回答ありがとうございます。

そういうものなんですね。
諦めます。