提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何在Outlook中自動回復原始電子郵件?

通常情況下,當我們創建一個規則來自動將電子郵件依賴於電子郵件離開辦公室時,但正文中的原始郵件將不會包含在內。 你怎麼能自動依靠Outlook中的原始郵件的電子郵件? 本文將討論一個VBA代碼,以幫助您在Outlook中盡快完成此項工作。

使用VBA代碼在Outlook中自動回复帶有原始郵件的電子郵件


在您離開辦公室時自動回復電子郵件:

如果您想在自己打車或離開辦公室時自動回復電子郵件, Kutools for Outlook's 自動回复 功能可以幫助您按照需要快速處理工作。

Kutools for Outlook:擁有超過20 +便利的Excel加載項,可以在60的日子裡免費試用而沒有限制。 立即下載並免費試用!

使用VBA代碼在Outlook中自動回复帶有原始郵件的電子郵件

正常的Outlook規則無法幫助您處理工作,但通過以下VBA代碼,您可以快速輕鬆地完成此任務。 請這樣做:

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在 Microsoft Visual Basic for Applications 窗口,雙擊 ThisOutlookSession從 Project1(的VbaProject.OTM) 窗格來打開模式,然後將以下代碼複製並粘貼到空白模塊中。

VBA代碼:自動回復原始郵件的電子郵件:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub 

3。 然後保存並關閉代碼窗口,關閉或重新啟動Outlook以使VBA代碼生效。 現在,當您收到電子郵件時,Outlook將會發送一封帶有原始郵件的自動回复,如下面的屏幕截圖所示:


Kutools for Outlook - 為Outlook帶來100高級功能,讓工作更輕鬆!

  • 自動CC / BCC 發送電子郵件時的規則; 自動轉發 多個電子郵件按自定義; 自動回复 沒有交換服務器,以及更多自動功能......
  • BCC警告 - 當您嘗試回复所有內容時顯示消息 如果您的郵件地址在BCC列表中; 缺少附件時提醒,以及更多提醒功能......
  • 回复(全部)使用郵件會話中的所有附件; 回复很多電子郵件 很快; 自動添加問候語 回复時; 將日期添加到主題...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,全部保存...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 按慣例; 刪除重複郵件和聯繫人... 使您能夠在Outlook中更智能,更快速,更好地完成工作。
拍攝kutools outlook kutools選項卡1180x121
拍攝kutools outlook kutools加標籤1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.