Черновики электронной почты Outlook VBA без диалогового окна сохранения изменений

Я использую VBA для создания новых элементов MailItem и перемещения их в папку «Входящие». Поскольку они не отправляются, с точки зрения Outlook они обрабатываются как черновики. Это означает, что когда я открываю такой элемент, я не могу закрыть его без надоедливой подсказки о сохранении.

Вы хотите сохранить/удалить приглашение на немецком языке (извините)

Есть ли способ работать с неотправленными почтовыми элементами, чтобы отслеживать вещи? Я также могу отправить эти элементы на свой собственный почтовый адрес, но иногда это занимает немного больше времени, пока они не будут получены. Поэтому я бы предпочел просто создать их локально.


vba mailitem
person Martin Lundberg    schedule 29.10.2020    source источник

Ответы (1)


arrow_upward
0
arrow_downward

С помощью .Close вы назначаете olDiscard, olPromptForSave или olSave.

https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.close(method)

Option Explicit

Sub closeWithoutPromptToSave()

    Dim currItem As MailItem
    
    Set currItem = ActiveInspector.currentItem
    currItem.Close olSave
    
End Sub
person niton    schedule 29.10.2020