Bagaimana cara mengimpor file msg dari sistem file ke folder Outlook?
Biasanya, Anda dapat mengimpor file msg dari sistem file ke folder Outlook dengan menyeret dan menjatuhkan. Pada artikel ini, kami akan menunjukkan kepada Anda metode mudah untuk mengimpor semua file msg dari sistem file ke folder Outlook tertentu secara detail.
Impor file msg dari sistem file ke folder Outlook dengan kode VBA
Impor file msg dari sistem file ke folder Outlook dengan kode VBA
Lakukan hal berikut untuk mengimpor file msg dari sistem file ke folder tertentu di Outlook.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela Modul.
Kode VBA: Impor file msg dari sistem file ke folder 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 Sub
3. tekan F5 kunci untuk menjalankan kode. Dalam pembukaan Jelajahi Folder kotak dialog, pilih folder yang berisi file pesan yang akan Anda impor ke folder Outlook, lalu klik OK tombol. Lihat tangkapan layar:
4. Sekarang a Pilih Folder kotak dialog muncul, pilih Outlook folder untuk menyimpan file pesan yang diimpor, dan klik OK .
Kemudian semua file pesan dalam folder tertentu di sistem file Anda akan segera diimpor ke folder Outlook tertentu.
Simpan email yang dipilih dengan mudah sebagai file format berbeda di Outlook:
Dengan Simpan Massal kegunaan Kutools untuk Outlook, Anda dapat dengan mudah menyimpan beberapa email yang dipilih sebagai file format HTML individual, file format TXT, dokumen Word, file CSV serta file PDF di Outlook seperti yang ditunjukkan pada demo di bawah ini.
Unduh dan coba sekarang! (Jejak gratis 60 hari)
Artikel terkait:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!