VBA: как проверить, работает ли Outlook в автономном режиме, а если нет, то переведите его в автономный режим

Прежде чем отправлять электронные письма с помощью VBA в Excel, я помещаю Outlook в автономный режим, чтобы электронные письма не отправлялись, и я могу их проверить.

Проблема заключается в том, что я должен был бы убедиться, что Outlook всегда в автономном режиме.

Я нашел следующий код для перевода Outlook в автономный режим:

Outlook.ActiveExplorer().CommandBars.FindControl(, 5613).Execute 

Но проблема заключается в том, что если Outlook в автономном режиме выйдет из режима офлайн, я хочу проверить, находится ли Outlook в автономном режиме, а если не запускать код.

Есть ли способ сделать это?

Чтобы проверить автономный режим на подключенном к Exchange клиенте Outlook, вы можете проверить свойство ExchangeConnectionMode объекта Session .

Например, вы можете сделать следующее:

 Dim oNS As NameSpace Set oNS = Application.Session If oNS.ExchangeConnectionMode = olCachedOffline Or _ oNS.ExchangeConnectionMode = olOffline Then ... Work, work! ... End If 
  • Как переносить сообщения электронной почты из Outlook в определенные папки по темам с помощью кода VBA?
  • Приглашение на встречу из Excel макроса - нет органа, назначенного на прием
  • Как добавить подпись в Excel
  • Получить адрес электронной почты отправителя с помощью Excel VBA
  • Извлечь почтовые свойства, показанные как пробелы в военной классификации SIPRNet
  • Создание электронной почты Outlook с гиперссылкой через VBA
  • Ошибка отправки нескольких писем по электронной почте
  • как получить папку Outlook по умолчанию от двух разных пользователей, используя vba
  • Как извлечь электронные письма для Outlook для подпапок
  • Извлечь адрес электронной почты из Outlook для списка идентификаторов сотрудников
  • Отправлять электронную почту Outlook из Excel, помещая текст диапазона последней строки в сообщении тела
  • Interesting Posts

    Могу ли я импортировать INTO excel из источника данных без итерации?

    Excel VBA «Метод« Документ »объекта« IWebBrowser2 »не удался»

    Удалить верхние индексы в Excel в VBA

    VBA Macro: пытается ввести код «если две ячейки одинаковы, тогда ничего, иначе сдвиньте строки вниз»,

    Создание диаграммы из сводной таблицы

    Я хочу написать плагин для Excel 2007 в JAVA

    Проблема с дополнительным надстройкой Excel

    Используя VBA в Excel, как я могу прокручивать коллекцию объектов класса для получения значений атрибутов объекта?

    Ячейки условного формата на основе соответствия на другом листе

    Получить адрес ячейки excel из UDF

    Как создать таблицы совместимых с Excel таблиц на стороне сервера в C #?

    Excel VBA MSXML2.XMLHTTP не работает в сети компании

    Python 2 csv-файл парсера, который выводит то, что находится в файле1.csv, но не в file2.csv

    Оставьте кавычки при копировании из ячейки

    Проблемы с страницей

    Давайте будем гением компьютера.