როგორ მივიღოთ გაფრთხილება თქვენი კომპანიის გარეთ მყოფ პირებთან ელფოსტის გაგზავნისას

თუ თქვენს კომპანიას აქვს ზუსტი პოლიტიკა, რომ არ უნდა გაუგზავნოთ ელ.წერილი თქვენი კომპანიის გარეთ მყოფ პირებს, შეგიძლიათ გამოიყენოთ ამ სტატიაში დანერგილი გზა. ის გასწავლით თუ როგორ გამოიყენოთ VBA გაფრთხილების მისაღებად, თუ ელ.წერილი გაიგზავნება თქვენი კომპანიის გარეთ.

ზოგჯერ, მონაცემთა უსაფრთხოების დასაცავად, თქვენმა კომპანიამ შეიძლება მოგთხოვოთ, რომ ბიზნეს ელ.ფოსტის ანგარიშის გამოყენებისას, მხოლოდ თქვენი კომპანიის შიგნით მყოფ პირებს უნდა გაუგზავნოთ წერილები. სხვა სიტყვებით რომ ვთქვათ, თქვენ არ გაქვთ უფლება გაუგზავნოთ ელ.წერილი კომპანიის გარეთ მყოფ პირებს, კერძოდ, ელ.ფოსტის მისამართებს გარე დომენებში. თუმცა, შესაძლოა, ხანდახან ცოტა დამავიწყდეს. ამ შემთხვევაში, თქვენ შეიძლება გინდოდეთ, რომ Outlook-მა შეძლოს ავტომატურად გაფრთხილება, როდესაც წერილებს აგზავნით გარე კომპანიაში. აქ ჩვენ ყურადღებას გავამახვილებთ ამ საკითხზე და გასწავლით თუ როგორ მიაღწიოთ მას Outlook VBA-ის საშუალებით.

მიიღეთ გაფრთხილება თქვენი კომპანიის გარეთ მყოფ პირებთან ელ.წერილების გაგზავნისას

1. პირველ რიგში, გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ დააჭირეთ "Alt + F11" კლავიშთა მალსახმობებს.
3. შემდეგ თქვენ მიიღებთ წვდომას Outlook VBA რედაქტორის ფანჯარაზე.
4. შემდგომში გახსენით პროექტი „ThisOutlookSession“.
5. შემდეგ დააკოპირეთ და ჩასვით შემდეგი VBA კოდები ამ პროექტის ფანჯარაში.

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. ამის შემდეგ, თქვენ უნდა მოაწეროთ ხელი ამ კოდს.
7. მოგვიანებით შეცვალეთ თქვენი Outlook მაკრო პარამეტრები ხელმოწერილი მაკროების დასაშვებად.
8. დაბოლოს, ამიერიდან, ყოველ ჯერზე, როდესაც აპირებთ ელ.ფოსტის გაგზავნას იმ ელ.ფოსტის მისამართებზე, რომლებიც არ არის თქვენი კომპანიის დომენში, მიიღებთ გაფრთხილებას, როგორიცაა შემდეგი ეკრანის სურათი:

გააგრძელეთ თქვენი Outlook სწორად დახურვა

Outlook-ი იშლება, თუ ხშირად ხურავთ თქვენს Outlook-ს არასწორად, მაგალითად, იძულებით დახუროთ ელექტროენერგიის უეცარი გათიშვის გამო. ყოველ ჯერზე, როდესაც თქვენი Outlook იშლება, თქვენი PST ფაილიც დაზარალდება. მას შემდეგ რაც თქვენი PST ფაილი კომპრომეტირებული იქნება, თქვენ დახარჯავთ ბევრად მეტ ძალისხმევას მის დასაბრუნებლად დაზიანებული Outlook მონაცემები ვიდრე ყოველდღიური დაცვა. ამ შემთხვევაში, scanpst.exe არ იქნება დიდი დახმარება. თქვენ სხვა არჩევანი არ გაქვთ გარდა იმისა, რომ დაუბრუნდეთ უფრო ძლიერ იარაღს, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server დაფიქსირება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად