So erhalten Sie eine Warnung, wenn Sie E-Mails an Personen außerhalb Ihres Unternehmens senden

Wenn Ihr Unternehmen eine genaue Richtlinie hat, nach der Sie keine E-Mails an Personen außerhalb Ihres Unternehmens senden sollten, können Sie die in diesem Artikel beschriebene Methode verwenden. Hier erfahren Sie, wie Sie mit VBA eine Warnung erhalten, wenn eine E-Mail an ein anderes Unternehmen gesendet wird.

Zum Schutz der Datensicherheit kann Ihr Unternehmen manchmal verlangen, dass Sie bei Verwendung eines geschäftlichen E-Mail-Kontos nur E-Mails an die Personen in Ihrem Unternehmen senden. Mit anderen Worten, Sie dürfen keine E-Mails an Personen außerhalb des Unternehmens senden, nämlich E-Mail-Adressen in externen Domänen. Vielleicht sind Sie jedoch manchmal etwas unvergesslich. In diesem Fall möchten Sie möglicherweise, dass Outlook Sie automatisch warnt, wenn Sie E-Mails an ein externes Unternehmen senden. Hier konzentrieren wir uns auf dieses Problem und zeigen Ihnen, wie Sie es über Outlook VBA erreichen können.

Erhalten Sie eine Warnung, wenn Sie E-Mails an Personen außerhalb Ihres Unternehmens senden

1. Starten Sie zunächst Ihr Outlook-Programm.
2. Drücken Sie dann die Tastenkombinationen „Alt + F11“.
3. Als Nächstes erhalten Sie Zugriff auf das Outlook VBA-Editorfenster.
4. Öffnen Sie anschließend das Projekt „ThisOutlookSession“.
5. Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie in dieses Projektfenster ein.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim i As Long
    Dim strRecipientAddress As String
    Dim strPrompt As String
    Dim nWarning As Integer
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
 
       For i = objRecipients.Count To 1 Step -1
           strRecipientAddress = objRecipients.Item(i).Address
           'Change @datanumen.com to your own company domain
           If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
              Exit For
           Else
              Cancel = False
           End If
      Next i
 
      If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
         strPrompt = "Are you sure to send this email to outside your company? "
         nWarning = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirm Email to Outside Organization")
         If nWarning = vbNo Then
            Cancel = True
         End If
      End If
    End If
End Sub

6. Danach sollten Sie diesen Code unterschreiben.
7. Ändern Sie später Ihre Outlook-Makroeinstellungen, um die signierten Makros zuzulassen.
8. Von nun an erhalten Sie jedes Mal, wenn Sie E-Mails an E-Mail-Adressen senden möchten, die sich nicht in Ihrer Unternehmensdomäne befinden, eine Warnung wie den folgenden Screenshot:

Schließen Sie Ihren Ausblick weiterhin ordnungsgemäß

Outlook neigt zum Absturz, wenn Sie Outlook häufig nicht ordnungsgemäß schließen, z. B. aufgrund plötzlicher Stromausfälle zum Schließen zwingen. Jedes Mal, wenn Ihr Outlook abstürzt, leidet auch Ihre PST-Datei. Sobald Ihre PST-Datei kompromittiert ist, werden Sie viel mehr Anstrengungen unternehmen, um die zurückzubekommen Outlook beschädigt Daten als täglicher Schutz. In diesem Fall ist die Datei scanpst.exe keine große Hilfe. Sie haben keine andere Wahl, als auf ein leistungsfähigeres Werkzeug zurückzugreifen, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Server fixieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX