在Outlook中回复時如何自動添加個性化問候語？

通常，在Outlook中回復電子郵件時，我們必須手動添加問候語。 實際上，原始消息包含收件人的信息，例如發件人名稱。 在本文中，我將介紹兩種在Outlook中回复時自動添加個性化問候語的方法。

使用VBA回复時自動添加個性化問候語

使用Kutools for Outlook回复時自動添加個性化問候語

使用VBA回复時自動添加個性化問候語

在Outlook中回复郵件時，以下VBA代碼可以自動添加個性化問候語。 您可以執行以下操作：

1.選擇您將回复的電子郵件。

2。 按 其他 + F11 鍵以打開“ Microsoft Visual Basic應用程序”窗口。

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中的閱讀窗格中的回复.

使用Kutools for Outlook回复時自動添加個性化問候語

某些用戶可能不喜歡在Outlook中應用VBA代碼。 因此，我介紹了第二種方法：Kutools for Outlook的 自動問候語實用程序 將在所有回覆訊息中輕鬆新增個人化問候語。

Kutools for Outlook 通過添加許多方便的功能，簡化了通過Outlook的日常電子郵件通信。 了解更多       現在免費下載

1。 點擊 庫工具 > 選項.

2.在打開的“選項”對話框中，轉到 回复 選項卡，檢查 在創建、回復和轉發電子郵件時添加問候語 選項，透過包含 < 等佔位符來自訂問候語>,<>, 或 <> 根據您的需求。 OK 按鈕。

從現在開始，在 Outlook 中回覆郵件時，個人化問候語將自動新增到電子郵件正文中，如下圖所示：

備註：在 Outlook 2013 中，如果您在閱讀窗格中回覆郵件，則此公用程式不起作用。點選 在這裡了解如何禁用Outlook 2013中的閱讀窗格中的回复.