VBA: как проверить, работает ли Outlook в автономном режиме, а если нет, то переведите его в автономный режим
Прежде чем отправлять электронные письма с помощью VBA в Excel, я помещаю Outlook в автономный режим, чтобы электронные письма не отправлялись, и я могу их проверить.
Проблема заключается в том, что я должен был бы убедиться, что Outlook всегда в автономном режиме.
Я нашел следующий код для перевода Outlook в автономный режим:
- Вставьте тело текста и тело Excel в электронном письме с помощью VBA
- Excel VBA - Отправить адрес электронной почты
- Отправка электронной почты в список рассылки с помощью Outlook
- Ошибка при отправке электронной почты через цикл for для напоминания о дате истечения срока действия
- Нажмите кнопку «Новая почта» в письме Microsoft 365, используя VBA
Outlook.ActiveExplorer().CommandBars.FindControl(, 5613).Execute Но проблема заключается в том, что если Outlook в автономном режиме выйдет из режима офлайн, я хочу проверить, находится ли Outlook в автономном режиме, а если не запускать код.
Есть ли способ сделать это?
- Нужно немного помочь добавить диапазон таблиц из файла excel на sharepoint в тело электронной почты с помощью powershell
- SenderEmailAddress в коде vba, дающий путь в excel
- vba отправлять электронную почту и печатать в формате pdf и сохранять в папку?
- Использование VBA для вставки диапазона в Outlook не вставляет ничего
- Отправка электронной почты с помощью приложения excel, но лист excel поврежден. что я делаю?
- Сохранить вложение Outlook в ячейку Excel как OLEObject в VBA
- Отправлять электронные письма 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