Note: The other languages of the website are Google-translated. Back to English

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

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


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

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

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

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

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก เครื่องมือ > อ้างอิง จากนั้นตรวจสอบ Microsoft Scripting Runtime กล่องใน ข้อมูลอ้างอิง – 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 - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ