VBOffice

Delete Original Email When Replying

By clicking on Reply you can automatically delete the original email.

Last modified: 2006/09/26 | Accessed: 27.590  | #33
◀ Previous sample Next sample ▶
SAM SAM
SAM automatically sets the sending account, or sender address, and folder for sent items based on several criteria.

This sample shows how to delete an e-mail as soon as you click the Reply button. Outlook creates the reply (and, depending on your settings, with the original text in it) and moves the original into the folder for deleted items.

The macro works with Outlook 2010 and older.


tip  How to add macros to Outlook
Private WithEvents ReplyButton As Office.CommandBarButton
Private WithEvents m_Inspectors As Outlook.Inspectors
Private m_Mail As Outlook.MailItem

Private Sub Application_Startup()
  Set ReplyButton = Application.ActiveExplorer.CommandBars.FindControl(, 354)
  Set m_Inspectors = Application.Inspectors
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
  On Error Resume Next
  If Not m_Mail Is Nothing Then
    m_Mail.Delete
    Set m_Mail = Nothing
  End If
End Sub

Private Sub ReplyButton_Click(ByVal Ctrl As Office.CommandBarButton, _
  CancelDefault As Boolean _
)
  On Error Resume Next

  If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
    Set m_Mail = Application.ActiveExplorer.Selection(1)
  Else
    Set m_Mail = Application.ActiveInspector.CurrentItem
  End If
End Sub
ReplyAll ReplyAll
ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.
email  Send a message