ไปยังเนื้อหาหลัก

วิธีเปิดกล่องโต้ตอบไฟล์อย่างรวดเร็วเพื่อแทรกไฟล์แนบใน Outlook?

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2022-07-20

เมื่อเราต้องการแทรกไฟล์แนบในอีเมลที่เขียน โดยปกติแล้วเราต้องคลิก แทรก > แนบไฟล์ > เรียกดูพีซีเครื่องนี้ เพื่อเปิดกล่องโต้ตอบ แทรกไฟล์ จากนั้นค้นหาและแทรกไฟล์ที่เราต้องการ ในบทช่วยสอนนี้ เรามีโค้ด VBA สองโค้ดเพื่อช่วยให้คุณเปิดกล่องโต้ตอบ แทรกไฟล์ ได้อย่างง่ายดายเพียงคลิกเดียว


เปิดกล่องโต้ตอบไฟล์อย่างรวดเร็วเพื่อแทรกไฟล์แนบด้วยVBA

รหัส VBA ต่อไปนี้สามารถทำได้:

รหัส VBA 1: เปิดโฟลเดอร์เอกสารเริ่มต้นในคอมพิวเตอร์ของคุณ
รหัส VBA 2: เปิดโฟลเดอร์ที่ระบุในคอมพิวเตอร์ของคุณ

โปรดทำดังต่อไปนี้เพื่อให้เสร็จสิ้น

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก เครื่องมือ > อ้างอิง จากนั้นตรวจสอบ รันไทม์การเขียนสคริปต์ของ Microsoft กล่องใน ข้อมูลอ้างอิง – Project1 กล่องโต้ตอบ

3 คลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกหนึ่งในรหัส VBA ต่อไปนี้ไปที่ โมดูล หน้าต่าง

รหัส VBA 1: เปิดโฟลเดอร์เอกสารเริ่มต้นในคอมพิวเตอร์ของคุณ

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

รหัส VBA 2: เปิดโฟลเดอร์ที่ระบุในคอมพิวเตอร์ของคุณ

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

หมายเหตุ:

1) รหัส VBA 1 ช่วยในการเปิดโฟลเดอร์เอกสารเริ่มต้นในคอมพิวเตอร์ของคุณ
2) ในโค้ด VBA 2 โปรดเปลี่ยนเส้นทางโฟลเดอร์ในบรรทัดต่อไปนี้เป็นเส้นทางโฟลเดอร์ที่คุณต้องการ
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\saveไฟล์แนบ\"
จากนั้นโฟลเดอร์ที่ระบุจะเปิดขึ้นทุกครั้งที่คุณเรียกใช้รหัสนี้

4 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

ตอนนี้คุณต้องมีปุ่มเพื่อเรียกใช้แมโคร

5 คลิก หน้าแรก > อีเมลใหม่ เพื่อสร้างอีเมลใหม่ ในหน้าต่างข้อความ คลิก ปรับแต่งแถบเครื่องมือด่วน > คำสั่งเพิ่มเติม.

6 ใน ตัวเลือกของ outlook คุณต้องกำหนดค่าดังต่อไปนี้

6.1) ใน เลือกคำสั่งจาก รายการแบบเลื่อนลงเลือก มาโคร;
6.2) เลือกมาโครที่คุณเพิ่มในขั้นตอนก่อนหน้า
6.3) คลิกปุ่ม เพิ่ม เพื่อเพิ่มมาโครนี้ลงในไฟล์ ปรับแต่งแถบเครื่องมือด่วน กล่อง.

7. เก็บสคริปต์ที่เลือกไว้ในช่องด้านขวา จากนั้นคลิกปุ่ม แก้ไข ปุ่ม. ใน ปุ่มปรับเปลี่ยน กล่องโต้ตอบ กำหนดปุ่มใหม่ให้กับสคริปต์แล้วคลิก OK.

8 คลิก OK ใน ตัวเลือกของ outlook กล่องโต้ตอบเพื่อบันทึกการเปลี่ยนแปลง

9. ปุ่มที่คุณระบุในขั้นตอนที่ 7 จะถูกเพิ่มลงในปุ่ม แถบเครื่องมือด่วน. เมื่อเขียนอีเมล หากคุณต้องการแทรกไฟล์แนบ คุณสามารถคลิกที่ปุ่มนี้เพื่อเปิดไฟล์ หมวดหมู่สินค้า โฟลเดอร์และเลือกไฟล์ที่คุณต้องการแทรก


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!

สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!

🤖 Kutools AI : ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมล  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เตือนคุณเมื่อมีอีเมลสำคัญมาถึง  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

ปลดล็อค Kutools for Outlook ทันทีด้วยการคลิกเพียงครั้งเดียว—ฟรีอย่างถาวร- อย่ารอช้า ดาวน์โหลดตอนนี้และเพิ่มประสิทธิภาพของคุณ!

kutools สำหรับคุณสมบัติ Outlook1 kutools สำหรับคุณสมบัติ Outlook2
 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations