Ako automaticky ukladať konkrétne odoslané e-maily do konkrétneho priečinka pomocou programu Outlook VBA

V predvolenom nastavení bude Outlook ukladať odoslané e-maily do priečinka „Odoslané položky“. Ak nechcete ukladať konkrétne odoslané e-maily do predvoleného priečinka, môžete použiť metódu uvedenú v tomto článku.

Niektorí používatelia chcú namiesto uloženia do predvoleného priečinka „Odoslané položky“ automaticky ukladať niektoré odoslané e-maily do určeného priečinka. Mnoho ľudí sa tak uchýli k pravidlu Outlooku, ktoré ponúka podobnú akciu - „presunúť kópiu do určeného priečinka“, ktorá sa zobrazuje ako nasledujúca snímka obrazovky. Týmto spôsobom však v skutočnosti je pôvodný odoslaný e-mail stále uložený v priečinku „Odoslané položky“. Do zadaného priečinka sa presunie iba kópia odoslaného e-mailu. Táto vlastnosť zjavne nemôže splniť skutočné potreby.

Používatelia môžu samozrejme manuálne určiť neštandardný priečinok na uloženie odoslaného e-mailu. Stačí prejsť na kartu „Možnosti“ a kliknúť na „Uložiť odoslanú položku do“> „Iný priečinok“. Ale tento prístup bude nepríjemný, pretože používatelia musia zakaždým ručne určiť priečinok.

Teraz, keď obidva vyššie uvedené prostriedky nie sú účinné, prečo sa neprihlásiť k Outlook VBA? Tu sú konkrétne kódy a kroky na automatické ukladanie konkrétnych odoslaných e-mailov do konkrétneho priečinka.

Automatické ukladanie konkrétnych odoslaných e-mailov do konkrétneho priečinka

1. K stars, spustite aplikáciu Outlook.
2. Potom by ste mali stlačiť klávesové skratky „Alt + F11“, ktoré vám pomôžu vstúpiť do okna editora VBA.
3. V rozbaľovacom okne „Microsoft Visual Basic for Applications“ nájdete a dvakrát kliknite na projekt „ThisOutlookSession“ na ľavej strane.
4. Ďalej v otvorenom okne projektu „ThisOutlookSession“ by ste do neho mali skopírovať nasledujúce kódy VBA.

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) Dim SentFolder As Folder Dim desFolder As Folder If TypeName (Item) = "MailItem" And Item.DeleteAfterSubmit = False Then 'Specify the sent emails If InStr (Item.To, " shirley ")> 0 Alebo InStr (LCase (Item.Subject)," test ")> 0 Potom 'Zadajte priečinok na ukladanie odoslaných e-mailov' Môžete ho zmeniť podľa svojich potrieb Nastaviť SentFolder = Application.Session.GetDefaultFolder (olFolderSentMail ) Nastaviť desFolder = SentFolder.Folders ("Test") Nastaviť Item.SaveSentMessageFolder = desFolder Koniec Ak Koniec Ak Koniec Sub

5. Následne by ste mali tento kód podpísať a upraviť úroveň makra programu Outlook na nízku úroveň.
6. Nakoniec môžete opustiť aktuálne okno. Odteraz sa konkrétne odoslané správy automaticky ukladajú do určeného priečinka pošty.

Extra tip: Pri odosielaní zobrazte dialógové okno „Vybrať priečinok“

Existuje niekoľko ľudí, ktorí by chceli manuálne zvoliť priečinok pošty na uloženie odoslaných e-mailov. Ale vždy ísť na kartu „Možnosť“ a zvoliť priečinok bude nepríjemné. V takom prípade si prajú, aby program Outlook mohol pri odosielaní automaticky zobraziť dialógové okno „Vybrať priečinok“. Ako odpoveď na túto požiadavku uvádzam ďalšie kódy VBA. Môžete ho skopírovať do projektu „ThisOutlookSession“.

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) Dim desFolder As Folder If TypeName (Item) = "MailItem" And Item.DeleteAfterSubmit = False Then 'specify the email If InStr (Item.To, "shirley")> 0 Alebo InStr (LCase (Item.Subject), "test")> 0 Potom 'Zobrazte dialógové okno „Vybrať priečinok“ Nastaviť desFolder = Application.Session.PickFolder Nastaviť položku.SaveSentMessageFolder = desFolder Koniec Ak Koniec Ak Koniec Sub

Odteraz vždy, keď dokončíte e-mail a kliknete na tlačidlo „Odoslané“, automaticky sa zobrazí dialógové okno „Vybrať priečinok“, ako na obrázku nižšie. V tom okamihu môžete určiť priečinok, do ktorého sa má uložiť aktuálny odoslaný e-mail.

Opraviť Outlook

Outlook za svoje rôzne funkcie veľa zarába. Napriek tomu je program Outlook pomerne zraniteľný vďaka bohatiu funkcií. Škodlivý e-mail je tiež jedným z most potenciálne hrozby pre údaje programu Outlook. Preto ako bežní používatelia Outlooku radšej uchopte jedného z popredných Nástroj na opravu pošty v programe Outlook PST, Ako DataNumen Outlook Repair. Týmto spôsobom môžete rýchlo vyriešiť rôzne chyby Outlooku a zabezpečiť tak svoje dáta v Outlooku dobre chránené.

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