Εάν η εταιρεία σας έχει μια ακριβή πολιτική ότι δεν πρέπει να στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου σε άτομα εκτός της εταιρείας σας, μπορείτε να χρησιμοποιήσετε τον τρόπο που παρουσιάζεται σε αυτό το άρθρο. Θα σας διδάξει πώς να χρησιμοποιήσετε το VBA για να λάβετε μια προειδοποίηση εάν ένα email αποστέλλεται σε τρίτη εταιρεία.
Μερικές φορές, για την προστασία της ασφάλειας δεδομένων, η εταιρεία σας μπορεί να σας ζητήσει ότι όταν χρησιμοποιείτε λογαριασμό επαγγελματικού email, θα πρέπει να στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου μόνο στα άτομα εντός της εταιρείας σας. Με άλλα λόγια, δεν επιτρέπεται να στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου σε άτομα εκτός εταιρείας, δηλαδή διευθύνσεις ηλεκτρονικού ταχυδρομείου σε εξωτερικούς τομείς. Ωστόσο, ίσως κατά καιρούς είστε λίγο ξεχασμένοι. Σε αυτήν την περίπτωση, ίσως θέλετε το Outlook να σας προειδοποιεί αυτόματα όταν στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου σε τρίτη εταιρεία. Εδώ θα επικεντρωθούμε σε αυτό το ζήτημα και θα σας καθοδηγήσουμε πώς να το επιτύχετε μέσω του Outlook VBA.
Λάβετε μια προειδοποίηση κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου στα άτομα εκτός της εταιρείας σας
- Αρχικά, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, πατήστε τις συντομεύσεις πλήκτρων "Alt + F11".
- Στη συνέχεια θα έχετε πρόσβαση στο παράθυρο επεξεργασίας του Outlook VBA.
- Στη συνέχεια, ανοίξτε το έργο "ThisOutlookSession".
- Στη συνέχεια, αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA σε αυτό το παράθυρο έργου.
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
- Μετά από αυτό, πρέπει να υπογράψετε αυτόν τον κωδικό.
- Αργότερα αλλάξτε τις ρυθμίσεις μακροεντολών του Outlook για να επιτρέψετε τις υπογεγραμμένες μακροεντολές.
- Τέλος, από τώρα και στο εξής, κάθε φορά που σκοπεύετε να στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου στις διευθύνσεις ηλεκτρονικού ταχυδρομείου που δεν ανήκουν στον τομέα της εταιρείας σας, θα λαμβάνετε μια προειδοποίηση όπως το ακόλουθο στιγμιότυπο οθόνης:
Συνεχίστε να κλείνετε σωστά το Outlook
Το Outlook τείνει να διακόπτεται εάν κλείνετε συχνά το Outlook εσφαλμένα, όπως αναγκάζοντάς το να κλείσει λόγω ξαφνικών διακοπών ρεύματος. Κάθε φορά που διακόπτεται το Outlook, το αρχείο PST θα υποφέρει επίσης. Μόλις το αρχείο PST σας παραβιαστεί, θα ξοδέψετε πολύ περισσότερες προσπάθειες για να επιστρέψετε το αρχείο κατεστραμμένο Outlook δεδομένα από την καθημερινή προστασία. Σε αυτήν την περίπτωση, το scanpst.exe δεν θα βοηθήσει πολύ. Δεν έχετε άλλη επιλογή από το να επαναλάβετε ένα πιο ισχυρό εργαλείο, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων SQL Server σταθερός και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com