題 Outlook宏中斷回復全部?


是否可以創建一個Outlook宏,以便當用戶按下“全部回复”時,會出現提示,例如“您的郵件將被發送給以下收件人:x,y,z。您確定嗎?是的? N“。這裡的關鍵問題是,是否有可用的掛鉤來中斷動作。

請注意,我不打算禁用它或購買加載項。


4
2017-08-24 19:15


起源


如果在Outlook中出現默認設置,想像一下Inbox氾濫的所有節省! - digitxp
這是你不想要的嗎? 使用 加載項,或者只是不想使用您必須支付的費用? - Ƭᴇcʜιᴇ007
這是成本。我正在尋找可以部署到大約100台機器的解決方案。 - Adam S
@digitxp你可以 禁用全部回复 或安裝 NoReplay附加組件 禁用所選電子郵件的功能 - phuclv


答案:


注意: 我正在研究2007年,但我認為代碼應該轉移好了。

您可以通過VBA添加事件處理程序來獲取 ReplyAll 事件。類似於以下內容:

Dim WithEvents insp As Outlook.Inspectors
Dim WithEvents mailItem As Outlook.MailItem

' This is called on Outlook startup
Private Sub Application_Startup()
    Set insp = Application.Inspectors
End Sub

' This is called when a new Inspector is created. You use it to pick up on a new mail item event
Private Sub insp_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Size = 0 And Inspector.CurrentItem.Class = olMail Then
       Set mailItem = Inspector.CurrentItem
    End If
End Sub

' Called when you press ReplyAll
Private Sub mailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim msg As String
    Dim result As Integer
    msg = "Do you really want to reply to all?"
    result = MsgBox(msg, vbYesNo, "Reply All Check")
    If result = vbNo Then
        Cancel = True
    End If
End Sub

4
2017-09-01 21:57



StackOverflow中有一條說明,有人發現了問題 Inspector.CurrentItem.Size = 0 測試,不得不刪除它。我不知道這是OL2007或更高版本中的問題。 stackoverflow.com/questions/33278814/... - vknowles