Ich habe ein Makro mit dem folgenden Code erstellt. Es wird ein Dialogfeld erstellt, in dem Sie gewarnt werden, wenn Sie eine E-Mail an einen Empfänger in der Ausnahmeliste senden möchten. Sie können ihn dann senden oder abbrechen.
Beachten Sie, dass diese Funktion zu ThisOutlookSession hinzugefügt werden muss .
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) On Error Resume Next Select Case LCase(Item.To) Case Is <> "alias@domain.com", "alias2@domain3.com", "alias3@domain3.com" Item.Send Case Else Prompt$ = "Are you sure you want to send this to " & Item.To If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then Cancel = True End If End Select End Sub