Preskoči na glavno vsebino

Kako shraniti več izbranih e-poštnih sporočil kot množične datoteke MSG v Outlooku?

V Outlooku je enostavno shraniti e-pošto kot datoteko MSG. Kako lahko v Outlooku v večjem obsegu shranite več izbranih e-poštnih sporočil kot posamezne datoteke MSG? Ta članek vam bo pokazal način, kako to doseči.

Shranite več izbranih e-poštnih sporočil kot datoteke MSG s kodo VBA


Shranite več izbranih e-poštnih sporočil kot datoteke MSG s kodo VBA

Naslednja koda VBA vam lahko pomaga shraniti več izbranih e-poštnih sporočil kot množične datoteke MSG v razsutem stanju v programu Outlook. Naredite naslednje.

1. Izberite e-poštna sporočila, ki jih želite shraniti kot datoteke MSG. Nato hkrati pritisnite tipki Alt + F11, da odprete okno Microsoft Visual Basic for Applications.

2. V oknu Microsoft Visual Basic for Applications kliknite Vstavi> Modul in nato v okno Modul kopirajte pod kodo VBA.

Koda VBA: V Outlooku shranite več izbranih e-poštnih sporočil kot posamezne datoteke MSG

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Pritisnite tipko F5, da zaženete kodo.

4. V pogovornem oknu Prebrskaj za mapo določite mapo za shranjevanje datotek MSG in kliknite OK gumb. Oglejte si posnetek zaslona:

Zdaj so vsa izbrana e-poštna sporočila shranjena kot posamezne datoteke MSG, kot je prikazano na spodnji sliki.


Preprosto shranite izbrana e-poštna sporočila kot datoteke različnih formatov v Outlooku:

Z Shranjevanje v velikem obsegu uporabnost Kutools za Outlook, lahko enostavno shranite več izbranih e-poštnih sporočil kot posamezne datoteke formata HTML, datoteke formata TXT, Wordovih dokumentov, CSV datotek in PDF datotek v Outlooku, kot je prikazano spodaj. Prenesite in preizkusite zdaj! (60-dnevna brezplačna pot)


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It doesn't seem to work when emails are displayed in conversation mode or from a Group folder.
This comment was minimized by the moderator on the site
Hi, i am new to macro. i am looking for a macro that allows me to save the filename, not by subject or time. But by the reference # found inside the email body. This macro works well when i save multiple emails into my folder. But as i want each email to be saved using the reference #, would you have a macro for it? The reference # is found on the 6th row of the emails body (REF : WL344ET2), that i received everyday. Appreciate if anyone can help on this and thank you in advance.
This comment was minimized by the moderator on the site
When there is a ":" in the subject, this code cannot copy the whole subject to be the name of the saved message, is there any way to solve this problem?
This comment was minimized by the moderator on the site
change line 21 to xName="". The saved message filname will not include the subject anymore.
This comment was minimized by the moderator on the site
A better way is to always replace ":" with blanks adding this line under xName = xMail.Subject

xName = Replace(xName, ":", "")
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations