Sut i fewnforio ffeiliau msg o'r system ffeiliau i ffolder Outlook?
Fel rheol, gallwch fewnforio ffeiliau msg o'r system ffeiliau i ffolder Outlook trwy lusgo a gollwng. Yn yr erthygl hon, rydyn ni'n mynd i ddangos dull hawdd i chi fewnforio pob ffeil msg o system ffeiliau i ffolder Outlook penodol mewn manylion.
Mewnforio ffeiliau msg o'r system ffeiliau i ffolder Outlook gyda chod VBA
Mewnforio ffeiliau msg o'r system ffeiliau i ffolder Outlook gyda chod VBA
Gwnewch fel a ganlyn i fewnforio ffeiliau msg o'r system ffeiliau i ffolder benodol yn Outlook.
1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i ffenestr y Modiwl.
Cod VBA: Mewnforio ffeiliau msg o'r system ffeiliau i ffolder 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. Gwasgwch y F5 allwedd i redeg y cod. Yn yr agoriad Porwch Am Ffolder blwch deialog, dewiswch y ffolder sy'n cynnwys y ffeiliau msg y byddwch chi'n eu mewnforio i ffolder Outlook, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
4. Nawr a Dewis Ffolder blwch deialog yn ymddangos, dewiswch Outlook ffolder i achub y ffeiliau msg a fewnforiwyd, a chliciwch ar y OK botwm.
Yna mae'r holl ffeiliau msg mewn ffolder benodol yn eich system ffeiliau yn cael eu mewnforio i ffolder Outlook penodedig ar unwaith.
Yn hawdd arbed e-byst dethol fel ffeiliau fformat gwahanol yn Outlook:
Efo'r Arbed Swmp cyfleustodau Kutools ar gyfer Rhagolwg, gallwch chi arbed sawl e-bost dethol yn hawdd fel ffeil fformat HTML unigol, ffeil fformat TXT, dogfen Word, ffeil CSV yn ogystal â ffeil PDF yn Outlook fel y demo isod a ddangosir.
Dadlwythwch a rhowch gynnig arni nawr! (llwybr am ddim 60 diwrnod)
Erthyglau cysylltiedig:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
