Cum să salvați automat anumite atașamente de e-mail cu Outlook VBA

Mulți utilizatori speră că Outlook poate căuta automat anumite cuvinte în numele atașărilor și apoi poate salva atașamentele specifice într-un folder local de pe computerele lor. Acest articol vă va învăța cum să realizați acest lucru cu Outlook VBA.

În lucrările mele zilnice, dacă atașamentele din e-mailurile primite nu sunt foarte importante, prefer să nu le salvez pe discul meu local, ci doar să le citesc direct în Outlook. Dar dacă atașamentele sunt importante, cum ar fi regulamentul de personal, raportul lunar de lucru, le voi salva într-un folder specific de pe computer. Într-un astfel de caz, doresc să configurez Outlook să salveze automat atașamentele de e-mail, ale căror nume conțin anumite cuvinte, într-un anumit folder. Așa că aflu o metodă rapidă de a o realiza cu Outlook VBA. Iată codurile și pașii elaborati VBA:

Salvare automată a atașamentelor specifice de e-mail

1. În primul rând, ar trebui să lansați Outlook și să accesați fila „Dezvoltator”.
2. Ulterior, faceți clic pe butonul „Visual Basic” din grupul „Cod”.
3. Apoi, în fereastra „Visual Basic”, ar trebui să deschideți proiectul „ThisOutlookSession” și să copiați următoarele coduri în el.

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. După aceea, ar trebui să semnați acest cod.

• În primul rând, utilizați Certificat digital pentru proiecte VBA pentru a crea un certificat.
• Apoi atribuiți certificatul acestui cod, prezentat în imaginea următoare:

5. După aceea, puteți ieși din fereastra actuală „Visual Basic” și faceți clic pe butonul „Setări macro” din grupul „Cod” din fila „Dezvoltator”.
6. De acum înainte, Outlook va salva automat atașamentele, ale căror nume au cuvintele specifice, în folderul local specificat.

Recuperați de la corupție severă Outlook

În ciuda faptului că se lăuda cu mai multe funcții, Outlook este încă predispus la corupție. Prin urmare, ar trebui să urmăriți toate problemele care pot apărea în Outlook, cum ar fi Eroare de e-mail PST, Outlook nu răspunde și așa mai departe. Când vă confruntați cu erori, puteți utiliza instrumentul de reparare încorporat în Outlook, ScanPST.exe, pentru a le remedia. Dacă nu reușește, atunci recurgeți la un instrument mai puternic.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara SQL Server problema cu fișierul mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com