วิธีสร้างชื่อผู้ส่งที่รักโดยอัตโนมัติเมื่อตอบข้อความใน Outlook?
เมื่อตอบข้อความอีเมลคุณควรพิมพ์ชื่อผู้ส่งและคำทักทายด้วยตนเอง เพื่อประหยัดเวลาและปรับปรุงประสิทธิภาพในการทำงานคุณอาจพิจารณาสร้างชื่อและคำทักทายของผู้ส่งที่รักโดยอัตโนมัติใน Outlook บทความนี้ฉันจะพูดถึงวิธีการที่มีประโยชน์ในการแก้ปัญหานี้ใน Outlook
สร้างชื่อผู้ส่งและคำทักทายโดยอัตโนมัติเมื่อตอบกลับข้อความด้วยรหัส VBA
สร้างชื่อผู้ส่งและคำทักทายโดยอัตโนมัติเมื่อตอบกลับข้อความด้วย Kutools for Outlook
สร้างชื่อผู้ส่งและคำทักทายโดยอัตโนมัติเมื่อตอบกลับข้อความด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยให้คุณใส่ชื่อและคำทักทายของผู้ส่งที่รักโดยอัตโนมัติเมื่อตอบกลับข้อความอีเมลโปรดดำเนินการดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก นี้OutlookSession จาก โครงการ 1 (VbaProject.O ™) บานหน้าต่างเพื่อเปิดโหมดจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า
รหัส VBA: ใส่ชื่อผู้ส่งและคำทักทายโดยอัตโนมัติเมื่อตอบกลับ:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. จากนั้นปิด Outlook และรีสตาร์ทเพื่อรับเอฟเฟกต์รหัสและตอนนี้เมื่อคุณตอบกลับข้อความอีเมลชื่อและคำทักทายของผู้ส่งที่รักจะถูกแทรกลงในเนื้อหาโดยอัตโนมัติดูภาพหน้าจอ:
สร้างชื่อผู้ส่งและคำทักทายโดยอัตโนมัติเมื่อตอบกลับข้อความด้วย Kutools for Outlook
ถ้าคุณมี Kutools สำหรับ Outlookเดียวกันกับที่ เพิ่มคำทักทายเมื่อตอบกลับ คุณลักษณะ Outlook จะแทรกชื่อผู้ส่งโดยอัตโนมัติเมื่อตอบกลับ
Kutools สำหรับ Outlook : ด้วย Add-in ของ Outlook ที่มีประโยชน์มากกว่า 100 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Outlookกรุณาทำตามนี้:
1. คลิก Kutools > Optionsดูภาพหน้าจอ:
2. ใน Options ภายใต้ ตอบ แท็บตรวจสอบ เพิ่มคำทักทายเมื่อตอบกลับ จากนั้นป้อนคำทักทายตามที่คุณต้องการดูภาพหน้าจอ:
3. จากนั้นคลิก OK เพื่อสิ้นสุดการตั้งค่านี้นับจากนี้เป็นต้นไปเมื่อตอบข้อความคำทักทายจะถูกสร้างขึ้นโดยอัตโนมัติที่ด้านหน้าของเนื้อหาข้อความโปรดดูภาพหน้าจอ:
คลิกเพื่อดาวน์โหลด Kutools for Outlook และทดลองใช้ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ
🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...
📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...
เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม