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

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

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