Cum să mutați automat un e-mail într-un anumit folder după ce îl redirecționați în Outlook

Pentru a vă menține cutia poștală în ordine, vă puteți obișnui să salvați anumite e-mailuri în folderul specific. Acest articol vă va spune cum să utilizați Outlook VBA pentru a muta automat e-mailul după ce îl redirecționați.

Stocarea e-mailurilor similare într-un anumit folder de e-mail este un sfat bun pentru a gestiona o cantitate mare de e-mailuri. Este sigur că utilizatorii diferiți trebuie să aibă propriile criterii pentru clasificarea și gestionarea corespondenței. De exemplu, este posibil să preferați să vă clasificați e-mailurile în funcție de acțiunile dvs. de urmărire asupra acestora, cum ar fi răspunsul, redirecționarea sau altele. Dacă doriți să mutați automat e-mailul într-un folder specific, cum ar fi „Redirecționat”, atunci când îl redirecționați, puteți aplica următoarele operațiuni și coduri VBA pentru a-l primi în timp util.

Mutați automat e-mailul într-un folder specific după ce îl redirecționați

1. În primul rând, lansați Outlook.
2. Apoi treceți la fila „Dezvoltator”.

Notă: Dacă nu găsiți această filă, ar trebui să mergeți la „Fișier” > „Opțiuni” > „Personalizare panglică” pentru a o activa mai întâi.

3. După ce această filă este vizibilă, puteți găsi și faceți clic pe butonul „Visual Basic” de sub ea.
4. Ulterior, va apărea o nouă fereastră „Microsoft Visual Basic for Applications”. În el, ar trebui să faceți dublu clic pe proiectul „ThisOutlookSession” din partea stângă pentru a-l deschide.
5. După aceea, puteți copia și lipi următoarele coduri VBA în el.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

6. Mai târziu vi se va cere să semnați noul proiect VBA.

• În primul rând, utilizați instrumentul încorporat „Certificate digitale pentru proiecte VBA” pentru a crea un certificat digital.
• Apoi atribuiți certificatul acestei macrocomenzi, ca în următoarea captură de ecran:

7. Ulterior, puteți modifica setările macrocomenzilor pentru a permite macrocomenzile semnate digital.
8. În sfârșit restart Outlook pentru a activa noua macrocomandă. De acum înainte, când selectați un e-mail și faceți clic pe butonul „Redirecționare”, e-mailul va fi mutat imediat în folderul „Redirecționat”.

Evitați coruperea nedorită a datelor Outlook PST

Unul din eiost Problemele care i-au afectat pe utilizatorii Outlook de mult timp este că Outlook este predispus la corupție. Adică suferință Daune PST este o chestiune comună. Prin urmare, pentru a preveni pierderea datelor Outlook, ar fi bine să faceți o copie de rezervă consistentă și actualizată pentru datele dvs. PST.

Introducerea autorului:

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