回复所有不包含电子邮件的宏MacroButton

Question

试图为通常回复编写宏的所有选项，但我想排除1个特定收件人。我一直在尝试打字自己，但我有一个错误“Object Required”。我通过互联网搜索并找到默认选项（公共子）的代码。我需要它被分配到单独的按钮

Dim oReply As MailItem 
    Set oReply = oItem.ReplyAll 
    Dim recips As Outlook.Recipients 
    Dim i As Long 
Set recips = oReply.Recipients 
For i = recips.Count To 1 Step -1 
    If LCase(recips.Item(i).Address) = "alias@slipstick.com" Then 
recips.Remove i 
End If 
Next 

oReply.Display 


Set oItem = Nothing 
End Sub 

Answer 1

看起来您需要先在代码中指定oItem。例如，对于当前检查器窗口，你可以使用下面的代码：

Public Sub Test() 
Dim inspector as Outlook.Inspector 

Set inspector = Application.ActiveInspector() 
Set oItem = inspector.CurrentItem 

Dim oReply As MailItem 
Set oReply = oItem.ReplyAll 
Dim recips As Outlook.Recipients 
Dim i As Long 
Set recips = oReply.Recipients 
For i = recips.Count To 1 Step -1 
    If LCase(recips.Item(i).Address) = "alias@slipstick.com" Then 
    recips.Remove i 
    End If 
Next 
oReply.Save 
oReply.Display 
Set oItem = Nothing 
End Sub 

在资源管理器的选择的情况下，你需要使用浏览器类的Selection属性，它返回一个Selection对象包含该项目或项在浏览器窗口中选择。