MailItem.Reply | ReplyAll | Forward

[ldoodle]

Hello,

Is there anyway I can pass the option as a parameter. I'm currently doing this - the RespondType parameter is passed from another (public) Sub, the one which people will press from the ribbon.


Sub RespondWithDefaultAccount(ByVal RespondType As String)

On Error GoTo ErrorHandler


Dim Result As String
Dim Account As Outlook.Account


Select Case TypeName(Outlook.ActiveWindow)


Case "Explorer"

Select Case RespondType

Case "Reply"

Set Item = Outlook.ActiveExplorer.Selection.Item(1).Reply

Case "ReplyAll"

Set Item = Outlook.ActiveExplorer.Selection.Item(1).ReplyAll

Case "Forward"

Set Item = Outlook.ActiveExplorer.Selection.Item(1).Forward

End Select

Case "Inspector"

Select Case RespondType

Case "Reply"

Set Item = Outlook.ActiveInspector.CurrentItem.Reply

Case "ReplyAll"

Set Item = Outlook.ActiveInspector.CurrentItem.ReplyAll

Case "Forward"

Set Item = Outlook.ActiveInspector.CurrentItem.Forward

End Select

End Select

...

End Sub


So the RespondType case statement is repeated. Can I somehow do this:


Sub RespondWithDefaultAccount(ByVal RespondType As String)

On Error GoTo ErrorHandler


Dim Result As String
Dim Account As Outlook.Account


Select Case TypeName(Outlook.ActiveWindow)


Case "Explorer"

Set Item = Outlook.ActiveExplorer.Selection.Item(1).RespondType

Case "Inspector"

Set Item = Outlook.ActiveInspector.CurrentItem.RespondType

End Select




Thanks!

[ldoodle]

PS: What I am trying to do is have Outlook always use the default account for new emails, replies, reply all and forwards when doing any of those from an additional account setup in Outlook. Is there a better way to hijack the default actions rather than having custom buttons?

[ldoodle]

There is a better way. You can hijack the default actions.

Does any one know if there's a way to hijack Forward as Attachment though? For a normal forward I'm doing this:


Private Sub Item_Forward(ByVal Response As Object, Cancel As Boolean)

Response.SendUsingAccount = DefaultAccount()

End Sub