วิธีการกรอกหัวเรื่องอีเมลโดยอัตโนมัติด้วยชื่อไฟล์แนบใน Outlook?

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

กรอกหัวเรื่องอีเมลโดยอัตโนมัติด้วยชื่อไฟล์แนบด้วยรหัส VBA

โปรดเรียกใช้รหัส VBA ต่อไปนี้เพื่อกรอกหัวเรื่องอีเมลโดยอัตโนมัติด้วยชื่อของไฟล์แนบที่แทรกใน Outlook

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก โครงการ 1 (VbProject.OTM) > วัตถุ Microsoft Outlook > นี้OutlookSession เพื่อเปิด ThisOutlookSession (รหัส) บรรณาธิการ

3. จากนั้นคัดลอกโค้ด VBA ต่อไปนี้ลงใน ThisOutlookSession (รหัส) บรรณาธิการ

รหัส VBA: ป้อนหัวเรื่องอีเมลอัตโนมัติพร้อมชื่อไฟล์แนบ

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

4. ตอนนี้ คุณต้องบันทึกรหัสและเริ่มต้น Outlook ใหม่

5. จากนี้ไป เมื่อคุณแทรกไฟล์แนบในอีเมลที่ยังไม่ได้กรอกหัวเรื่อง a Kutools สำหรับ Outlook กล่องโต้ตอบจะปรากฏขึ้นเพื่อถามว่าคุณต้องการใช้ชื่อไฟล์แนบเป็นหัวเรื่องหรือไม่ ให้คลิกที่ ใช่ ปุ่ม

จากนั้นบรรทัดหัวเรื่องจะถูกเติมด้วยชื่อของไฟล์แนบที่แทรกโดยอัตโนมัติ

หมายเหตุ:

---

Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

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

อ่านเพิ่มเติม ... ดาวน์โหลดเดี๋ยวนี้...