Conas comhaid msg a iompórtáil ón gcóras comhad go fillteán Outlook?
De ghnáth, is féidir leat comhaid msg a iompórtáil ón gcóras comhad chuig fillteán Outlook trí tharraingt agus titim. San Airteagal seo, táimid chun modh éasca a thaispeáint duit chun gach comhad msg a iompórtáil ó chóras comhad chuig fillteán Outlook sonraithe i mionsonraí.
Iompórtáil comhaid msg ón gcóras comhaid go fillteán Outlook le cód VBA
Iompórtáil comhaid msg ón gcóras comhaid go fillteán Outlook le cód VBA
Déan mar a leanas le do thoil chun comhaid msg a iompórtáil ón gcóras comhad go fillteán sonraithe in Outlook.
1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Mhodúil.
Cód VBA: Iompórtáil comhaid msg ón gcóras comhad go fillteán Outlook
Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder：", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
xSourceFldPath = xSelFolder.self.Path + "\"
Else
xSourceFldPath = ""
Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
Exit Sub
End If
For Each xFileItem In xSourceFld.Files
Set xMSG = Session.OpenSharedItem(xFileItem.Path)
Set xMailItem = xMSG.Copy
xMailItem.Move xSaveFld
Set xMailItem = Nothing
xMSG.Delete
Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub3. Brúigh an F5 eochair chun an cód a rith. San oscailt Brabhsáil Chun Fillteán bosca dialóige, roghnaigh an fillteán ina bhfuil na comhaid msg a iompórtálfaidh tú chuig fillteán Outlook, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:
4. Anois a Roghnaigh Fillteán bosca dialóige aníos, roghnaigh le do thoil Outlook fillteán chun na comhaid msg allmhairithe a shábháil, agus cliceáil ar an OK cnaipe.
Ansin iompórtáiltear gach comhad msg i bhfillteán áirithe i do chóras comhad i bhfillteán Outlook sonraithe láithreach.
Sábháil ríomhphoist roghnaithe go héasca mar chomhaid bhformáid dhifriúla in Outlook:
Leis an Sábháil Bulc fóntais de Kutools le haghaidh Outlook, is féidir leat iliomad ríomhphoist roghnaithe a shábháil go héasca mar chomhad formáide HTML aonair, comhad formáide TXT, doiciméad Word, comhad CSV chomh maith le comhad PDF in Outlook mar an taispeántas thíos a thaispeántar.
Íoslódáil agus bain triail as anois! (trasáil saor in aisce 60 lá)
Earraí gaolmhara:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
