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

В настоящее время у меня есть группа кодирования, которая настроена на автоматическое отправку электронной почты, сгенерированной при предыдущем входе пользователя.

Когда это вызывается, он частным образом генерирует / отправляет электронное письмо, но просит пользователя принять «ОК», «Отменить» или «Справка».

Если пользователь выходит из панели или нажимает «Отмена», письмо не отправляется.

Есть ли способ, чтобы программа автоматически выбирала команду Okay?

Private Sub sendemail() Dim outlookapp As Object Dim mitem As Object Dim cell As Range Dim email_ As String Dim subject_ As String Dim body_ As String Dim attach_ As String '''>>>EMAIL<<<''' Set outlookapp = CreateObject("Outlook.Application") email_ = "[email protected]" subject_ = "General Subject" body_ = "General Message" 'create Mail Item and send it Set mitem = outlookapp.CreateItem(0) With mitem .To = email_ .Subject = subject_ .Body = body_ '.Attachments.Add "C:\FolderName\Filename.txt" '.Display 'To Display the message with an option to send or cancel .Send 'To auto-send the message End With End Sub 

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

 Application.DisplayAlerts = False 'With function/code Application.DisplayAlerts = True 

Вы можете попробовать что-то вроде этого …

 Set mitem = outlookapp.CreateItem(0) With mitem .To = email_ .Subject = subject_ .Body = body_ '.Attachments.Add "C:\FolderName\Filename.txt" .Display 'To Display the message with an option to send or cancel Application.Wait (Now + TimeValue("0:00:02")) Application.SendKeys "%s" End With 
  • VBA: Поиск электронной почты в почтовом ящике не по умолчанию?
  • Код Excel VBA для чтения имени пользователя из ячейки, затем отправьте электронное письмо этому пользователю
  • PHP создает электронную таблицу Excel, а затем посылает ее по электронной почте в виде вложения
  • Excel VBA Отправить Email
  • Отсканируйте почтовый ящик не по умолчанию для электронной почты?
  • Ссылка в другой учетной записи
  • VBA проверяет список писем, используя шаблон
  • выберите, на какую учетную запись отправить адрес электронной почты Outlook?
  • Не удалось получить Excel для создания электронной почты
  • Убить места в теле почты Outlook
  • Автоматические почтовые сообщения Outlook с использованием VBA
  • Interesting Posts

    Преобразование серийного номера в дату

    Для каждого рабочего листа в рабочих листах не работает

    Последующие действия: пишите из R в шаблон в excel, сохраняя форматирование

    Экспортные продукты Excel в магете

    Excel VBA: перемещение листа в новую книгу при сохранении ассоциации объектов листа

    Изменение диапазона в первый и последний столбцы со значениями

    Как изменить диапазон диаграммы в Excel с помощью VBA?

    Постоянная кнопка панели быстрого доступа Excel

    Запуск моего макроса при изменении ячейки excel

    Ошибка автозаполнения нескольких листов 1004

    Добавьте знак плюса в каждое слово в ячейке, используя формулу Excel или формулу Google SpreadSheets

    Range.ClearContents очищает системный буфер обмена – обходной путь? (VBA / Excel)

    Установите Focus Back to Excel, Mac VBA 2016

    Найти диапазон значений в excel

    Как заставить любое введенное значение в Excel преобразовать в отрицательный

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