Kako premakniti e-pošto v določeno mapo po dodelitvi določene kategorije v Outlooku?
Recimo, da ste prejetem e-poštnemu sporočilu v Outlooku dodelili kategorijo, potem ko želite, da se to e-poštno sporočilo samodejno premakne v določeno e-poštno mapo z imenom kategorije. Na primer, e-poštno sporočilo, dodeljeno kategoriji »Zasebno«, se bo premaknilo v ime mape »Zasebno« v vašem Outlooku. Kako to doseči? Metoda v tem članku vam lahko pomaga z lahkoto rešiti težavo.
Premaknite e-pošto v določeno mapo po dodelitvi določene kategorije z VBA
Premaknite e-pošto v določeno mapo po dodelitvi določene kategorije z VBA
Spodnja koda VBA lahko pomaga pri samodejnem premikanju e-poštnih sporočil v določeno mapo po dodelitvi določene kategorije v Outlooku. Naredite naslednje.
1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite, da odprete ThisOutlookSession (koda) okno. Nato v okno kopirajte spodnjo kodo VBA. Oglejte si posnetek zaslona:
Koda VBA: po dodelitvi določene kategorije premaknite e-pošto v določeno mapo
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Shranite kodo in znova zaženite Outlook.
4. Od zdaj naprej se pri dodeljevanju kategorije prejemnemu e-poštnemu sporočilu samodejno ustvari mapa z imenom kategorije v mapi »Prejeto«, v kateri je premaknjeno e-poštno sporočilo. Oglejte si posnetek zaslona:
Opombe: Vsa e-poštna sporočila, dodeljena isti kategoriji, bodo samodejno premaknjena v isto mapo. Če pa je e-poštnemu sporočilu dodeljena nova kategorija, bo samodejno ustvarjena nova mapa.
Sorodni članki:
- Kako dodeliti kategorijo odhodni e-pošti v Outlooku?
- Kako obdržati izvirne kategorije pri odgovarjanju ali posredovanju e-pošte v Outlooku?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
