Cara Auto Simpan Lampiran E-mel Khusus dengan Outlook VBA

Ramai pengguna berharap Outlook dapat mencari kata-kata tertentu dalam nama lampiran secara automatik dan kemudian menyimpan lampiran tertentu ke folder tempatan di komputer mereka. Artikel ini akan mengajar anda bagaimana mencapainya dengan Outlook VBA.

Dalam karya harian saya, jika lampiran dalam e-mel yang diterima tidak begitu penting, saya lebih suka tidak menyimpannya ke cakera tempatan saya, hanya baca terus di Outlook. Tetapi jika lampiran itu penting, seperti peraturan personel, laporan kerja bulanan, saya akan menyimpannya ke folder tertentu di komputer saya. Dalam kes seperti ini, saya ingin mengkonfigurasi Outlook untuk menyimpan lampiran e-mel secara automatik, yang namanya mengandungi kata-kata tertentu, ke folder tertentu. Oleh itu, saya mengetahui kaedah pantas untuk mewujudkannya dengan Outlook VBA. Berikut adalah kod dan langkah VBA yang terperinci:

Simpan Lampiran E-mel Khusus

1. Pertama, anda harus melancarkan Outlook dan pergi ke tab "Pembangun".
2. Selepas itu, klik pada butang "Visual Basic" dalam kumpulan "Code".
3. Kemudian di tetingkap "Visual Basic", anda harus membuka projek "ThisOutlookSession" dan menyalin kod 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. Selepas itu, anda harus menandatangani kod ini.

• Pertama, gunakan Sijil Digital untuk Projek VBA untuk membuat sijil.
• Kemudian berikan sijil ke kod ini, seperti gambar berikut:

5. Setelah itu, anda dapat keluar dari tetingkap "Visual Basic" saat ini dan klik butang "Tetapan Makro" dalam kumpulan "Kod" di bawah tab "Pembangun".
6. Mulai sekarang, Outlook akan menyimpan lampiran secara automatik, yang namanya mempunyai kata-kata tertentu, ke folder tempatan yang anda tentukan.

Pulihkan dari Kerosakan Outlook yang teruk

Meskipun memiliki banyak fungsi, Outlook masih rentan terhadap rasuah. Oleh itu, anda harus mengawasi semua masalah yang boleh berlaku pada Outlook anda, seperti Kesalahan mel PST, Outlook tidak bertindak balas dan sebagainya. Ketika menghadapi kesalahan, Anda dapat menggunakan alat pembaikan Outlook, ScanPST.exe untuk memperbaikinya. Sekiranya gagal, maka gunakan alat yang lebih berkuasa.

Pengenalan Pengarang:

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