Outlook 2007 для запроса сохранения или удаления отправленного элемента при нажатии кнопки ОТПРАВИТЬ

Question

В Outlook 2007 мне бы хотелось, чтобы после нажатия кнопки «Отправить» мне было предложено сохранить или удалить сообщение. Как мне это сделать?

Answer 1

Вы можете создать макрос VBA и прикрепить его к «Приложению.ItemSend "событие.

Вот некоторый макрос-код, который вы можете вставить туда, чтобы спросить вас, хотите ли вы сохранить его в папке "Отправленные" или просто удалить:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

  Dim mailItem As Outlook.mailItem
  Dim strPrompt As String
  Dim response As VbMsgBoxResult

  strPrompt = "Do you want to save this email in the Sent folder?"
  response = MsgBox(strPrompt, vbYesNo, "Save to Sent folder?")

  If (response = vbNo) Then
    Set mailItem = Item
    mailItem.DeleteAfterSubmit = True
  End If

End Sub