Cara Otomatis Memindahkan Email Masuk ke Folder Tertentu Berdasarkan Nama File Lampiran

Banyak pengguna berharap Outlook dapat secara otomatis memindahkan dan mengarsipkan email masuk ke folder email tertentu sesuai dengan nama file lampiran. Oleh karena itu, pada artikel kali ini, kami akan memaparkan cara cepat untuk membantu Anda mendapatkannya dengan Outlook VBA.

Jika Anda ingin memindahkan email masuk secara otomatis ke folder tertentu sesuai nama file lampirannya, Anda pasti akan berpikir untuk menggunakan aturan Outlook. Namun, Anda akhirnya akan menemukan bahwa aturan Outlook tidak memiliki fitur untuk memeriksa nama file lampiran. Oleh karena itu, jika Anda memang ingin merealisasikannya, Anda harus menggunakan cara lain, misalnya melalui add-in pihak ketiga atau Outlook VBA. Jadi di sini kami akan mengajari Anda cara mencapainya dengan VBA. Baca terus untuk mendapatkan operasi mendetail dan kode VBA yang konkret.

Pindahkan Otomatis Email Masuk ke Folder Tertentu Berdasarkan Lampiran

1. Untuk sebagaitart, luncurkan program Outlook Anda seperti biasa.
2. Kemudian tekan tombol "Alt + F11" untuk mengakses editor VBA.
3. Di jendela "Microsoft Visual Basic for Applications" berikutnya, Anda dapat menemukan dan mengklik dua kali proyek "ThisOutlookSession" di sisi kiri.
4. Selanjutnya di jendela proyek "ThisOutlookSession" yang dibuka, salin dan tempel kode 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. Selanjutnya, Anda perlu menandatangani proyek VBA baru secara digital.

• Pertama, Anda dapat menggunakan alat bawaan – Sertifikat Digital untuk Proyek VBA untuk membuat sertifikat pribadi.
• Kemudian di editor VBA, klik "Alat" > "Tanda Tangan Digital" di bilah alat.
• Selanjutnya ikuti petunjuk di layar untuk menandatanganinya.

6. Setelah itu, Anda dapat keluar dari editor VBA dan mengubah keamanan makro Outlook menjadi rendah.
7. Nanti Anda harus restart Outlook untuk mengaktifkan proyek VBA baru.
8. Akhirnya, mulai sekarang, Outlook akan secara otomatis memeriksa nama file lampiran dari semua email yang masuk dan memindahkan yang spesifik ke folder tertentu.

Lindungi Data PST Anda

Itu almost fakta yang tidak perlu dipertanyakan lagi bahwa Outlook rentan terhadap korupsi. Oleh karena itu, merupakan tugas yang cukup sulit untuk melindungi data PST Anda dari kerusakan. Tetapi Anda masih dapat menemukan beberapa aturan dan tip. Misalnya, untuk mencegah hilangnya data PST, Anda dapat tetap membuat cadangan data secara teratur. Selain itu, untuk memberikan penyelamatan segera setelah Outlook crash, Anda dapat mempersiapkan yang berpengalaman Perbaikan PST alat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server pemulihan dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com