Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

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. Dalam artikel ini, kami akan menunjukkan kepada Anda metode mudah untuk mengimpor semua file msg dari sistem file ke folder Outlook yang ditentukan secara detail.

Impor file msg dari sistem file ke folder Outlook dengan kode VBA


Simpan email yang dipilih dengan mudah sebagai file format berbeda di Outlook:

Dengan utilitas Simpan sebagai File dari Kutools untuk Outlook, Anda dapat dengan mudah menyimpan beberapa email yang dipilih sebagai file format HTML individu, file berformat TXT, dokumen Word, file CSV serta file PDF di Outlook seperti yang ditunjukkan screenshot di bawah ini.

Kutools for Outlook: dengan lebih dari sekadar add-in Outlook 40 berguna, bebas untuk mencoba tanpa batasan dalam 45 hari. Download dan uji coba gratis Sekarang!


Impor file msg dari sistem file ke folder Outlook dengan kode VBA

Silakan lakukan sebagai 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 ke jendela Modul.

Kode VBA: Impor file msg dari sistem file ke folder Outlook

Sub ImportMessagesInFolder () Dim xFSO Sebagai Scripting.FileSystemObject Dim xSourceFld Sebagai Scripting.Folder Dim xSourceFldPath Sebagai String Dim xFileItem Sebagai Scripting.File Dim xMSG Sebagai Object Dim xMailItem As MailItem Dim xSaveFld Sebagai Outlook.Folder On Error Resume Next Set xFSO = Scripting Baru. Set FileSystemObject xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Pilih folder:", 0, 0) Jika Bukan TypeName (xSelFolder) = "Tidak Ada" Kemudian xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Keluar dari Sub End Jika Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Atur xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Jika TypeName (xSaveFld) = "Tidak Ada" Kemudian Keluar Sub Akhir Jika Untuk Setiap xFileItem Di xSourceFld.Files Set xMSG = Session.OpenSharedItem (xFileItem.Path) Set xMailItem = xMSG.Copy xMailItem.Move xSaveFld Set xMailItem = Tidak Ada xMSG.Delete Set xMSG = Tidak Ada Next xFileItem Set xFileItem = Tidak Ada Setel xSourceFld = Tidak Ada Atur xFSO = N Sub Bagian Akhir

3. tekan F5 kunci untuk menjalankan kode Di pembukaan Browse Untuk Folder kotak dialog, pilih folder berisi file-file msg Anda akan mengimpor ke folder Outlook, dan kemudian klik OK tombol. Lihat tangkapan layar

4. Sekarang a Pilih Folder kotak dialog muncul, silakan pilih Outlook folder untuk menyimpan file pesan yang diimpor, dan klik OK tombol.

Kemudian semua file msg di folder tertentu dalam sistem file Anda diimpor ke folder Outlook yang ditentukan dengan segera.


Artikel terkait:



Alat Produktifitas yang Direkomendasikan

Office Tab

Bintang emas1 Bawa tab yang berguna ke Excel dan perangkat lunak Office lainnya, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools for Excel

Bintang emas1 Menakjubkan! Tingkatkan produktivitas Anda dalam 5 menit. Tidak perlu keahlian khusus, hemat dua jam setiap hari!

Bintang emas1 300 Fitur Baru untuk Excel, Membuat Excel Lebih Mudah dan Hebat:

  • Gabungkan Sel / Baris / Kolom tanpa Kehilangan Data.
  • Menggabungkan dan mengkonsolidasikan beberapa lembar dan buku kerja.
  • Bandingkan Range, Copy Multiple Ranges, Konversi Teks ke Tanggal, Konversi Unit dan Mata Uang.
  • Hitung dengan Warna, Pager Subtotals, Filter Sort dan Super Tingkat Lanjut,
  • Lebih Pilih / Sisipkan / Hapus / Teks / Format / Link / Komentar / Buku Kerja / Lembar Kerja Alat ...

Tembakan layar dari Kutools untuk Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.