Hogyan lehet automatikusan menteni az Outlook e-maileket merevlemezre / lemezre?
Biztonsági mentés, munka bizonyíték vagy más célból érdemes az Outlook e-maileket merevlemezre menteni. Könnyű több e-mailt lemezre menteni, ha kézzel húzza az Outlook programot a lemezre. Tudja azonban, hogyan kell minden bejövő e-mailt automatikusan lemezre menteni? Ez a cikk bemutatja a VBA-t az Outlook kezeléséhez.
Az Outlook e-mailek automatikus mentése merevlemezre / lemezre
Az Outlook e-mailek automatikus mentése merevlemezre / lemezre
Ez a módszer bevezet egy VBA-t, amely minden bejövő e-mailt automatikusan elment az Outlook-ból, egyedi HTML fájlként az adott lemezre. Kérjük, tegye a következőket:
1. nyomja meg más + F11 gombokkal nyissa meg a Microsoft Visual Basic for Applications ablakot.
2. Bontsa ki a Project1 elemet, és kattintson duplán ThisOutlookSession megnyitásához, majd illessze be a VBA kód alá a ThisOutlookSession ablakba. Lásd a képernyőképet:
VBA: Az Outlook e-mailek automatikus mentése HTML fájlként a lemezre
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. Mentse a VBA kódot, és indítsa újra a Microsoft Outlook programot.
Mostantól minden beérkező e-mailt külön HTML fájlként menti a „MyEmails” mappába.
Megjegyzések:
(1) Ez a VBA létrehoz egy „MyEmails” nevű mappát a Documents mappában. Az automatikusan mentett e-maileket megtudhatja ezzel a mappával: C: \ Users \ felhasználó_neved \ Documents \ MyEmails
(2) Ez a VBA az alapértelmezett e-mail fiók Inbox mappájába érkezett e-mailekkel fog működni.
Kapcsolódó cikkek
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.