Kako dobiti upozorenje prilikom slanja e-pošte osobama izvan vaše tvrtke

Ako vaša tvrtka ima točnu politiku da ne smijete slati e-poštu osobama izvan vaše tvrtke, možete koristiti način predstavljen u ovom članku. Naučit ćete kako koristiti VBA za dobivanje upozorenja ako je e-pošta poslana izvan vaše tvrtke.

Ponekad, radi zaštite sigurnosti podataka, vaša tvrtka može od vas zahtijevati da kada koristite poslovni račun e-pošte, šaljete e-poštu samo osobama unutar vaše tvrtke. Drugim riječima, nije vam dopušteno slanje e-pošte osobama izvan tvrtke, odnosno adresama e-pošte u vanjskim domenama. Međutim, možda ste ponekad pomalo zaboravljivi. U tom slučaju možda biste željeli da vas Outlook može automatski upozoriti kada šaljete e-poštu vanjskoj tvrtki. Ovdje ćemo se usredotočiti na ovaj problem i uputiti vas kako to postići putem Outlook VBA.

Primite upozorenje prilikom slanja e-pošte osobama izvan vaše tvrtke

1. Prvo pokrenite Outlook.
2. Zatim pritisnite tipke prečaca "Alt + F11".
3. Zatim ćete dobiti pristup Outlook VBA prozoru uređivača.
4. Nakon toga otvorite projekt "ThisOutlookSession".
5. Zatim kopirajte i zalijepite sljedeće VBA kodove u ovaj prozor projekta.

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. Nakon toga trebate potpisati ovaj kod.
7. Kasnije promijenite postavke Outlook makronaredbi kako biste omogućili potpisane makronaredbe.
8. Konačno, od sada, svaki put kada namjeravate slati e-poštu na adrese e-pošte koje nisu u domeni vaše tvrtke, dobit ćete upozorenje poput sljedeće slike:

Nastavite pravilno zatvarati svoj Outlook

Outlook ima tendenciju pada ako često zatvarate svoj Outlook na nepravilan način, kao što je prisilno zatvaranje zbog iznenadnih nestanaka struje. Svaki put kada se vaš Outlook sruši, vaša PST datoteka također će patiti. Nakon što vaša PST datoteka bude ugrožena, uložit ćete mnogo više truda da je vratite oštećen Outlook podataka od dnevne zaštite. U tom slučaju, scanpst.exe neće biti od velike pomoći. Nemate drugog izbora nego se vratiti na moćniji alat, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server popraviti i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com