Cara Auto Simpan Semua Lampiran dari Pengirim dalam Domain Khusus melalui Outlook VBA

Sekiranya anda ingin membiarkan Outlook menyimpan semua lampiran secara automatik dari pengirim yang alamat e-melnya berada dalam domain tertentu, anda dapat membaca artikel ini. Di sini kami akan memperkenalkan kaedah cepat kepada anda.

Mungkin semua kakitangan di syarikat anda menggunakan alamat e-mel yang berada dalam domain yang sama. Oleh kerana anda sering menghantar e-mel dengan pelbagai lampiran antara satu sama lain, anda mungkin ingin Outlook menyimpan lampiran dari e-mel tersebut secara automatik. Dalam hal ini, Outlook akan diminta untuk memeriksa domain pengirim e-mel dan lampiran simpan secara automatik. Berikut ini, kami akan berkongsi sekeping kod VBA yang dapat merealisasikannya dengan mudah.

Simpan Semua Lampiran secara automatik dari Pengirim dalam Domain Tertentu

1. Pada mulanya, jalankan editor Outlook VBA mengikut “Cara Menjalankan Kod VBA di Outlook Anda".
2. Kemudian, masukkan kod berikut ke dalam modul yang tidak digunakan.

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. Selepas itu, mulakan semula Outlook untuk mengaktifkan makro ini.
4. Sejak itu, setiap kali e-mel masuk masuk ke peti masuk anda, Outlook akan memeriksa domain pengirim secara automatik. Sekiranya sama dengan domain yang telah ditentukan dan mengandungi lampiran, Outlook akan menyimpan lampiran secara automatik ke folder tempatan tertentu.

Jangan Buka Lampiran dari Pengirim di Domain Tidak Dikenal

Sebaiknya jangan mudah mempercayai dan memuat turun lampiran dari mereka yang tidak dikenali. Ini kerana mereka mungkin dikurniakan malware atau virus. Sebaik sahaja anda membukanya, fail Outlook mungkin diserang. Dengan kata lain, anda mungkin mengalami kerosakan fail Outlook. Pada masa itu, walaupun scanpst tidak mampu menolong anda. Satu-satunya tempat peranginan anda adalah alat yang lebih berkuasa atau perkhidmatan pemulihan PST khusus.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com