VBA when replying + Default Account

Status
Not open for further replies.

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.
 

VBAnoob

Member
Outlook version
Outlook 2016 32 bit
Email Account
Exchange Server
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
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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.
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
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 3
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
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
S vba outlook search string with special characters Outlook VBA and Custom Forms 1
S VBA search string with special characters Outlook VBA and Custom Forms 1
U Outlook 2019 VBA run-time error 424 Outlook VBA and Custom Forms 2
DDB VBA to Auto Insert Date and Time in the signature Outlook VBA and Custom Forms 2
F VBA to move email from Non Default folder to Sub folders as per details given in excel file Outlook VBA and Custom Forms 11
G VBA to save selected Outlook msg with new name in selected network Windows folder Outlook VBA and Custom Forms 1
F Excel VBA to move mails for outlook 365 on secondary mail account Outlook VBA and Custom Forms 1
B Zoom automatically next email item (VBA) Outlook VBA and Custom Forms 2
T vba extract data from msg file as attachment file of mail message Outlook VBA and Custom Forms 1
K Outlook Office 365 VBA download attachment Outlook VBA and Custom Forms 2
A VBA Script - Print Date between first email in Category X and last email in Category Y Outlook VBA and Custom Forms 3
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
N Save selected messages VBA does not save replies and/or messages that contain : in subject Outlook VBA and Custom Forms 1

Similar threads

Top