Přejít k hlavnímu obsahu

Jak archivovat bez příloh v aplikaci Outlook?

Autor: Kelly Naposledy změněno: 2018-04-11

Obecně funkce Archiv aplikace Outlook uloží všechny prvky e-mailu, včetně obsahu e-mailu, záhlaví e-mailu, e-mailových příloh atd. Přílohy však mohou způsobit, že archivovaný soubor PST bude objemný. Zde představím dvě řešení pro archivaci bez příloh v Outlooku.

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou
Odemkněte Kutools pro Outlook uvolnit verze nyní a užijte si více než 70 funkcí s neomezeným přístupem navždy
Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si 70+ výkonných funkcí a vylepšete svůj e-mailový zážitek!

Archiv bez příloh VBA

Tato metoda zavede VBA k odstranění všech příloh ze zadané složky, kterou budete archivovat, a poté můžete archivovat bez příloh. Postupujte prosím následovně:

1. V Poštovní zásilka zobrazení, vyberte složku, kterou chcete archivovat, a stiskněte Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula poté vložte pod VBA do nového okna modulu.

VBA: Odeberte všechny přílohy z vybrané poštovní složky v aplikaci Outlook

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & "" End If Wend If xDeletedFilePath <> "" Then If xMailItem.BodyFormat <> olFormatHTML Then xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body Else xMailItem.HTMLBody = "

" & _ "The file(s) were saved to: " & xDeletedFilePath & "

" & xMailItem.HTMLBody End If xMailItem.Save xDeletedFilePath = "" End If End If Next Exit Sub: Set xAttachments = Nothing Set xMailItem = Nothing End Sub

3. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro spuštění kódu. Poté jsou všechny přílohy okamžitě odstraněny z vybrané poštovní složky.

4, klikněte Soubor > Informace > Tools > Vyčistěte staré položky (nebo Soubor > Informace > Nástroje pro čištění > Archiv).

5. V dialogovém okně Archiv kliknutím zvýrazněte zkopírovanou složku a zadejte DNES v Archivovat položky starší než a poté klikněte na Procházet knoflík. Viz screenshot:

6. V dialogovém okně Otevřít datové soubory aplikace Outlook otevřete složku, do které uložíte archivovaný soubor PST, pojmenujte soubor PST v Název souboru a poté klikněte na OK knoflík. Viz screenshot:

7. Nyní se vrátíte do dialogového okna Archiv, klikněte prosím na OK dokončete archivaci.
Dosud jste archivovali poštovní složku bez příloh.


Archivujte bez příloh od Kutools pro Outlook

Pokud máte nainstalovaný program Kutools pro aplikaci Outlook, můžete jej použít Odpojit vše funkce pro rychlé odstranění všech příloh z určené složky, kterou budete archivovat, a poté snadno archivaci bez příloh.

Kutools pro aplikaci Outlook: Ultimate Outlook Toolkit s více než 100 praktickými nástroji. Vyzkoušejte to ZDARMA na 30 dní, bez omezení, bez starostí!   Čtěte více...   Začněte bezplatnou zkušební verzi hned teď!

1. V Poštovní zásilka zobrazit, otevřete zadanou poštovní složku, kterou budete archivovat, stisknutím vyberte všechny e-maily Ctrl + A klávesy a potom klepněte na Kutools > Odpojit vše. Viz snímek obrazovky:

2. V dialogovém okně Vyberte složku klepněte na Procházet tlačítko  pro určení složky, do které přílohu uložíte, zadejte styl podsložky z vytvořte podsložky v následujícím stylu rozevírací seznam a klikněte na ikonu Ok knoflík. Viz screenshot:

3. prosím klikněte Ano Tlačítko a OK postupně ve vyskakovacích dialogových oknech.

4. Pokračujte kliknutím Soubor > Informace > Tools > Vyčistěte staré položky (nebo Soubor > Informace > Nástroje pro čištění > Archiv).

5. V dialogovém okně Archivovat kliknutím zvýrazněte zadanou složku, kterou budete archivovat bez příloh, zadejte DNES v Archivovat položky starší než a poté klikněte na Procházet knoflík. Viz screenshot:

6. V dialogovém okně Otevřít datové soubory aplikace Outlook otevřete složku, do které uložíte archivovaný soubor PST, pojmenujte soubor PST v Název souboru a poté klikněte na OK knoflík. Viz screenshot:

7. Nyní se vrátíte do dialogového okna Archiv, klikněte prosím na OK dokončete archivaci.

Doposud jste zadanou poštovní složku archivovali již bez příloh.

Kutools pro aplikaci Outlook: Doplňte Outlook s více než 100 nástroji, které musíte mít. Zkušební jízda ZDARMA po dobu 30 dnů, bez závazků!   Čtěte více...   Stáhnout nyní!


Související články


Nejlepší nástroje pro produktivitu v kanceláři

Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!

Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!

🤖 Kutools AI : Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Připomenout e-maily  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Připomeňte si, když přijdou důležité e-maily  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Okamžitě odemkněte Kutools pro Outlook jediným kliknutím –trvale volný. nečekej, stáhněte si nyní a zvyšte svou efektivitu!

kutools pro funkce aplikace Outlook1 kutools pro funkce aplikace Outlook2
 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations