Conas iliomad ríomhphoist roghnaithe a shábháil mar chomhaid MSG ar an mórchóir in Outlook?

Is furasta ríomhphost a shábháil mar chomhad MSG in Outlook. Conas is féidir leat iliomad ríomhphoist roghnaithe a shábháil mar chomhaid MSG aonair ar an mórchóir in Outlook? Taispeánfaidh an t-alt seo modh duit chun é a bhaint amach.

Sábháil ríomhphoist roghnaithe iomadúla mar chomhaid MSG le cód VBA

Sábháil ríomhphoist roghnaithe iomadúla mar chomhaid MSG le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat iliomad ríomhphoist roghnaithe a shábháil mar chomhaid MSG aonair ar an mórchóir in Outlook. Déan mar a leanas le do thoil.

1. Roghnaigh na ríomhphoist is mian leat a shábháil mar chomhaid MSG. Ansin brúigh na heochracha Alt + F11 ag an am céanna chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. I bhfuinneog Microsoft Visual Basic for Applications, cliceáil Ionsáigh> Modúl, agus ansin cóipeáil faoi bhun an chóid VBA isteach i bhfuinneog an Mhodúil.

Cód VBA: Sábháil iliomad ríomhphoist roghnaithe mar chomhaid MSG aonair in 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. Brúigh an eochair F5 chun an cód a rith.

4. Sa bhosca dialóige Brabhsáil Chun Fillteán, sonraigh fillteán le do thoil chun na comhaid MSG a shábháil agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

Anois sábhálfar gach ríomhphost roghnaithe mar chomhaid aonair MSG mar a thaispeántar thíos.

---

Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin Pro: Sábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

Leigh Nios mo       Free Download      Ceannach