Kaip gauti įspėjimą siunčiant el. laiškus asmenims, nepriklausantiems jūsų įmonei

Jei jūsų įmonė turi tikslią politiką, pagal kurią neturėtumėte siųsti el. laiškų jūsų įmonei nepriklausantiems asmenims, galite naudoti šiame straipsnyje aprašytą būdą. Jis išmokys jus naudoti VBA, kad gautumėte įspėjimą, jei el. laiškas siunčiamas ne jūsų įmonei.

Kartais, siekdama apsaugoti duomenų saugumą, jūsų įmonė gali reikalauti, kad naudodamiesi verslo el. pašto paskyra el. laiškus siųstumėte tik jūsų įmonėje esantiems asmenims. Kitaip tariant, jums neleidžiama siųsti el. laiškų asmenims, nepriklausantiems įmonei, ty el. pašto adresų išoriniuose domenuose. Tačiau galbūt kartais esate šiek tiek pamirštami. Tokiu atveju galbūt norėsite, kad „Outlook“ galėtų jus automatiškai įspėti, kai siunčiate el. laiškus išorės įmonei. Čia mes sutelksime dėmesį į šią problemą ir parodysime, kaip tai pasiekti naudojant „Outlook VBA“.

Gaukite įspėjimą, kai siunčiate el. laiškus asmenims, nepriklausantiems jūsų įmonei

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada paspauskite „Alt + F11“ sparčiuosius klavišus.
3. Tada gausite prieigą prie Outlook VBA redaktoriaus lango.
4. Tada atidarykite projektą „ThisOutlookSession“.
5. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į šį projekto langą.

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. Po to turėtumėte pasirašyti šį kodą.
7. Vėliau pakeiskite „Outlook“ makrokomandos nustatymus, kad leistų pasirašytas makrokomandas.
8. Galiausiai, nuo šiol kiekvieną kartą, kai ketinate siųsti el. laiškus el. pašto adresais, kurie nėra jūsų įmonės domene, gausite įspėjimą, pavyzdžiui, šią ekrano kopiją:

Tinkamai uždarykite „Outlook“.

„Outlook“ dažniausiai užstringa, jei dažnai netinkamai uždarote „Outlook“, pavyzdžiui, priverčiate ją uždaryti dėl staigių elektros energijos tiekimo sutrikimų. Kiekvieną kartą, kai „Outlook“ sugenda, nukentės ir jūsų PST failas. Kai jūsų PST failas bus pažeistas, turėsite įdėti daug daugiau pastangų, kad susigrąžintumėte sugadinta Outlook duomenų nei kasdieninė apsauga. Tokiu atveju scanpst.exe nelabai padės. Jūs neturite kito pasirinkimo, kaip tik pakartotinai naudoti stipresnį įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server nustatyti ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com