如何在Outlook 2007中使用宏更改replyTo地址？

Question

我正在使用Outlook 2007.我只想編寫一個宏，它將刪除所有收件人並添加一個新的收件人。這裏是我的代碼：

Sub replyTo(item As Outlook.MailItem) 
    Do While item.ReplyRecipients.Count() > 0 
     item.ReplyRecipients.Remove (1) 
    Loop 
    item.ReplyRecipients.Add ("example@example.com") 
    item.ReplyRecipients.ResolveAll 
End Sub 

我也創建了一個規則來運行這個腳本。不幸的是，當我收到一封郵件時，replyTo郵件並沒有改變成我想要的。

Answer 1

的目標不明確，但...

Sub replyToExampleImmediately(item As Outlook.mailitem) 

' Ignore the sender of the item and reply to "example@example.com" 

    Dim replyItem As mailitem 
    Set replyItem = item.reply 

    replyItem.Recipients.Remove (1) 

    replyItem.Recipients.Add ("example@example.com") 
    replyItem.Recipients.ResolveAll 

    replyItem.Display 

ExitRoutine: 
    Set replyItem = Nothing 

End Sub 


Sub replyTosender(item As Outlook.mailitem) 

' Reply to the sender of the item and 
' set the replyTo so the sender will reply to "example@example.com" 

    Dim replyItem As mailitem 
    Set replyItem = item.reply 

    replyItem.ReplyRecipients.Add ("example@example.com") 
    replyItem.Display 

    ' comment out later 
    ActiveInspector.CommandBars.ExecuteMso ("MessageOptions") 

ExitRoutine: 
    Set replyItem = Nothing 

End Sub 

Sub replyTo_test() 
' First open a mailitem 

Dim curritem As mailitem 
Set curritem = ActiveInspector.currentItem 

replyToExampleImmediately curritem 
replyTosender curritem 

End Sub