Kuidas saada hoiatust, kui saadate e-kirju väljaspool teie ettevõtet asuvatele isikutele

Kui teie ettevõttel on täpne eeskiri, et te ei tohiks saata meile väljaspool ettevõtet, võite kasutada selles artiklis kirjeldatud viisi. See õpetab teile, kuidas kasutada VBA-d hoiatuse saamiseks, kui meilisõnum saadetakse väljaspool teie ettevõtet.

Mõnikord võib teie ettevõte andmeturbe kaitsmiseks nõuda, et ettevõtte e-posti konto kasutamisel peaksite e-kirju saatma ainult teie ettevõttes olevatele isikutele. Teisisõnu, teil ei ole lubatud saata meile ettevõttevälistele isikutele, nimelt väliste domeenide e-posti aadresse. Kuid võib-olla olete mõnikord pisut unustatav. Sel juhul võite soovida, et Outlook saaks teid automaatselt hoiatada, kui saadate e-kirju välisele ettevõttele. Siin keskendume sellele probleemile ja juhendame teid, kuidas seda Outlook VBA kaudu saavutada.

Saate hoiatuse, kui saadate meile väljaspool teie ettevõtet

1. Esiteks käivitage oma Outlooki programm.
2. Seejärel vajutage klahvikombinatsiooni Alt + F11.
3. Järgmisena saate juurdepääsu Outlook VBA redaktori aknale.
4. Seejärel avage projekt "ThisOutlookSession".
5. Seejärel kopeerige ja kleepige sellesse projekti aknasse järgmised VBA koodid.

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ärast seda peaksite sellele koodile alla kirjutama.
7. Hiljem muutke oma Outlooki makro sätteid, et lubada allkirjastatud makrod.
8. Lõpuks, nüüdsest saate iga kord, kui kavatsete saata meile e-posti aadressidele, mis ei kuulu teie ettevõtte domeeni, hoiatuse, nagu järgmine ekraanipilt:

Jätkake oma Outlooki korralikult sulgemist

Outlook kipub kokku jooksma, kui sulgete Outlooki sageli valesti, näiteks sunnite seda ootamatute elektrikatkestuste tõttu sulgema. Iga kord, kui teie Outlook jookseb kokku, kannatab ka teie PST-fail. Kui teie PST-fail on ohus, kulutate palju rohkem jõupingutusi selle taastamiseks kahjustatud Outlook andmed kui igapäevane kaitse. Sel juhul pole failist scanpst.exe palju abi. Teil ei jää muud üle, kui kasutada mõnda võimsamat tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server määrata ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom