Kuinka tallentaa useita valittuja sähköposteja MSG-tiedostoina kerralla Outlookissa?
Sähköpostin tallentaminen MSG-tiedostona on helppoa Outlookissa. Kuinka voit tallentaa useita valittuja sähköposteja yksittäisinä MSG-tiedostoina kerralla Outlookissa? Tämä artikkeli näyttää sinulle tavan saavuttaa se.
Tallenna useita valittuja sähköpostiviestejä MSG-tiedostoina VBA-koodilla
Tallenna useita valittuja sähköpostiviestejä MSG-tiedostoina VBA-koodilla
Seuraava VBA-koodi voi auttaa sinua tallentamaan useita valittuja sähköposteja yksittäisinä MSG-tiedostoina kerralla Outlookissa. Toimi seuraavasti.
1. Valitse sähköpostit, jotka haluat tallentaa MSG-tiedostoina. Paina sitten "Alt" + "F11" -näppäimiä samanaikaisesti avataksesi Microsoft Visual Basic for Applications -ikkunan.
2. Napsauta Microsoft Visual Basic for Applications -ikkunassa "Lisää" > "Moduuli" ja kopioi alla oleva VBA-koodi Moduuli-ikkunaan.
VBA-koodi: Tallenna useita valittuja sähköpostiviestejä yksittäisinä MSG-tiedostoina Outlookissa
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 Sub3. Paina "F5"-näppäintä suorittaaksesi koodin.
4. Määritä "Selaa kansiota" -valintaikkunassa kansio, johon MSG-tiedostot tallennetaan, ja napsauta sitten "OK"-painiketta. Katso kuvakaappaus:
Nyt kaikki valitut sähköpostit tallennetaan yksittäisinä MSG-tiedostoina alla olevan kuvakaappauksen mukaisesti.
Tallenna valitut sähköpostit helposti eri muototiedostoina Outlookissa:
"Joukkotallennus"hyöty"Kutools Outlookille", voit helposti tallentaa useita valittuja sähköposteja yksittäisenä HTML-muotoisena tiedostona, TXT-muotoisena tiedostona, Word-asiakirjana, CSV-tiedostona sekä PDF-tiedostona Outlookissa alla olevan kuvakaappauksen mukaisesti. Lataa Kutools for Outlookin ilmainen versio nyt!
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 ...
