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
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 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 Pro: Salvaț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.