Macro di Outlook per interrompere una risposta-tutto?

È ansible creare una macro di Outlook in modo tale che quando un utente preme "Reply to All", esiste un prompt che dice qualcosa come "Il tuo messaggio verrà inviato ai seguenti destinatari: x, y, z. Sei sicuro? Y / N". La domanda principale è se c'è anche un hook disponibile per interrompere l'azione a tutti.

Nota che non sto cercando di distriggersrlo o di acquistare un componente aggiuntivo.

Nota: sto lavorando per il 2007, ma penso che il codice dovrebbe trasferire OK.

È ansible aggiungere un gestore di events via VBA per raccogliere l'evento ReplyAll . Qualcosa di simile al seguente:

 Dim WithEvents insp As Outlook.Inspectors Dim WithEvents mailItem As Outlook.MailItem ' This is called on Outlook startup Private Sub Application_Startup() Set insp = Application.Inspectors End Sub ' This is called when a new Inspector is created. You use it to pick up on a new mail item event Private Sub insp_NewInspector(ByVal Inspector As Inspector) If Inspector.CurrentItem.Size = 0 And Inspector.CurrentItem.Class = olMail Then Set mailItem = Inspector.CurrentItem End If End Sub ' Called when you press ReplyAll Private Sub mailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean) Dim msg As String Dim result As Integer msg = "Do you really want to reply to all?" result = MsgBox(msg, vbYesNo, "Reply All Check") If result = vbNo Then Cancel = True End If End Sub