Kā saņemt brīdinājumu, sūtot e-pastus personām ārpus uzņēmuma

Ja jūsu uzņēmumam ir precīza politika, ka jums nevajadzētu sūtīt e-pastus personām ārpus jūsu uzņēmuma, varat izmantot šajā rakstā aprakstīto veidu. Tas iemācīs jums izmantot VBA, lai saņemtu brīdinājumu, ja e-pasts tiek nosūtīts uz jūsu uzņēmuma ārpusi.

Dažreiz, lai aizsargātu datu drošību, jūsu uzņēmums var pieprasīt, lai, lietojot biznesa e-pasta kontu, e-pasta ziņojumi būtu jāsūta tikai personām, kas atrodas jūsu uzņēmumā. Citiem vārdiem sakot, jums nav atļauts sūtīt e-pastus personām ārpus uzņēmuma, proti, e-pasta adreses ārējos domēnos. Tomēr, iespējams, dažreiz jūs esat mazliet aizmirstams. Šajā gadījumā jūs varētu vēlēties, lai programma Outlook varētu automātiski brīdināt, kad sūtāt e-pastus ārējam uzņēmumam. Šeit mēs pievērsīsimies šim jautājumam un palīdzēsim jums to sasniegt, izmantojot Outlook VBA.

Saņemiet brīdinājumu, nosūtot e-pastus personām, kas atrodas ārpus jūsu uzņēmuma

1. Pirmkārt, startējiet savu Outlook programmu.
2. Pēc tam nospiediet taustiņu saīsnes “Alt + F11”.
3. Pēc tam jūs saņemsiet piekļuvi Outlook VBA redaktora logam.
4. Pēc tam atveriet projektu “ThisOutlookSession”.
5. Pēc tam šajā projekta logā nokopējiet un ielīmējiet šādus VBA kodus.

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. Pēc tam jums jāparaksta šis kods.
7. Vēlāk mainiet Outlook makro iestatījumus, lai atļautu parakstītos makro.
8. Visbeidzot, no šī brīža katru reizi, kad plānojat sūtīt e-pastus uz e-pasta adresēm, kas nav jūsu uzņēmuma domēnā, jūs saņemsit brīdinājumu, piemēram, šo ekrānuzņēmumu:

Turpiniet pareizi aizvērt savu Outlook

Programma Outlook mēdz avarēt, ja bieži aizverat programmu nepareizi, piemēram, piespiežot to aizvērt pēkšņas strāvas padeves pārtraukumu dēļ. Katru reizi, kad Outlook avarē, cietīs arī jūsu PST fails. Kad jūsu PST fails būs apdraudēts, jūs tērēsit daudz vairāk pūļu, lai atgrieztos bojāta Outlook dati nekā ikdienas aizsardzība. Tādā gadījumā scanpst.exe nebūs daudz palīdzības. Jums nekas cits neatliek, kā atkārtot spēcīgāku rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server noteikts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar