VBA when replying + Default Account

Status
Not open for further replies.
V

VBAnoob

Member
Outlook version
Outlook 2016 32 bit
Email Account
Exchange Server
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
Code: 
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.
 
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.
upload_2017-8-8_16-34-19.png
 
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.

Code: 
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.
 
Status
Not open for further replies.
< Reinstall to a different drive or folder | Multiple spurious empty folders appear in archive files >
Similar threads
Thread starter Title Forum Replies Date
B Looking to get the Recipient email address (or even the "friendly name") from an email I am replying to using VBA Outlook VBA and Custom Forms 4
J Help Please!!! Outlook 2016 - VBA Macro for replying with attachment in meeting invite Outlook VBA and Custom Forms 9
P Replying to calendar item using VBA Outlook VBA and Custom Forms 4
G VBA/Macro to remove page colour when replying or forwarding email Outlook VBA and Custom Forms 2
D VBA Code to strip Subject Line when replying or forwarding Using Outlook 3
J Outlook VBA to send from Non-default Account & Data Files Outlook VBA and Custom Forms 2
H using VBA to edit subject line Outlook VBA and Custom Forms 0
G Get current open draft message body from VBA Outlook VBA and Custom Forms 1
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
M Outlook 2016 outlook vba to look into shared mailbox Outlook VBA and Custom Forms 0
V VBA Categories unrelated to visible calendar and Visual appointment Categories Outlook VBA and Custom Forms 2
D Outlook VBA forward the selected email to the original sender’s email ID (including the email used in TO, CC Field) from the email chain Outlook VBA and Custom Forms 2
R Outlook 365 VBA AUTO SEND WITH DELAY FOR EACH EMAIL Outlook VBA and Custom Forms 0
R Outlook 2019 VBA to List Meetings in Rooms Outlook VBA and Custom Forms 0
geoffnoakes Counting and/or listing fired reminders via VBA Using Outlook 1
O VBA - Regex - remove double line spacing Outlook VBA and Custom Forms 1
D.Moore Strange VBA error Outlook VBA and Custom Forms 4
B Modify VBA to create a RULE to block multiple messages Outlook VBA and Custom Forms 0
D Outlook 2021 Using vba code to delete all my spamfolders not only the default one. Outlook VBA and Custom Forms 0
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
D VBA - unable to set rule condition 'on this computer only' Outlook VBA and Custom Forms 5
L Fetch, edit and forward an email with VBA outlook Outlook VBA and Custom Forms 2
BartH VBA no longer working in Outlook Outlook VBA and Custom Forms 1
W Can vba(for outlook) do these 2 things or not? Outlook VBA and Custom Forms 2
MattC Changing the font of an email with VBA Outlook VBA and Custom Forms 1
P MailItem.To Property with VBA not work Outlook VBA and Custom Forms 2
P Tweak vba so it can target another mailbox Outlook VBA and Custom Forms 1
A Outlook 2010 VBA fails to launch Outlook VBA and Custom Forms 2
richardwing Outlook 365 VBA to access "Other Actions" menu for incoming emails in outlook Outlook VBA and Custom Forms 0
W Create a Quick Step or VBA to SAVE AS PDF in G:|Data|Client File Outlook VBA and Custom Forms 1
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
TedSch Small vba to kill political email Outlook VBA and Custom Forms 3
E Outlook 365 Outlook/VBA Outlook VBA and Custom Forms 11
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
Z VBA Forward vs manual forward Outlook VBA and Custom Forms 2
J VBA Cannot programmatically input or change Value for User Defined field Using Outlook 1
J VBA for outlook to compare and sync between calendar Outlook VBA and Custom Forms 1
A Any way to force sort by/group by on search results with VBA? Outlook VBA and Custom Forms 1
E Default shape via VBA Outlook VBA and Custom Forms 4
A Change settings Send/receive VBA Outlook VBA and Custom Forms 0
Z Import Tasks from Access Using VBA including User Defined Fields Outlook VBA and Custom Forms 0
E Outlook VBA change GetDefaultFolder dynamically Outlook VBA and Custom Forms 6
justicefriends How to set a flag to follow up using VBA - for addressee in TO field Outlook VBA and Custom Forms 11
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
D VBA code to select a signature from the signatures list Outlook VBA and Custom Forms 3
D Create advanced search (email) via VBA with LONG QUERY (>1024 char) Outlook VBA and Custom Forms 2
David McKay VBA to manually forward using odd options Outlook VBA and Custom Forms 1

Similar threads

Back
Top