Send All Replies to one email address

December 21, 2009 by JP ·

If you have multiple email addresses set up in Outlook, you might want replies sent to only one address, regardless of which one you're sending from. To set this option manually, you click Options and type in the "Have replies sent to" box.

Options dialog

To do it programmatically, use the ItemAdd event as follows:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim Msg As Outlook.MailItem

If IsMail(Item) Then
  ' set appropriate object reference so we can use
  ' Intellisense when code writing
  Set Msg = Item
Else
  ' skip processing
  Exit Sub
End If

Msg.ReplyRecipients.Add ("The name you should reply to")

End Sub

Function IsMail(ByVal itm As Object) As Boolean
  IsMail = (TypeName(itm) = "MailItem")
End Function

The name you use should either be a resolveable name, or an email address.