Jak automatycznie zapisywać wiadomości e-mail programu Outlook na dysku twardym / dysku?
W przypadku kopii zapasowych, dowodów pracy lub innych celów możesz zapisać wiadomości e-mail programu Outlook na dysku twardym. Łatwo jest zapisać kilka wiadomości e-mail na dysku, ręcznie przeciągając je z Outlooka na dysk. Jednak czy wiesz, jak automatycznie zapisywać każdą przychodzącą wiadomość e-mail na dysku? W tym artykule przedstawimy język VBA do obsługi tego w programie Outlook.
Automatycznie zapisuj wiadomości e-mail programu Outlook na dysku twardym / dysku
Automatycznie zapisuj wiadomości e-mail programu Outlook na dysku twardym / dysku
Ta metoda wprowadzi VBA do automatycznego zapisywania każdej przychodzącej wiadomości e-mail w programie Outlook jako osobny plik HTML na określonym dysku. Wykonaj następujące czynności:
1. naciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.
2. Rozwiń Projekt1 i kliknij dwukrotnie Ta sesja programu Outlook aby go otworzyć, a następnie wklej poniższy kod VBA do okna ThisOutlookSession. Zobacz zrzut ekranu:
VBA: Automatycznie zapisuj wiadomości e-mail programu Outlook jako pliki HTML na dysku
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. Zapisz kod VBA i uruchom ponownie program Microsoft Outlook.
Odtąd każdy przychodzący e-mail będzie zapisywany jako indywidualny plik HTML w folderze „MojeEmaile”.
Uwagi:
(1) Ten VBA utworzy folder o nazwie „Moje e-maile” w folderze Dokumenty. Możesz znaleźć automatycznie zapisane e-maile, korzystając z tej ścieżki folderu: C:\Użytkownicy\nazwa_użytkownika\Documents\MojeEmaile
(2) Ten VBA będzie działać z wiadomościami e-mail otrzymanymi w folderze Skrzynka odbiorcza domyślnego konta e-mail.
Powiązane artykuły
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.