Outlook 2007 para solicitar salvar ou excluir o item enviado quando SEND for clicado

Question

No outlook 2007, eu gostaria de ser solicitado a salvar ou excluir a mensagem depois que eu clicar no botão Enviar. Como faço isso?

    

Answer 1

Você pode criar uma macro VBA e anexá-la para o evento "Application. ItemSend ".

Aqui está um código de macro que você pode colocar lá, perguntando se você quer salvá-lo na pasta "Enviado", ou apenas deletá-lo:

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