Танай компанийн гадна байгаа хүмүүст имэйл илгээхдээ хэрхэн анхааруулга авах вэ

Хэрэв танай компани танай компаниас гадуурх хүмүүст имэйл илгээх ёсгүй гэсэн тодорхой бодлоготой бол та энэ нийтлэлд оруулсан аргыг ашиглаж болно. Энэ нь танай компанийн гадна талд имэйл илгээсэн тохиолдолд анхааруулга авахын тулд 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 гацах бүрт таны PST файл ч бас хохирох болно. Таны PST файл эвдэгдсэн тохиолдолд буцааж авахын тулд илүү их хүчин чармайлт гаргах болно Outlook гэмтсэн өдөр тутмын хамгаалалтаас илүү өгөгдөл. Энэ тохиолдолд scanpst.exe нь тийм ч их тус болохгүй. Гэх мэт илүү хүчтэй хэрэгсэлд эргэж орохоос өөр сонголт танд алга DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL Server засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com