เคล็ดลับ: ภาษาอื่น ๆ ได้รับการแปลโดย Google คุณสามารถเยี่ยมชม English รุ่นของลิงก์นี้
เข้าสู่ระบบ
x
or
x
x
สมัครสมาชิก
x

or

วิธีการนำเข้าไฟล์ msg จากระบบไฟล์ไปยังโฟลเดอร์ Outlook?

โดยปกติคุณสามารถนำเข้าไฟล์ msg จากระบบไฟล์ไปยังโฟลเดอร์ Outlook โดยการลากและวาง ในบทความนี้เราจะแสดงวิธีง่ายๆในการนำเข้าไฟล์ msg ทั้งหมดจากระบบไฟล์ไปยังโฟลเดอร์ Outlook ที่ระบุในรายละเอียด

นำเข้าไฟล์ msg จากระบบไฟล์ไปยังโฟลเดอร์ Outlook ด้วยรหัส VBA


บันทึกอีเมลที่เลือกไว้เป็นไฟล์รูปแบบต่างๆใน Outlook ได้อย่างง่ายดาย:

ด้วยอรรถประโยชน์ Save as File ของ Kutools for Outlook คุณสามารถบันทึกอีเมลที่เลือกไว้ได้หลายแบบเช่นไฟล์รูปแบบ HTML, ไฟล์รูปแบบ TXT, เอกสาร Word, ไฟล์ CSV และไฟล์ PDF ใน Outlook ตามภาพด้านล่าง

Kutools สำหรับ Outlook: มีโปรแกรมเสริม Outlook Add-in ที่มีประโยชน์มากกว่า 40 และสามารถทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 45 วัน ดาวน์โหลดและทดลองใช้ฟรี Now!


นำเข้าไฟล์ msg จากระบบไฟล์ไปยังโฟลเดอร์ Outlook ด้วยรหัส VBA

โปรดทำดังนี้เพื่อนำเข้าไฟล์ msg จากระบบไฟล์ไปยังโฟลเดอร์ที่ระบุใน Outlook

1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอ็พพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอ็พพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: นำเข้าไฟล์ msg จากระบบไฟล์ไปยังโฟลเดอร์ Outlook

Sub ImportMessagesInFolder () Dim xFSO As Scripting.FileSystemObject Dim xSourceFld ขณะที่ Scripting.Folder Dim xSourceFldPath เป็นสตริง Dim xFileItem ขณะที่ Scripting.File Dim xMSG เป็นวัตถุ Dim xMailItem เป็น MailItem Dim xSaveFld เนื่องจาก Outlook.Folder On Error ทำงานต่อไปตั้งค่า xFSO = New Scripting FileSystemObject Set xSelFolder = CreateObject ("Shell.Application") BrowseForFolder (0, "เลือกโฟลเดอร์:", 0, 0) ถ้าไม่ใช่ TypeName (xSelFolder) = "ไม่มี" แล้ว xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Exit Sub End ถ้า Set xSourceFld = xFSO.GetFolder (xSourceFldPath) ตั้งค่า xSaveFld = GetObject ("", "Outlook.Application") GetNamespace ("MAPI") PickFolder ถ้า TypeName (xSaveFld) = "ไม่มีอะไร" จากนั้นออกจาก Sub End ถ้าสำหรับแต่ละ xFileItem ใน xSourceFld.Files Set xMSG = Session.OpenSharedItem (xFileItem.Path) Set xMailItem = xMSG.Copy xMailItem.Move xSaveFld Set xMailItem = ไม่มีอะไร xMSG.Delete Set xMSG = ไม่มีอะไรถัดไป xFileItem ตั้ง xFileItem = ไม่มีอะไร ตั้งค่า xSourceFld = Nothing set xFSO = N othing End Sub

3 กด F5 คีย์เพื่อเรียกใช้รหัส ในการเปิด เรียกดูโฟลเดอร์ ให้เลือกโฟลเดอร์ที่มีไฟล์ msg ที่คุณจะนำเข้าไปยังโฟลเดอร์ Outlook จากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

4 ตอนนี้ a เลือกโฟลเดอร์ จะปรากฏขึ้นใหเลือกก ภาพ เพื่อบันทึกไฟล์ msg ที่นำเข้าแล้วคลิกปุ่ม OK ปุ่ม

จากนั้นไฟล์ msg ทั้งหมดในโฟลเดอร์บางไฟล์ในระบบไฟล์ของคุณจะถูกนำเข้าไปยังโฟลเดอร์ Outlook ที่ระบุทันที


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพของ Excel

Ribbon ของ Excel (ที่ติดตั้ง Kutools สำหรับ Excel)

300 + คุณสมบัติขั้นสูงเพิ่มประสิทธิภาพการผลิตของคุณโดย 70% และช่วยให้คุณโดดเด่นจากฝูงชน!

คุณต้องการทำงานให้เสร็จทุกวันอย่างรวดเร็วและสมบูรณ์แบบหรือไม่? Kutools สำหรับ Excel นำ 300 + คุณสมบัติขั้นสูงที่ยอดเยี่ยมและทรงพลัง (รวมสมุดงาน, ผลรวมตามสี, แบ่งเนื้อหาของเซลล์, แปลงวันที่และอื่น ๆ ... ) สำหรับ 1500 + สถานการณ์การทำงานช่วยให้คุณแก้ปัญหา ปัญหา 80% Excel.

  • จัดการกับงานที่ซับซ้อนทั้งหมดในไม่กี่วินาทีช่วยเพิ่มความสามารถในการทำงานของคุณรับความสำเร็จจากการแข่งขันที่ดุเดือดและไม่ต้องกังวลกับการถูกไล่ออก
  • ประหยัดเวลาทำงานมากปล่อยให้เวลามากสำหรับคุณที่จะรักและดูแลครอบครัวและเพลิดเพลินกับชีวิตที่สะดวกสบายในขณะนี้.
  • ลดการคลิกแป้นพิมพ์และเมาส์หลายพันครั้งทุกวันช่วยลดความเหนื่อยล้าของดวงตาและมือและให้ร่างกายที่แข็งแรง
  • มาเป็นผู้เชี่ยวชาญใน Excel ใน 3 นาทีและรับความชื่นชมจากเพื่อนร่วมงานหรือเพื่อนของคุณ.
  • ไม่จำเป็นต้องจำสูตรเจ็บปวดและรหัส VBA อีกต่อไปมีจิตใจที่ผ่อนคลายและน่ารื่นรมย์ให้ความตื่นเต้นที่คุณไม่เคยมีมาก่อน
  • ใช้จ่ายเพียง $ 39 แต่คุ้มค่ากว่าการฝึกอบรม $ 4000 ของผู้อื่น. มีการใช้งานโดยชนชั้นสูง 110,000 และ บริษัท ที่มีชื่อเสียง 300 +
  • ทดลองใช้ 60 ฟรีไม่ จำกัด วัน. รับประกันคืนเงิน 60 ในวัน ฟรีอัพเกรดและรองรับ 2 ปี ซื้อครั้งเดียวใช้ตลอดไป
  • เปลี่ยนวิธีการทำงานตอนนี้และให้ชีวิตที่ดีขึ้นทันที!

แท็บ Office นำแท็บที่มีประสิทธิภาพและมีประโยชน์มาสู่ Office (รวมถึง Excel) เช่นเดียวกับ Chrome, Firefox และ IE ใหม่

  • เพิ่มผลผลิตของคุณ 50% เมื่อดูและแก้ไขเอกสารหลายชุด
  • ลดการคลิกเมาส์หลายร้อยครั้งทุกวันบอกลามือเม้าส์
  • เปิดและสร้างเอกสารในแท็บใหม่ของหน้าต่างเดียวกันไม่ใช่ในหน้าต่างใหม่
  • ช่วยให้คุณทำงานได้เร็วขึ้นและโดดเด่นจากฝูงชน! หนึ่งวินาทีเพื่อสลับระหว่างเอกสารที่เปิดอยู่หลายสิบรายการ!
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 · 11 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.