Запрет входящих писем в Outlook

Question

Мне действительно нравится функция «Работа в автономном режиме» в Outlook, но у нее есть 1 небольшая проблема и 1 основная проблема.

• Незначительная проблема: я не могу отправлять электронные письма. Они сидят в моем почтовом ящике, но не отправляют, пока я не работаю в сети
• Основная проблема: я не могу просматривать календари других людей, поэтому я не могу назначать встречи с ними.

Есть ли способ написать сценарии VBA, чтобы входящая электронная почта не доходила до моей входящей почты? Я написал следующие сценарии, но я все еще получаю электронные письма.

Public Sub SetAppfolders()
 Dim nsp As Outlook.NameSpace
 Dim objSycs As Outlook.SyncObjects
 Dim objSyc As Outlook.SyncObject
 Dim mpfInbox As Outlook.Folder     

 Set nsp = Application.GetNamespace("MAPI")
 Set objSycs = nsp.SyncObjects
 Set objSyc = objSycs.AppFolders
 Set mpfInbox = nsp.GetDefaultFolder(olFolderInbox)

 mpfInbox.InAppFolderSyncObject = False
 objSyc.Start
End Sub