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

or

當您在Outlook中忙碌時如何自動回複收到的消息?

有時,您希望在一段時間內忙於回复Outlook中收到的郵件。 但是沒有內置函數可以處理這個工作,但是,在這裡我有一個VBA代碼來處理它。

在Outlook中回复帶有原始附件的郵件

眾所周知,當您將郵件回复給Outlook中的收件人時,附件將從原始郵件中刪除。 如果你想保留附件回复按摩,你可以試試 Kutools for Outlook's 回复附件 功能,它可以用原始附件回復一條消息,也適用於所有messafe。 點擊45天免費試用!
doc回复附件1

doc向下箭頭
doc回复附件2
Kutools for Outlook:帶有許多方便的Outlook加載項,可以在45天免費試用而沒有限制。

當您忙於使用VBA代碼時自動回复


當您忙於使用VBA代碼時自動回复

Office選項卡 - 在Office中啟用選項卡式編輯和瀏覽,使工作更輕鬆......
Kutools for Outlook - 為Microsoft Outlook帶來100強大的高級功能
  • 自動CC / BCC 發送電子郵件時的規則; 自動轉發 規則多個電子郵件; 自動回复 沒有交換服務器,以及更多自動功能......
  • BCC警告 - 如果您的郵件地址在BCC列表中,當您嘗試全部回复時顯示消息; 缺少附件時提醒,以及更多提醒功能......
  • 全部附件回复(全部) 在郵件對話中; 立即回复許多電子郵件; 自動添加問候語 回复時; 自動將日期和時間添加到主題中...
  • 附件工具:自動分離,全部壓縮,全部重命名,自動全部保存... 快速報告,計算選定的郵件, 刪除重複的郵件和聯繫人...
  • 超過100高級功能將 解決你的大多數問題 在Outlook 2010-2019和365中。 全功能60天免費試用。

這裡是一個VBA代碼,它會在您的Outlook日曆中有一些約會時自動回复,如果日曆中沒有任何內容,它會自動停止回复。

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

2。 雙擊 ThisOutlookSession 來自 Project1 窗格中,將以下代碼複製並粘貼到腳本中。

VBA:在日曆繁忙時自動回复

Public WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
    Set xMailItem = Item
    Set xReplyMailItem = xMailItem.Reply
    xReplyHTMLBody = xReplyMailItem.HTMLBody
    Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
    xAppointments.Sort "[Start]"
    xAppointments.IncludeRecurrences = True
    xDateFormat = Format(Now, "ddddd h:nn AMPM")
    xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
    Set xRestrictAppointments = xAppointments.Restrict(xFilter)
    If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
    For Each xAppointment In xRestrictAppointments
        If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
            xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
                                      xReplyHTMLBody
            xReplyMailItem.Send
        End If
    Next
End If
End Sub

3。 保存此代碼並重新啟動Outlook。 從現在開始,如果電子郵件在約會的時間範圍內收到,則會發送自動回复。

提示:

(1)在代碼中,您可以根據需要在此腳本中更改回复主體 “我很抱歉,我現在無法回复您,稍後我會回复您。” &_

(2)此VBA宏可以自動回复默認數據文件收件箱中收到的電子郵件。


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.