Ako automaticky nastaviť čas vypršania platnosti pre prichádzajúce alebo odchádzajúce e-maily pomocou programu Outlook VBA

Ak chcete, aby program Outlook automaticky odstraňoval konkrétne e-maily, môžete nastaviť čas vypršania platnosti e-mailov a pomocou funkcie AutoArchive odstrániť vypršané e-maily, keď vyprší čas. Tento článok vás naučí, ako automaticky nastaviť čas vypršania platnosti všetkých prichádzajúcich e-mailov prostredníctvom aplikácie Outlook VBA.

Vo všeobecnosti môže funkcia AutoArchive pracovať buď s celým priečinkom, alebo s celou poštovou schránkou. Ak ho chcete povoliť iba na odstránenie konkrétnych položiek, budete musieť najskôr určiť čas vypršania platnosti e-mailov. Týmto nabudúce pri spustení automatickej archivácie automaticky vymaže vypršaný čas. Ako navyše vidíte, e-maily s dobou platnosti sa zobrazia sivým prečiarknutým písmom, ako je to na obrázku nižšie.

Čas vypršania platnosti e-mailov môžete nastaviť v aktuálnom okne Vlastnosti e-mailu. To znamená, že to musíte zakaždým zadávať ručne, čo je ťažkopádne.

Za týchto okolností si musíte priať, aby program Outlook mohol automaticky nastaviť čas vypršania platnosti pre prichádzajúce alebo odchádzajúce e-maily. Môžete to dosiahnuť pomocou aplikácie Outlook VBA. Tu sú prepracované kroky a kódy.

Automaticky nastaviť čas vypršania platnosti pre prichádzajúce alebo odchádzajúce e-maily

1. Na prvom mieste spustite aplikáciu Outlook a prejdite na kartu Vývojár.
2. Potom kliknite na tlačidlo „Visual Basic“.
3. V novom vyskakovacom okne otvorte projekt VBA „ThisOutlookSession“ a potom do neho skopírujte a prilepte nasledujúce kódy.

Verejné WithEvents olItems ako položky Private Sub Application_Startup () 'Zamerať sa na nové prichádzajúce e-maily Nastaviť olItems = Application.Session.GetDefaultFolder (olFolderInbox). Položky' Ak sa chcete zamerať na odchádzajúce e-maily 'použite „Nastaviť olItems = Application.Session.GetDefaultFolder (olFolderSentMail). Sub Private Sub olItems_ItemAdd (položka ByVal ako objekt) Dim strMsg ako reťazec Dim nRes ako celé číslo, ak Item.ExpiryTime = # 1/1 / 4501 # Then '("m", 2, Item.ReceivedTime) znamená 2 mesiace po položke dorazí do zadaného priečinka 'Môžete ho zmeniť podľa svojich skutočných potrieb Item.ExpiryTime = DateAdd ("m", 2, Item.ReceivedTime) strMsg = "Nový e-mail" & Chr (34) & Item.Subject & Chr ( 34) & "vyprší dňa" & DateAdd ("m", 2, Item.ReceivedTime) & "." NRes = MsgBox (strMsg, vbExclamation + vbOKOnly, "čas vypršania platnosti") koniec, ak je položka. Uložiť koniec sub

4. Potom by ste mali digitálne podpísať nové makro „ThisOutlookSession“.
5. Následne musíte zmeniť úroveň zabezpečenia makra programu Outlook na nízku.
6. Konečne restart Outlook na aktiváciu projektu VBA. Odteraz bude platnosť všetkých nových e-mailov v priečinkoch Doručená pošta alebo Odoslané položky trvať. Zobrazí sa vám aj okno so správou, ako je nasledujúci obrázok obrazovky.

Majte škodlivé e-maily na serveri Bay

Outlook nemôže byť vyňatý z korupcie, pretože v súčasnosti sa škodlivé e-maily stali jedným z najpopulárnejšíchost spoločné bezpečnostné hrozby. Vírusy je možné v e-mailoch ľahko skryť. Pri práci s novými e-mailmi by ste preto mali byť stále opatrní. V opačnom prípade je veľmi pravdepodobné, že tým budete trpieť Poškodenie súboru Outlook PST, ktorá bude dosť zauzlená.

Ú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 oprava poškodená SQL Server mdf databáza a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S