รหัส VBA ต่อไปนี้สามารถเพิ่มคำทักทายส่วนบุคคลโดยอัตโนมัติเมื่อตอบกลับข้อความใน Outlook คุณสามารถทำได้ดังนี้:

1. เลือกข้อความอีเมลที่คุณจะตอบกลับ

2 กด อื่น ๆ + F11 ปุ่มเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

3 คลิกที่ สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ด VBA ต่อไปนี้ลงในหน้าต่างโมดูลใหม่

VBA: ตอบกลับด้วยคำทักทายส่วนตัว

Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub

4 กด F5 คีย์หรือคลิก วิ่ง เพื่อเรียกใช้ VBA นี้ จะมีกล่องโต้ตอบปรากฏขึ้นตามภาพหน้าจอด้านล่างที่แสดง พิมพ์ 1 หรือ 2 ตามความต้องการของคุณแล้วคลิก OK ปุ่ม

แบบที่ 1 สำหรับการทักทายด้วยชื่อผู้รับ:	แบบที่ 2 สำหรับการทักทายตามช่วงเวลาของวัน:

หมายเหตุ: ใน Outlook 2013 รหัส VBA นี้จะใช้ไม่ได้ถ้าคุณตอบกลับข้อความในบานหน้าต่างการอ่าน คลิก ที่นี่เพื่อทราบวิธีปิดการตอบกลับในบานหน้าต่างการอ่านใน Outlook 2013.

ผู้ใช้บางคนอาจไม่ต้องการใช้รหัส VBA ใน Outlook ดังนั้นฉันจึงแนะนำวิธีที่สอง: Kutools for Outlook's ยูทิลิตี้ทักทายอัตโนมัติ จะเพิ่มคำทักทายส่วนบุคคลได้อย่างง่ายดายในข้อความตอบกลับทั้งหมด

Kutools สำหรับ Outlook ลดความยุ่งยากในการสื่อสารอีเมลประจำวันของคุณผ่าน Outlook ด้วยการเพิ่มคุณสมบัติที่มีประโยชน์มากมาย อ่านเพิ่มเติม      ดาวน์โหลดฟรีเดี๋ยวนี้

1 คลิกที่ Kutools > Options.

2. ในกล่องโต้ตอบตัวเลือกการเปิดให้ไปที่ไฟล์ ตอบ ตรวจสอบแท็บ เพิ่มคำทักทายเมื่อตอบกลับ ตัวเลือกพิมพ์ Hi < > ลงในช่องด้านล่างแล้วคลิกไฟล์ OK ปุ่ม

นับจากนี้เป็นต้นไปเมื่อตอบกลับข้อความใน Outlook คำทักทายส่วนบุคคลจะถูกเพิ่มลงในเนื้อหาอีเมลโดยอัตโนมัติตามภาพหน้าจอต่อไปนี้:

หมายเหตุ: ใน Outlook 2013 ยูทิลิตี้นี้จะไม่ทำงานหากคุณตอบกลับข้อความในบานหน้าต่างการอ่าน คลิก ที่นี่เพื่อทราบวิธีปิดการตอบกลับในบานหน้าต่างการอ่านใน Outlook 2013.

ดาวน์โหลด Kutools for Outlook ฟรี