Přejít k hlavnímu obsahu

Jak automaticky ukládat e-maily aplikace Outlook na pevný disk / disk?

Autor: Kelly Naposledy změněno: 2020-12-23

Pro účely zálohování, práce nebo jiných účelů můžete uložit e-maily aplikace Outlook na pevný disk. Je snadné uložit několik e-mailů na disk pomocí ručního přetažení z aplikace Outlook na disk. Víte však, jak automaticky ukládat každý příchozí e-mail na disk? Tento článek představí VBA, která jej bude zpracovávat v Outlooku.

Automaticky ukládat e-maily z Outlooku na pevný disk / disk


Automaticky ukládat e-maily z Outlooku na pevný disk / disk

Tato metoda zavede VBA, aby automaticky ukládal každý příchozí e-mail v aplikaci Outlook jako samostatný soubor HTML na konkrétní disk. Postupujte prosím následovně:

1. lis Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2. Rozbalte Project1 a dvakrát klikněte ThisOutlookSession otevřete jej a poté vložte pod kód VBA do okna ThisOutlookSession. Viz snímek obrazovky:

VBA: Automaticky ukládat e-maily aplikace Outlook jako soubory HTML na disk

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
Dim xNameSpace As Outlook.NameSpace
Set xNameSpace = Outlook.Application.Session
Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
Dim FSO
Dim xMailItem As Outlook.MailItem
Dim xFilePath As String
Dim xRegEx
Dim xFileName As String
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
xFilePath = xFilePath & "\MyEmails"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(xFilePath) = False Then
FSO.CreateFolder (xFilePath)
End If
Set xRegEx = CreateObject("vbscript.regexp")
xRegEx.Global = True
xRegEx.IgnoreCase = False
xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
If objItem.Class = olMail Then
Set xMailItem = objItem
xFileName = xRegEx.Replace(xMailItem.Subject, "")
xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
End If
Exit Sub
End Sub

3. Uložte kód VBA a restartujte Microsoft Outlook.

Od této chvíle bude každý příchozí e-mail ukládán jako samostatný soubor HTML do složky „MyEmails“.

Poznámky:
(1) Tento VBA vytvoří složku s názvem „MyEmails“ ve složce Documents. Automaticky uložené e-maily můžete zjistit pomocí této cesty ke složce: C:\Users\vaše_uživatelské_jméno\Documents\MyEmails
(2) Tento VBA bude fungovat s e-maily přijatými ve složce Doručená pošta výchozího e-mailového účtu.


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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I need to change the folder for one i created (no need folder inbox), and i need to change the folder to store the msg files, in my case in drive e:., thank!!!
This comment was minimized by the moderator on the site
Can i have a certain report that is emailed to me each week save to a place on my hard drive? Just this one email. Comes from same email address and has the same title each week.
This comment was minimized by the moderator on the site
Could you advise how to change this to another folder, not the Inbox?
This comment was minimized by the moderator on the site
Dzień doby, robię wszystko tak jak opisane powyżej, mimo to makro nie chce działać. Czy muszę włączyć jakieś opcję albo zmienić coś w kodzie?
Nie wywala błędu jednak nie tworzy się folder a plik się nie zapisuje.

Będę bardzo wdzięczna za odpowiedź

Pozdrawiam serdecznie
This comment was minimized by the moderator on the site
How can I add the sender's email address to the file name?
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations