Pri opätovnom odosielaní alebo preposielaní e-mailu možno nebudete chcieť uložiť kópiu do priečinka Odoslané položky. Tento článok vás naučí, ako nakonfigurovať program Outlook tak, aby vyžadoval uloženie kópie pomocou aplikácie Outlook VBA.
V skutočnosti by ste mali pre väčšinu bežných e-mailov uprednostňovať ukladanie ich kópií do priečinka Odoslaná pošta. V niektorých situáciách, napríklad pri opätovnom odosielaní, preposielaní e-mailu alebo keď tento e-mail obsahuje veľmi veľkú prílohu, však môžete považovať za zbytočné uchovávať kópiu. Za týchto okolností by ste mali dúfať, že vás Outlook na to upozorní a umožní vám urobiť rozhodnutia.
Riešenie: Využite možnosť „Neukladať“
Outlook v skutočnosti túto funkciu nemá. Môžete však použiť riešenie. To je možnosť „Neuložiť“ v okne správy. Prístup k nej získate prepnutím na kartu „Možnosti“ a následným kliknutím na tlačidlo „Uložiť odoslanú položku do“, napríklad na nasledujúcej snímke obrazovky:
Pre ľahší prístup k tejto možnosti ju môžete pridať na Panel s nástrojmi Rýchly prístup. Kliknite na ňu pravým tlačidlom myši a v rozbaľovacej ponuke zvoľte možnosť „Pridať na panel nástrojov Rýchly prístup“.
Odteraz, ak si nechcete uložiť kópiu, môžete jednoducho zaškrtnúť políčko vedľa možnosti „Neukladať“ na paneli s nástrojmi Rýchly prístup. Aj keď je tento spôsob skutočne pohodlný, väčšina používateľov sa stále sťažuje, že často zabudnú zaškrtnúť políčko. Preto stále túžia po kontextovom okne Outlooku s otázkou, či sa má uložiť kópia. Na dosiahnutie tohto cieľa by ste mali použiť Outlook VBA. Čítajte ďalej a získajte podrobné kódy a kroky.
VBA: Pri odosielaní e-mailov sa opýtajte, či chcete uložiť kópiu alebo nie
- Na prvom mieste spustite program Outlook a prejdite na kartu Vývojár.
- Potom kliknite na tlačidlo „Visual Basic“, ktoré otvorí nové okno.
- V okne „Visual Basic“ dvojitým kliknutím na „ThisOutlookSession“ otvoríte okno projektu „ThisOutlookSession“.
- Ďalej skopírujte a vložte do nej nasledujúce kódy.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strMsg As String
Dim nRes As Integer
strMsg = "Do you want to save a copy of this message?"
nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm Saving Copy")
If nRes = vbNo Then
Item.DeleteAfterSubmit = True
End If
End Sub
- Potom by ste mali tento kód podpísať ako obvykle a zmeniť nastavenia makra tak, aby boli povolené iba digitálne podpísané makra.
- Nakoniec to môžete vyskúšať. Po kliknutí na tlačidlo „Odoslať“ sa zobrazí upozornenie programu Outlook, napríklad nasledujúci obrázok. Ak zvolíte tlačidlo „Nie“, aktuálna správa sa neuloží do priečinka Sent Items. Ak stlačíte tlačidlo „Áno“, táto správa sa uloží.
Vyrovnajte sa s častými problémami s programom Outlook
Rovnako ako iné aplikácie, aj Outlook môže trpieť rôznymi problémami, napríklad náhlym zlyhaním, nereagovaním, občasnými chybovými hláseniami a podobne. Preto, ak ste bežným používateľom Outlooku, radšej si zaobstarajte Nástroj na opravu súborov programu Outlook, Ako DataNumen Outlook Repair v tom, že sa vám bude hodiť, keď zistíte, že váš súbor Outlook je z nejakých neznámych dôvodov poškodený.
Ú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 SQL Server poškodenie databázy mdf a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S