Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mengimport fail msg dari sistem fail ke folder Outlook?

Biasanya, anda boleh mengimport fail msg daripada sistem fail ke folder Outlook dengan menyeret dan menjatuhkan. Dalam artikel ini, kami akan menunjukkan kaedah yang mudah untuk mengimport semua fail msg dari sistem fail ke folder Outlook tertentu dalam butirannya.

Import fail msg dari sistem fail ke folder Outlook dengan kod VBA


Mudah simpan e-mel yang dipilih sebagai fail format yang berbeza dalam Outlook:

Dengan utiliti Save as File dari Kutools for Outlook, anda boleh menyimpan banyak fail email format fail individu yang tertentu, fail format TXT, dokumen Word, fail CSV serta fail PDF dalam Outlook seperti di bawah menunjukkan screenshot.

Kutools untuk Outlook: dengan lebih daripada 40 Outlook tambahan berguna, bebas untuk mencuba tanpa had pada hari 45. Muat turun dan percubaan percuma Sekarang!


Import fail msg dari sistem fail ke folder Outlook dengan kod VBA

Sila lakukan seperti berikut untuk mengimport fail msg daripada sistem fail ke folder tertentu dalam Outlook.

1. Tekan butang Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul. Kemudian salin di bawah kod VBA ke dalam tetingkap Modul.

Kod VBA: Import fail msg dari sistem fail ke folder Outlook

Sub ImportMessagesInFolder () Dim xFSO Sebagai Scripting.FileSystemObject Dim xSourceFld Sebagai 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. XSUM, 0, 0) Jika Tidak TypeName (xSelFolder) = "Tiada apa-apa" Kemudian xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Keluar Sub Akhir Jika Tetapkan xSourceFld = xFSO.GetFolder (xSourceFldPath) Tetapkan xSaveFld = GetObject ("", "Outlook.Application") GetNamespace ("MAPI") PickFolder Jika TypeName (xSaveFld) Kemudian Keluar Sub Akhir Jika Untuk Setiap xFileItem Dalam xSourceFld.Files Tetapkan xMSG = Session.OpenSharedItem (xFileItem.Path) Tetapkan xMailItem = xMSG.Copy xMailItem.Move xSaveFld Tetapkan xMailItem = Tiada xMSG.Delete Set xMSG = Tiada Seterusnya xFileItem Set xFileItem = Tiada apa-apa Tetapkan xSourceFld = Tiada Set xFSO = N othing End Sub

3. Tekan butang F5 kunci untuk menjalankan kod. Dalam pembukaan Semak imbas Untuk Folder kotak dialog, pilih folder mengandungi fail msg yang akan anda import ke folder Outlook, dan kemudian klik OK butang. Lihat tangkapan skrin:

4. Sekarang a Pilih Folder kotak dialog timbul, sila pilih Outlook folder untuk menyimpan fail msg yang diimport, dan klik OK butang.

Kemudian semua fail msg dalam folder tertentu dalam sistem fail anda akan diimport ke dalam folder Outlook tertentu dengan segera.


Related articles:



Alat Produktiviti yang Disyorkan

Tab Pejabat

bintang emas1 Bawa tab berguna kepada Excel dan perisian Office lain, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools untuk Excel

bintang emas1 Hebat! Tingkatkan produktiviti anda dalam minit 5. Tidak memerlukan kemahiran khas, kecuali dua jam setiap hari!

bintang emas1 Ciri-ciri Baru 300 untuk Excel, Buat Excel Banyak Mudah dan Berkuasa:

  • Merge Cell / Rows / Columns tanpa Kehilangan Data.
  • Menggabungkan dan Menyusun Lembaran Berbilang dan Buku Kerja.
  • Bandingkan Ranges, Salin Pelbagai Rang Undang-Undang, Tukar Teks hingga Tarikh, Penukaran Unit dan Mata Wang.
  • Count by Colors, Subtotal Paging, Urutkan Advanced dan Super Filter,
  • More Select / Insert / Delete / Text / Format / Link / Comment / Workbooks / Worksheets Tools ...

Skrin skrin 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 · 9 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.