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

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

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

หมายเหตุ:

1) หากคุณกรอกหัวเรื่องแล้ว การแทรกไฟล์แนบจะไม่ปรากฏขึ้นในกล่องโต้ตอบ
2) หากคุณลบหัวเรื่องที่มีอยู่ออกจากอีเมลปัจจุบัน แต่เคอร์เซอร์ยังคงแสดงอยู่ในหัวเรื่อง การแทรกไฟล์แนบจะไม่เปิดกล่องโต้ตอบขึ้นมา หลังจากลบหัวเรื่องแล้ว คุณต้องคลิกออกจากหัวเรื่องเพื่อรีเฟรชกล่องข้อความเพื่อให้โค้ดทำงานได้
3) หากคุณแทรกไฟล์แนบหลายรายการพร้อมกัน เฉพาะชื่อไฟล์แนบแรกเท่านั้นที่สามารถใช้เป็นหัวเรื่องของอีเมลได้

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

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (2)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с разделение И? Может в данном коде дописать или вообще другой существует? Заранее спасибо
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Александр

คุณหมายถึงการเพิ่มไฟล์แนบหลายไฟล์ในขณะที่เพิ่มชื่อไฟล์แนบเหล่านั้นพร้อมกันในหัวเรื่อง แล้วเชื่อมโยงกับ AND หรือไม่
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL