Sizning kompaniyangizdan tashqaridagi shaxslarga elektron pochta xabarlarini yuborishda qanday ogohlantirish olish mumkin

Agar kompaniyangiz sizning kompaniyangizdan tashqaridagi shaxslarga elektron pochta xabarlarini yubormaslik kerakligi haqidagi aniq siyosatga ega bo'lsa, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin. Bu sizga kompaniyangizdan tashqarida elektron pochta xabari yuborilganda ogohlantirish olish uchun VBA-dan qanday foydalanishni o'rgatadi.

Ba'zan, ma'lumotlar xavfsizligini himoya qilish uchun kompaniyangiz sizdan biznes elektron pochta qayd yozuvidan foydalanganda faqat kompaniyangiz ichidagi shaxslarga elektron pochta xabarlarini yuborishingizni talab qilishi mumkin. Boshqacha qilib aytganda, siz kompaniyadan tashqaridagi shaxslarga, ya'ni tashqi domenlardagi elektron pochta manzillariga elektron pochta xabarlarini yuborishingiz mumkin emas. Biroq, ba'zida siz biroz unutib qo'yishingiz mumkin. Bunday holda, siz tashqi kompaniyaga elektron pochta xabarlarini yuborganingizda Outlook sizni avtomatik ravishda ogohlantirishini xohlashingiz mumkin. Bu erda biz ushbu muammoga e'tibor qaratamiz va Outlook VBA orqali bunga qanday erishishni ko'rsatamiz.

Sizning kompaniyangizdan tashqaridagi shaxslarga elektron pochta xabarlarini yuborishda ogohlantirish oling

1. Avvalo, Outlook dasturingizni ishga tushiring.
2. Keyin "Alt + F11" tugmachalarini bosing.
3. Keyin siz Outlook VBA muharriri oynasiga kirishingiz mumkin.
4. Keyinchalik, "ThisOutlookSession" loyihasini oching.
5. Keyin quyidagi VBA kodlaridan nusxa ko'chiring va ushbu loyiha oynasiga joylashtiring.

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. Shundan so'ng siz ushbu kodni imzolashingiz kerak.
7. Keyinchalik imzolangan makroslarga ruxsat berish uchun Outlook makro sozlamalarini o'zgartiring.
8. Va nihoyat, bundan buyon har safar kompaniyangiz domenida bo'lmagan elektron pochta manzillariga elektron pochta xabarlarini yubormoqchi bo'lganingizda, quyidagi skrinshot kabi ogohlantirish olasiz:

Outlookni to'g'ri yopishda davom eting

Agar siz Outlook-ni tez-tez noto'g'ri yopsangiz, masalan, to'satdan elektr uzilishlari tufayli uni yopishga majbur qilsangiz, Outlook ishdan chiqadi. Har safar Outlook ishdan chiqqanida PST faylingiz ham zarar ko'radi. Agar sizning PST faylingiz buzilgan bo'lsa, uni qaytarib olish uchun ko'proq kuch sarflaysiz buzilgan Outlook kundalik himoyadan ko'ra ma'lumotlar. Bunday holda, scanpst.exe unchalik yordam bermaydi. Sizda yana kuchliroq vositaga murojaat qilishdan boshqa tanlovingiz yo'q, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc SQL Server tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com