Si të merrni një paralajmërim kur dërgoni email te personat jashtë kompanisë suaj

Nëse kompania juaj ka një politikë të saktë që ju nuk duhet t'u dërgoni email personave jashtë kompanisë suaj, mund të përdorni mënyrën e prezantuar në këtë artikull. Do t'ju mësojë se si të përdorni VBA për të marrë një paralajmërim nëse një email dërgohet jashtë kompanisë suaj.

Ndonjëherë, për të mbrojtur sigurinë e të dhënave, kompania juaj mund t'ju kërkojë që kur përdorni llogarinë e emailit të biznesit, t'u dërgoni email vetëm personave brenda kompanisë suaj. Me fjalë të tjera, nuk ju lejohet të dërgoni email te personat jashtë kompanisë, përkatësisht adresat e emailit në domene të jashtme. Megjithatë, ndoshta ndonjëherë jeni pak i harruar. Në këtë rast, mund të dëshironi që Outlook të mund t'ju paralajmërojë automatikisht kur dërgoni email tek kompanitë e jashtme. Këtu do të fokusohemi në këtë çështje dhe do t'ju udhëzojmë se si ta arrini atë nëpërmjet Outlook VBA.

Merrni një paralajmërim kur dërgoni email te personat jashtë kompanisë suaj

1. Në radhë të parë, nisni programin tuaj Outlook.
2. Më pas shtypni shkurtoret e tastit "Alt + F11".
3. Më pas do të keni akses në dritaren e redaktuesit të Outlook VBA.
4. Më pas, hapni projektin "ThisOutlookSession".
5. Pastaj kopjoni dhe ngjisni kodet e mëposhtme VBA në këtë dritare të projektit.

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. Pas kësaj, ju duhet të nënshkruani këtë kod.
7. Ndrysho më vonë cilësimet e makrove të Outlook për të lejuar makrot e nënshkruara.
8. Së fundi, tani e tutje, sa herë që keni ndërmend të dërgoni email në adresat e emailit që nuk janë në domenin e kompanisë suaj, do të merrni një paralajmërim si pamja e mëposhtme e ekranit:

Vazhdoni të mbyllni siç duhet Outlook-in tuaj

Outlook ka tendencë të prishet nëse e mbyllni shpesh Outlook-in tuaj në mënyrë jo të duhur, si për shembull duke e detyruar atë të mbyllet për shkak të ndërprerjeve të papritura të energjisë. Sa herë që rrëzohet Outlook juaj, skedari juaj PST do të vuajë gjithashtu. Sapo skedari juaj PST të komprometohet, do të shpenzoni shumë më tepër përpjekje për ta rikthyer atë Outlook i dëmtuar të dhëna se sa mbrojtja ditore. Në këtë rast, scanpst.exe nuk do të ndihmojë shumë. Nuk keni zgjidhje tjetër veçse të ktheheni te një mjet më i fuqishëm, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë SQL Server fix dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com