Cara Menyimpan Otomatis Lampiran Email Tertentu dengan Outlook VBA

Banyak pengguna berharap Outlook dapat secara otomatis mencari kata tertentu di nama lampiran lalu menyimpan lampiran tertentu ke folder lokal di komputer mereka. Artikel ini akan mengajari Anda cara melakukannya dengan Outlook VBA.

Dalam pekerjaan saya sehari-hari, jika lampiran dalam email yang diterima tidak terlalu penting, saya memilih untuk tidak menyimpannya ke disk lokal saya, langsung membacanya di Outlook. Tetapi jika lampirannya penting, seperti peraturan kepegawaian, laporan kerja bulanan, saya akan menyimpannya ke folder tertentu di komputer saya. Dalam kasus seperti itu, saya ingin mengonfigurasi Outlook untuk menyimpan lampiran email secara otomatis, yang namanya berisi kata-kata tertentu, ke folder tertentu. Jadi saya menemukan metode cepat untuk mewujudkannya dengan Outlook VBA. Berikut adalah kode dan langkah-langkah VBA yang rumit:

Simpan Otomatis Lampiran Email Tertentu

1. Pertama, Anda harus meluncurkan Outlook dan pergi ke tab "Pengembang".
2. Selanjutnya, klik tombol "Visual Basic" di grup "Kode".
3. Kemudian di jendela "Visual Basic", Anda harus membuka proyek "ThisOutlookSession" dan menyalin kode berikut ke dalamnya.

Public WithEvents olItems As Outlook.Items

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

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim NewMail As Outlook.MailItem
    Dim Atts As Attachments
    Dim Att As Attachment
    Dim strPath As String
    Dim strName As String
 
    If Item.Class = olMail Then
       Set NewMail = Item
    End If
 
    Set Atts = Item.Attachments
 
    If Atts.Count > 0 Then
       For Each Att In Atts
           'Replace "test" with what you want to look for in attachment name
           If InStr(LCase(Att.FileName), "test") > 0 Then
              'Use your wanted destination folder path to save the attachments
              strPath = "C:\Attachments\"
              strName = NewMail.Subject & " " & Chr(45) & " " & Att.FileName
              Att.SaveAsFile strPath & strName
           End If
       Next
    End If
End Sub

4. Setelah itu, Anda harus menandatangani kode ini.

• Pertama, gunakan Sertifikat Digital untuk Proyek VBA untuk membuat sertifikat.
• Kemudian tetapkan sertifikat untuk kode ini, yang ditampilkan sebagai gambar berikut:

5. Setelah itu, Anda dapat keluar dari jendela "Visual Basic" saat ini dan klik tombol "Pengaturan Makro" di grup "Kode" di bawah tab "Pengembang".
6. Mulai sekarang, Outlook akan secara otomatis menyimpan lampiran, yang namanya berisi kata-kata tertentu, ke folder lokal yang Anda tentukan.

Pulih dari Korupsi Outlook yang Parah

Meskipun memiliki banyak fungsi, Outlook masih rentan terhadap korupsi. Dengan demikian Anda harus mengawasi semua masalah yang dapat terjadi pada Outlook Anda, seperti Kesalahan surat PST, Outlook tidak merespons, dan sebagainya. Saat dihadapkan dengan kesalahan, Anda dapat menggunakan alat perbaikan bawaan Outlook, ScanPST.exe untuk memperbaikinya. Jika gagal, gunakan alat yang lebih canggih.

Pengantar Penulis:

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