Cara Auto Memindahkan E-mel Masuk ke Folder Tertentu Berdasarkan Nama Fail Lampiran

Ramai pengguna berharap Outlook dapat memindahkan dan mengarkibkan e-mel masuk secara automatik ke folder mel tertentu mengikut nama fail lampiran. Oleh itu, dalam artikel ini, kami akan mendedahkan cara cepat untuk membantu anda mendapatkannya dengan Outlook VBA.

Sekiranya anda ingin memindahkan e-mel masuk ke folder tertentu secara automatik mengikut nama fail lampiran mereka, anda pasti akan memikirkan untuk menggunakan peraturan Outlook di tempat pertama. Walau bagaimanapun, anda akhirnya akan mengetahui bahawa peraturan Outlook tidak mempunyai ciri untuk memeriksa nama fail lampiran. Oleh itu, jika anda benar-benar ingin menyedarinya, anda harus menggunakan cara lain, misalnya, melalui add-in pihak ketiga atau Outlook VBA. Jadi di sini kami akan mengajar anda bagaimana mencapainya dengan VBA. Teruskan membaca untuk mendapatkan operasi terperinci dan kod VBA konkrit.

Pindahkan E-mel Masuk secara automatik ke folder tertentu berdasarkan lampiran

1. Untuk sebagaitart, lancarkan program Outlook anda seperti biasa.
2. Kemudian tekan butang "Alt + F11" untuk mengakses editor VBA.
3. Di tetingkap "Microsoft Visual Basic for Applications" berikutnya, anda dapat mencari dan mengklik dua kali pada projek "ThisOutlookSession" di sebelah kiri.
4. Selanjutnya di tetingkap projek "ThisOutlookSession" yang dibuka, salin dan tampal kod VBA berikut.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

5. Selepas itu, anda perlu menandatangani projek VBA baru secara digital.

• Pertama, anda boleh menggunakan alat terbina dalam - Sijil Digital untuk Projek VBA untuk membuat sijil peribadi.
• Kemudian di editor VBA, klik "Alat"> "Tandatangan Digital" di bar alat.
• Seterusnya ikuti arahan pada skrin untuk menandatanganinya.

6. Selepas itu, anda boleh keluar dari editor VBA dan menukar keselamatan makro Outlook menjadi rendah.
7. Nanti awak mesti buat keputusantart Outlook untuk mengaktifkan projek VBA baru.
8. Akhirnya, mulai sekarang, Outlook akan memeriksa secara automatik nama fail lampiran semua e-mel yang masuk dan memindahkan yang tertentu ke folder tertentu.

Lindungi Data PST Anda

Ia adalah almost fakta yang tidak dapat dipertikaikan bahawa Outlook terdedah kepada rasuah. Oleh itu, adalah tugas yang sukar untuk melindungi data PST anda daripada kerosakan. Tetapi anda masih boleh menemui beberapa peraturan dan petua. Sebagai contoh, untuk mengelakkan kehilangan data PST, anda boleh terus membuat sandaran data biasa. Lebih-lebih lagi, untuk memberikan penyelamatan segera setelah keruntuhan Outlook, anda dapat mempersiapkan pengalaman Pembaikan PST alat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

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