Hur sparar jag Outlook-e-postmeddelanden automatiskt till hårddisk / disk?
För säkerhetskopiering, arbetsbevis eller andra ändamål kan du spara Outlook-e-postmeddelanden på hårddisken. Det är enkelt att spara flera e-postmeddelanden på disken genom att manuellt dra från Outlook till disk. Men vet du hur man automatiskt sparar varje inkommande e-post till disk? Denna artikel kommer att introducera en VBA för att hantera den i Outlook.
Spara Outlook-e-postmeddelanden automatiskt på hårddisken / disken
Spara Outlook-e-postmeddelanden automatiskt på hårddisken / disken
Denna metod introducerar en VBA för att automatiskt spara varje inkommande e-postmeddelande i Outlook som enskild HTML-fil till den specifika disken. Gör så här:
1. Tryck andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.
2. Expandera Project1 och dubbelklicka ThisOutlookSession för att öppna den och klistra sedan in under VBA-koden i ThisOutlookSession-fönstret. Se skärmdump:
VBA: Spara Outlook-e-post automatiskt som HTML-filer på disken
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. Spara VBA-koden och starta om din Microsoft Outlook.
Från och med nu kommer varje inkommande e-postmeddelande att sparas som en individuell HTML-fil i mappen "MyEmails".
Anmärkningar:
(1) Denna VBA kommer att skapa en mapp med namnet "MyEmails" under dokumentmappen. Du kan ta reda på de automatiskt sparade e-postmeddelandena med denna mappsökväg: C:\Users\ditt_användarnamn\Dokument\Mina e-postmeddelanden
(2) Denna VBA kommer att fungera med e-postmeddelanden som tas emot i mappen Inkorg på standarde-postkontot.
Relaterade artiklar
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.