Kuinka tallentaa Outlook-sähköpostit automaattisesti kiintolevylle/levylle?
Varmuuskopiointia, työtodistuksia tai muita tarkoituksia varten kannattaa ehkä tallentaa Outlook-sähköpostit kiintolevylle. Useiden sähköpostien tallentaminen levylle on helppoa vetämällä manuaalisesti Outlookista levylle. Tiedätkö kuitenkin, kuinka jokainen saapuva sähköposti tallennetaan automaattisesti levylle? Tässä artikkelissa esitellään VBA, joka käsittelee sitä Outlookissa.
Tallenna Outlook-sähköpostit automaattisesti kiintolevylle/levylle
Tallenna Outlook-sähköpostit automaattisesti kiintolevylle/levylle
Tämä menetelmä ottaa käyttöön VBA:n, joka tallentaa automaattisesti jokaisen Outlookin saapuvan sähköpostin yksittäisenä HTML-tiedostona tietylle levylle. Toimi seuraavasti:
1. Paina "Alt" + "F11"-näppäimiä avataksesi Microsoft Visual Basic for Applications -ikkunan.
2. Laajenna Project1 ja avaa se kaksoisnapsauttamalla "ThisOutlookSession" ja liitä sitten VBA-koodi alla ThisOutlookSession-ikkunaan. Katso kuvakaappaus:
VBA: Tallenna Outlook-sähköpostit automaattisesti HTML-tiedostoina levylle
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. Tallenna VBA-koodi ja käynnistä Microsoft Outlook uudelleen.
Tästä eteenpäin jokainen saapuva sähköposti tallennetaan erillisenä HTML-tiedostona "MyEmails"-kansioon.
Huomautuksia:
(1) Tämä VBA luo kansion nimeltä "MyEmails" Documents-kansioon. Löydät automaattisesti tallennetut sähköpostit tällä kansiopolulla: C:\Käyttäjät\käyttäjänimesi\Documents\MyEmails
(2) Tämä VBA toimii oletussähköpostitilin Saapuneet-kansioon saapuneiden sähköpostien kanssa.
Aiheeseen liittyvät artikkelit
Kuinka viedä joukko / valitut sähköpostit Excel-/teksti-/PST-tiedostoon Outlookissa?
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
