Outlook VBA-ээр дамжуулан тодорхой домэйнд илгээгчдээс бүх хавсралтыг хэрхэн автоматаар хадгалах вэ

Хэрэв та Outlook-д имэйлийн хаяг нь тодорхой домэйнд байгаа илгээгчийн бүх хавсралтыг автоматаар хадгалахыг зөвшөөрөхийг хүсвэл энэ нийтлэлийг уншиж болно. Энд бид танд хурдан аргыг танилцуулах болно.

Танай компанийн бүх ажилтнууд ижил домэйнд байгаа имэйл хаягийг ашиглаж магадгүй юм. Та янз бүрийн хавсралттай имэйлийг өөр хоорондоо байнга илгээдэг тул Outlook-т эдгээр имэйлээс хавсралтыг автоматаар хадгалахыг хүсч магадгүй юм. Энэ тохиолдолд Outlook-аас имэйлийн илгээгчийн домэйныг автоматаар шалгаж, хавсралтуудыг автоматаар хадгалахыг шаардах болно. Одоо дараахь зүйлсээр бид үүнийг хялбархан хэрэгжүүлэх боломжтой VBA кодын талаар хуваалцах болно.

Илгээгчийн бүх хавсралтыг тодорхой домэйнд автоматаар хадгалах

1. Эхлээд Outlook VBA редакторыг “Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
2. Дараа нь дараахь кодыг ашиглагдаагүй модульд оруулна уу.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
   Set objInboxItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
   Dim objMail As Outlook.MailItem
   Dim strSenderAddress As String
   Dim strSenderDomain As String
   Dim objAttachment As Attachment
   Dim strFolderPath As String
   Dim strFileName As String

   If Item.Class = olMail Then
      Set objMail = Item

      'Get sender domain
      strSenderAddress = objMail.SenderEmailAddress
      strSenderDomain = Right(strSenderAddress, Len(strSenderAddress) - InStr(strSenderAddress, "@"))

      'Change to the specific domain as per your needs
      If strSenderDomain = "datanumen.net" Then
         If objMail.Attachments.Count > 0 Then
            For Each objAttachment In objMail.Attachments
                'Change the folder path where you want to save attachments
                strFolderPath = "E:\Attachments\"
                strFileName = objMail.Subject & " " & Chr(45) & " " & objAttachment.FileName
                objAttachment.SaveAsFile strFolderPath & strFileName
            Next
         End If
      End If
   End If
End Sub

3. Үүний дараа дахинtart Энэ макрог идэвхжүүлэх Outlook.
4. Тэр үеэс хойш ирсэн имэйл таны ирсэн имэйлд орж ирэх бүрт Outlook нь илгээгчийн домэйныг автоматаар шалгах болно. Хэрэв энэ нь урьдчилан тодорхойлсон домэйнтэй ижил бөгөөд хавсралт агуулсан бол Outlook нь хавсралтыг локал фолдерт автоматаар хадгалах болно.

Үл мэдэгдэх домэйнд илгээгчийн хавсралтыг хэзээ ч нээхгүй байх

Үл мэдэгдэх домэйн доторх хавсралтыг амархан итгэж, татаж авахгүй байхыг зөвлөж байна. Учир нь тэд хортой програм эсвэл вирусаар хангагдсан байж магадгүй юм. Та тэдгээрийг нээсний дараа Outlook файл руу халдаж магадгүй юм. Өөрөөр хэлбэл, та Outlook файлын авлигад өртөж болзошгүй юм. Тэр үед, тэр ч байтугай Сканнердах танд туслах чадваргүй юм. Таны цорын ганц амралт бол илүү хүчирхэг хэрэгсэл эсвэл PST сэргээх тусгай үйлчилгээ юм.

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

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