Компанияңыздан тыс адамдарға электрондық пошта хабарларын жіберу кезінде қалай ескертуге болады

Егер сіздің компанияңызда компанияңыздан тыс адамдарға электрондық пошта хабарламаларын жібермеу туралы нақты саясат болса, сіз осы мақалада көрсетілген әдісті пайдалана аласыз. Бұл сізге электронды пошта сіздің компанияңыздан тыс жерге жіберілсе, ескерту алу үшін 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 бекіту және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com