Senden von Mail bestätigen, aber nur bei bestimmten Empfängern...

'Copyright @colinardo at Administrator.de  
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim rec As Recipient, specialRecipient As String
    specialRecipient = "very-important-person@domain.com"  
    If Item.Class = olMail Then
        For Each rec In Item.Recipients
            If LCase(rec.Address) = LCase(specialRecipient) Then
                res = MsgBox("Möchten sie die Nachricht wirklich versenden?", vbYesNo Or vbQuestion, "Sicherheitsabfrage")  
                If res = vbNo Then
                    Cancel = True
                End If
            End If
        Next
    End If
End Sub