☰

发送时 Outlook 宏确认回复或全部回复

tag-icon • tag-icon email microsoft-outlook reply
发送时 Outlook 宏确认回复或全部回复

我经常错误地选择回复当有很多人参与讨论并且我实际上想回复所有人时，此选项不可用。在发送电子邮件之前有什么方法可以检查这一点吗？

答案1

您可以按照所述类似方式中断回复在这个问题中

插入这样的新模块然后在ThisOutlookSession模块中粘贴以下代码

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. 
Private Sub insp_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set mailItem = Inspector.CurrentItem
    End If
End Sub

' Called when you press Reply
Private Sub mailItem_Reply(ByVal Response As Object, Cancel As Boolean)
    Dim msg As String
    Dim result As Integer
    If myMailItem.Recipients.count > 1 Then
        msg = "Do you really want to reply to one?"
        result = MsgBox(msg, vbYesNo, "Reply Check")
        If result = vbNo Then
            Cancel = True
        End If
    End If
End Sub

相关内容