A különböző színű kategóriájú e-mailek automatikus áthelyezése különböző mappákba az Outlook programban

Ha azt szeretné, hogy az Outlook automatikusan áthelyezze az e-maileket különböző mappákba, amikor különböző színkategóriákat rendel hozzájuk, használhatja az ebben a bejegyzésben bemutatott módszert.

Sok felhasználó olyan módszerekre vágyik, amelyek automatikusan áthelyezik az e-maileket egy adott mappába, ha egy bizonyos színkategória hozzá van rendelve. Kétségtelenül az Outlook nem kínál ilyen közvetlen szolgáltatást ennek megvalósításához. Ezért a következőkben megtanítjuk Önnek, hogyan szerezheti meg. Most olvassa el a részletes lépéseket.

A különböző színű kategóriájú e-mailek automatikus áthelyezése különböző mappákba

1. Kezdésként indítsa el az Outlook programot.
2. Ezután az Outlookban nyomja meg az „Alt + F11” billentyűket a VBA-szerkesztő eléréséhez.
3. Ezt követően helyezze be a következő VBA-kódot a „ThisOutlookSession” projektbe.

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

Megjegyzések:

• Más mappákban lévő elemek feldolgozásához módosíthatja az „objInboxFolder” objektumot, például az „Application.Session.GetDefaultFolder(olFolderSentMail)” értéket a „Sent Items” mappához.
• Ezenkívül módosítsa a fenti kódban előre definiált színkategóriákat és célmappákat a tényleges eseteknek megfelelően.
• Ezenkívül az „ElseIf” használatával hozzáadhatja a többi választható színkategóriát.

4. Ezután mozgassa a kurzort az „Application_Startup” alprogramban, és nyomja meg az „F5” billentyűt, amely aktiválja ezt a makrót.
5. Végül lőhet egy lövést. Íme az én példám.

• Válasszon ki egy e-mailt az Inbox mappából.
• Ezután rendelje hozzá a „Privát” színkategóriát.
• Ez a levél azonnal a „Beérkezett üzenetek” alatti „Privát” mappába kerül.

Óvatosan kezelje Outlookját

Lehet, hogy több problémába ütközött az Outlook programban. Leggyakrabban az Ön helytelen kezeléséből adódik. Például mindig helytelenül zárja be az Outlookot, például hirtelen kikapcsolja. Vagy nem készített rendszeres időközönként biztonsági másolatot az Outlook adatairól. Minden hasonló művelet sokkal sebezhetőbbé teheti az Outlookot. Mint tudják, ha egy PST-fájl megsérül, rendkívül nehéz megjavítani. Általában véve a postafiók javító eszköz nem hoz hatást. Nincs más választása, mint külső tipp-top segédprogramok, mint pl DataNumen Outlook Repair.

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 SQL helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com