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
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
Y Filter unread emails in a search folder vba help Outlook VBA and Custom Forms 0
V vBA for searching a cell's contents in Outlook and retrieving the subject line Outlook VBA and Custom Forms 1
B vBA for exporting excel file from outlook 2016 Outlook VBA and Custom Forms 3
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
L Need help modifying a VBA script for emails stuck in Outbox Outlook VBA and Custom Forms 6
K can't get custom form to update multiple contacts using VBA Outlook VBA and Custom Forms 3
S Excel vba code to manage outlook web app Using Outlook 10
H Custom Outlook Contact Form VBA Outlook VBA and Custom Forms 1
S Problem Checking the available stores in my Inbox (Outlook VBA) Outlook VBA and Custom Forms 0
S Outlook VBA How to adapt this code for using in a different Mail Inbox Outlook VBA and Custom Forms 0
S Add VBA save code Using Outlook 0
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
O VBA Cases with Listbox - Can you use Multi-Select? Outlook VBA and Custom Forms 4
O VBA Outlook Message Attachment - Array Index Out of Bounds Outlook VBA and Custom Forms 0
V Modifying the built in forms with VBA Outlook VBA and Custom Forms 4
S Excel VBA and shared calendar issue Outlook VBA and Custom Forms 3
L Macro/VBA to Reply All, with the original attachments Outlook VBA and Custom Forms 2
L VBA unknown character Outlook VBA and Custom Forms 2
G Move tasks up/down todo list by VBA Outlook VBA and Custom Forms 1
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
K Use VBA to find Sender and Recipient from Microsfot 365 Journaled Email Items Outlook VBA and Custom Forms 3
J Want to learn VBA Macros for Outlook. What book can you recommend? Outlook VBA and Custom Forms 2
F VBA code to dock Styles whenever I write or edit an email Outlook VBA and Custom Forms 0
C VBA to prompt for Sent folder destination Outlook VBA and Custom Forms 3
B Adding signature to bottom of VBA reply email Outlook VBA and Custom Forms 1
B Change Font and Font size using VBA Outlook VBA and Custom Forms 9
M Outlook 2013 reminder email by using Outlook vba Outlook VBA and Custom Forms 2
D.Moore VBA script fail after Office 365 update Using Outlook 8
R Limiting length of saved attachment in VBA Outlook VBA and Custom Forms 2
S Skype for business meeting vba code Outlook VBA and Custom Forms 1
C How to use VBA to show only items x days old or more Outlook VBA and Custom Forms 1
B VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
D Outlook VBA error extracting property data from GetRules collection Outlook VBA and Custom Forms 10
S Reference Custom Fields with VBA Outlook VBA and Custom Forms 2
PGSystemTester VBA To Change AppointmentItem.BusyStatus From MeetingItem Before Send Using Outlook 0
A VBA macro for 15 second loop in send and received just for 1 specific mailbox Outlook VBA and Custom Forms 1
O Email not leaving Outbox when using Excel VBA to sync Outlook account Outlook VBA and Custom Forms 4
G VBA Macro Calendar Printing Assistant 4
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
B VBA to Collapse Task Folder Groups Outlook VBA and Custom Forms 1
R Expand VBA Permanent Delete Code Outlook VBA and Custom Forms 6
shrydvd vba to secure zip attachments Outlook VBA and Custom Forms 3

Similar threads

Top