Salt la conținutul principal

Cum se salvează mai multe e-mailuri selectate ca fișiere MSG în bloc în Outlook?

Este ușor să salvați un e-mail ca fișier MSG în Outlook. Cum puteți salva mai multe e-mailuri selectate ca fișiere MSG individuale în bloc în Outlook? Acest articol vă va arăta o metodă de realizare.

Salvați mai multe e-mailuri selectate ca fișiere MSG cu cod VBA


Salvați mai multe e-mailuri selectate ca fișiere MSG cu cod VBA

Următorul cod VBA vă poate ajuta să salvați mai multe e-mailuri selectate ca fișiere MSG individuale în bloc în Outlook. Vă rugăm să faceți următoarele.

1. Selectați e-mailurile pe care doriți să le salvați ca fișiere MSG. Apoi apăsați simultan tastele Alt + F11 pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. În fereastra Microsoft Visual Basic pentru aplicații, faceți clic pe Insert> Module, apoi copiați mai jos codul VBA în fereastra Module.

Cod VBA: Salvați mai multe e-mailuri selectate ca fișiere MSG individuale în Outlook

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. Apăsați tasta F5 pentru a rula codul.

4. În caseta de dialog Căutare folder, specificați un folder pentru salvarea fișierelor MSG și apoi faceți clic pe butonul OK. Vedeți captura de ecran:

Acum toate e-mailurile selectate sunt salvate ca fișiere MSG individuale, așa cum este prezentat mai jos.


Salvați cu ușurință e-mailurile selectate ca fișiere de format diferit în Outlook:

Cu Salvare în bloc utilitatea Kutools pentru Outlook, puteți salva cu ușurință mai multe e-mailuri selectate ca fișier individual format HTML, fișier format TXT, document Word, fișier CSV, precum și fișier PDF în Outlook, așa cum a arătat imaginea de mai jos. Descărcați și încercați acum! (traseu gratuit de 60 de zile)


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

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