Hogyan lehet automatikusan áthelyezni egy e-mailt egy adott mappába, miután továbbította az Outlookban

A postafiók rendben tartásához megszokhatja, hogy az adott e-maileket az adott mappába mentse. Ebből a cikkből megtudhatja, hogyan használhatja az Outlook VBA-t az e-mail automatikus áthelyezésére a továbbítás után.

A hasonló e-mailek egy adott levélmappában való tárolása jó tipp nagy mennyiségű e-mail kezeléséhez. Az biztos, hogy a különböző felhasználóknak saját kritériumokkal kell rendelkezniük a levelek osztályozására és kezelésére. Előfordulhat például, hogy az e-mailjeit a rájuk vonatkozó nyomon követési műveletek (például válasz, továbbítás vagy egyéb) szerint osztályozza. Ha szeretné automatikusan áthelyezni az e-mailt egy adott mappába, például a „Továbbított” mappába, amikor továbbítja, alkalmazhatja a következő műveleteket és VBA kódokat, hogy gyorsan megkapja.

Az e-mail automatikus áthelyezése egy adott mappába, miután továbbította

1. Először indítsa el az Outlookot.
2. Ezután váltson a „Fejlesztő” fülre.

Jegyzet: Ha nem találja ezt a lapot, először engedélyezze a „Fájl” > „Opciók” > „Szaló testreszabása” menüpontot.

3. Miután ez a fül látható, megtalálja és kattintson alatta a „Visual Basic” gombra.
4. Ezt követően egy új „Microsoft Visual Basic for Applications” ablak jelenik meg. Ennek megnyitásához kattintson duplán a bal oldalon található „ThisOutlookSession” projektre.
5. Ezt követően a következő VBA kódokat másolhatja be és illessze be.

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. Később alá kell írnia az új VBA projektet.

• Először is használja a „Digital Certificates for VBA Projects” beépített eszközt a digitális tanúsítvány létrehozásához.
• Ezután rendelje hozzá a tanúsítványt ehhez a makróhoz, például a következő képernyőképen:

7. Később módosíthatja a makró beállításait, hogy engedélyezze a digitálisan aláírt makrókat.
8. Végül restart Outlook az új makró aktiválásához. Mostantól, ha kiválaszt egy e-mailt, és rákattint a „Továbbítás” gombra, az e-mail azonnal átkerül a „Továbbított” mappába.

Kerülje el a nemkívánatos Outlook PST adatsérülést

Egyikükost Az Outlook felhasználókat régóta sújtó probléma az, hogy az Outlook hajlamos a korrupcióra. Vagyis szenvedés PST sérülés gyakori ügy. Ezért az Outlook adatok elvesztésének elkerülése érdekében jobb, ha konzisztens és naprakész biztonsági másolatot készít a PST-adatokról.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve megvesztegethető SQL Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com