Ako automaticky archivovať e-mail programu Outlook pri priraďovaní špecifickej kategórie farieb

Niektorí používatelia si želajú, aby program Outlook mohol automaticky archivovať položku programu Outlook hneď, ako k nej priradia konkrétnu farebnú kategóriu, napríklad kategóriu „Archív“. V tomto post, podelíme sa s vami o metódu, ktorá môže brať ako príklad e-mail programu Outlook.

V predvolenom nastavení môžete Outlook nastaviť tak, aby automaticky archivoval položky na základe časových intervalov. V skutočnosti by však mnohí používatelia chceli automaticky archivovať položky podľa farebných kategórií. Napríklad, keď na e-mail použijete konkrétnu farebnú kategóriu, Outlook ho môže okamžite archivovať. Hoci to predvolené funkcie Outlooku nedokážu realizovať, stále môžete použiť nasledujúci kód VBA, aby ste to dosiahli jednoducho.

Automaticky archivovať e-mail programu Outlook pri priraďovaní špecifickej kategórie farieb

Automaticky archivovať e-mail pri priraďovaní špecifickej farebnej kategórie

  1. Hneď na úvod starváš program Outlook.
  2. Na nasledujúcej hlavnej obrazovke programu Outlook stlačte klávesy „Alt + F11“.
  3. Potom sa dostanete do editora VBA, v ktorom musíte nájsť a otvoriť projekt „ThisOutlookSession“.
  4. Ďalej môžete skopírovať nasledujúci kód VBA do tohto okna projektu.
Verejné WithEvents objInspectors ako Outlook. Inšpektori Verejné WithEvents objExplorer ako Outlook. Explorer Verejné WithEvents objMail ako Outlook.MailItem Súkromná čiastková aplikácia_Startup() Set objInspectors = Outlook.Application.Inspectors Set objExplorer = Outlook.Application.ActiveExplorer End Sub Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector) If Inspector.CurrentItem.Class = olMail Then Set objMail = Inspector.SubCurrentItem End If End Sub objExplorer_SelectionChange() On Error Pokračovať Ďalej If objExplorer.Selection.Item(1).Class = olMail Then Set objMail = objExplorer.Selection.Item(1) End If End Sub Private Sub objMail_PropertyChange(ByVal objold Name As OutlookF) .Folder Dim objArchivePSTFile As Outlook.Folder Dim objArchiveFolder As Outlook.Folder If Name = "Categories" Then "If "Archive" Categories is prirade to this email If InStr(objMail.Categories, "Archive") Potom nastavte objCurrentFolder = objMail „Otvorte konkrétny súbor Archive Outlook PST vo vašej aplikácii Outlook Application.Session.AddStore „C:\Users\Test\Documents\Outlook Files\Archive.pst“ Nastaviť objArchivePSTFile = Application.Session.folders("Archives") pri chybe Pokračovať ďalej Set objArchiveFolder = objArchivePSTFile.folders(objCurrentFolder.Name) Ak objArchiveFolder nie je nič, potom nastavte objArchiveFolder = objArchivePSTFile.folders.Add(objCurrentFolder.Name) End If 'Archive This Session.RemoveStore objArchivePSTFile End If End If End Sub

Kód VBA – automatická archivácia e-mailu programu Outlook pri priraďovaní špecifickej kategórie farieb

  1. Potom by ste mali podpísať tento kód.
  2. Potom zmeňte nastavenia zabezpečenia makier programu Outlook, aby ste sa uistili, že sú povolené podpísané makrá.
  3. Nakoniec by ste mali reztardo Outlooku aktivovať toto nové makro.
  4. Odvtedy vždy, keď k e-mailu programu Outlook priradíte konkrétnu farebnú kategóriu, napríklad „Archív“ preddefinovanú v kóde vyššie, archivuje sa do vášho predvoleného súboru Archive Outlook PST.

Zachráňte svoje údaje PST po zlyhaniach

Úprimne povedané, žiadny program nie je dostatočne výkonný, aby sa vyhol chybám alebo zlyhaniu. To isté platí pre aplikáciu Outlook. Preto je pre bežných používateľov Outlooku veľmi ťažké zablokovať poškodenie Outlooku. Efektívnejším preventívnym opatrením je zohnať silný Oprava PST užitočnosť, ako napr DataNumen Outlook Repair. Môže vám prísť na pomoc hneď, ako narazíte na poškodenie PST.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *