Hogyan lehet több kiválasztott e-mailt tömegesen elmenteni MSG fájlként az Outlook programban?
Könnyen menthet egy e-mailt MSG fájlként az Outlook programba. Hogyan menthet több kiválasztott e-mailt külön MSG fájlként tömegesen az Outlook programban? Ez a cikk bemutatja az elérés módját.
Több kiválasztott e-mailt MBA fájlként menthet VBA kóddal
Több kiválasztott e-mailt MBA fájlként menthet VBA kóddal
A következő VBA-kód segítségével több kiválasztott e-mailt külön MSG fájlként menthet tömegesen az Outlook programban. Kérjük, tegye a következőket.
1. Válassza ki azokat az e-maileket, amelyeket MSG fájlként szeretne menteni. Ezután nyomja le az Alt + F11 billentyűket egyszerre a Microsoft Visual Basic for Applications ablak megnyitásához.
2. A Microsoft Visual Basic for Applications ablakban kattintson a Beszúrás> Modul elemre, majd másolja a VBA kód alatt a Modul ablakba.
VBA-kód: Több kiválasztott e-mailt külön MSG fájlként menthet az Outlook programba
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. Nyomja meg az F5 billentyűt a kód futtatásához.
4. A Tallózás mappában párbeszédpanelen adja meg az MSG fájlok mentéséhez szükséges mappát, majd kattintson az OK gombra. Lásd a képernyőképet:
Most az összes kiválasztott e-mailt egyedi MSG fájlként menti, az alábbi képernyőképen.
Könnyen mentheti a kijelölt e-maileket különböző formátumú fájlként az Outlook programban:
Aktivitáskövető Tömeges mentés hasznossága Kutools az Outlook számára, könnyedén elmenthet több kiválasztott e-mailt, külön HTML formátumú fájlként, TXT formátumú fájlként, Word dokumentumként, CSV fájlként, valamint PDF fájlként az Outlook programban, ahogy az alábbi képernyőkép mutatja. Töltse le és próbálja ki most! (60 napos ingyenes túra)
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.