Mã VBA sau có thể tự động thêm lời chào được cá nhân hóa khi trả lời thư trong Outlook. Bạn có thể làm như sau:

1. Chọn email mà bạn sẽ trả lời.

2. Nhấn nút Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

3. Nhấp vào Chèn > Mô-đunvà dán mã VBA sau vào cửa sổ mô-đun mới.

VBA: Trả lời bằng lời chào được cá nhân hóa

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. Nhấn nút F5 Chìa khóa hoặc bấm chạy để chạy VBA này. Nó sẽ bật lên một hộp thoại như ảnh chụp màn hình dưới đây. Nhập 1 hoặc 2 dựa trên nhu cầu của bạn, sau đó nhấp vào OK .

Loại 1 cho lời chào với tên người nhận:	Loại 2 cho lời chào theo thời gian trong ngày:

Chú thích: Trong Outlook 2013, mã VBA này không hoạt động nếu bạn trả lời thư trong Ngăn đọc. Nhấp chuột tại đây để biết cách tắt trả lời trong Ngăn đọc trong Outlook 2013.

Một số người dùng có thể không thích áp dụng mã VBA trong Outlook. Do đó, tôi giới thiệu phương pháp thứ hai: Kutools cho Outlook's Tiện ích tự động chào sẽ dễ dàng thêm lời chào được cá nhân hóa trong tất cả các tin nhắn trả lời.

Kutools cho Outlook đơn giản hóa giao tiếp email hàng ngày của bạn thông qua Outlook bằng cách thêm hàng chục tính năng tiện dụng. Tìm hiểu thêm      Tải về miễn phí ngay bây giờ

1. Nhấp vào Kutools > Các lựa chọn.

2. Trong hộp thoại Tùy chọn đang mở, hãy chuyển đến đáp lại tab, kiểm tra Thêm lời chào khi trả lời tùy chọn, gõ Hi < >, vào hộp bên dưới và nhấp vào OK .

Kể từ bây giờ, khi trả lời thư trong Outlook, lời chào được cá nhân hóa sẽ tự động được thêm vào nội dung email như ảnh chụp màn hình sau:

Chú thích: Trong Outlook 2013, tiện ích này không hoạt động nếu bạn trả lời thư trong Ngăn đọc. Nhấp chuột tại đây để biết cách tắt trả lời trong Ngăn đọc trong Outlook 2013.

Tải xuống miễn phí Kutools cho Outlook