VBA when replying + Default Account

[VBAnoob]

Hi,
I have been trying to combine the two guides posted in this website regarding:
VBA when replying (including Reply to all and Forward), as well as Using the default account.

My current set up involves the following in Outlook 2016: a standard Microsoft Exchange account (Session.Accounts.Item(1)), on addition to a shared mailbox with a few colleagues which is Auto-discovered by Outlook, although it can also manually be added to Account Settings and works as Session.Accounts.Item(2).
The default behavior when replying (or replying to all, or forwarding) to emails in the shared mailbox is to display that the email is being sent "From" the shared mailbox, although it's possible to manually click in the personal account (or Atl+M+down+enter).

I have been able to get it to work relatively well, based on the code from the latest example here

Private Sub afterReply()
 'Choose first option in the "From" field
SendKeys "%M{DOWN}~{UP}{UP}"
oResponse.Display
End Sub

Note that I am using Alt+M to choose the first available account in the "From" field, as I was not able to get it to work with oResponse.SendUsingAccount = Session.Accounts.Item(1) and seems to be working without issues, although not sure if the current situation is ideal.


In any case, there's a nagging concern, and it's that the SpellCheck is triggered for the whole email message right before clicking on Send, even when the setting Mail>Compose messages>Ignore original message text in reply or forward has been chosen.

Is there any problem with the code that triggers the SpellCheck to jump, or is there any other alternative to avoid this issue?

Thank you in advance as I have found the articles from the website, as well as the forum threads really useful.

 

[VBAnoob]

I wasn't able to edit the post, so I'll clarify the precise Spellcheck settings (see image): both need to be ticked, however the second one is being ignored.

 

[Diane Poremsky]

if the account is not listed in the accounts list, SendUsingAccount won't work. Typically, you'd use SentOnBehalfOfName for shared mailboxes, but i honestly never tried the reverse - using the default account when replying to the shared. If you never want to reply as the shared, the admin can change the permissions on the account - removing sending permissions.

ok... using the simple macro for reply/reply all ( VBA Sample: Do Something When Reply is Clicked ) worked - the From address is the account name in the macro... but the received message is not from me. If i 'touch' the account in the From list and select it, it is from me.

Private Sub afterReply()
oResponse.SentOnBehalfOfName = "me@slipstick.com"
oResponse.Display
' do whatever here
End Sub

On the spellcheck part, i see the same thing - the option to skip the original is ignored. That looks to be a bug.