Wie erhalte ich eine Warnung, wenn ich eine E-Mail an eine externe Domain in Outlook sende?
Wie können Sie bei der Verwendung von Outlook verhindern, dass E-Mails versehentlich an Empfänger außerhalb Ihres Unternehmens gesendet werden? Tatsächlich können Sie beim Senden von E-Mails an externe Domänen in Outlook ein Warnfeld anzeigen. In diesem Artikel wird eine VBA-Methode vorgestellt, um dies zu erreichen.
Beim Senden von E-Mails an eine externe Domain mit VBA-Code wird eine Warnung angezeigt
Beim Senden von E-Mails an eine externe Domain mit VBA-Code wird eine Warnung angezeigt
Mit dem folgenden VBA-Code können Sie beim Senden von E-Mails an externe Domänen in Outlook gewarnt werden. Bitte gehen Sie wie folgt vor.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession öffnen Diese Outlook-Sitzung (Code) Fenster, und kopieren Sie dann den folgenden VBA-Code in das Fenster. Siehe Screenshot:
VBA-Code: Beim Senden von E-Mails an eine externe Domain wird eine Warnung angezeigt
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
xRecipientAddress = xRecipients.Item(i).Address
xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
If xPos <= 0 Then Exit For
Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Sub
Note: Im Code “@ addin99.com”Ist die interne E-Mail-Domain, an die Sie E-Mails senden. Bitte ändern Sie es nach Bedarf.
Wenn Sie von nun an auf die Schaltfläche Senden klicken, um E-Mails an eine externe E-Mail-Domäne zu senden (nicht an die interne E-Mail-Domäne, die Sie im VBA-Code angegeben haben), wird ein Warnfeld angezeigt (siehe Abbildung unten).
In Verbindung stehende Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!