Outlook 2013 - Customized auto-reply message

Status
Not open for further replies.

SamyB

Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server
hi,

i have MS Outlook 2013. i do know how to put an auto - reply message to use it when i'm out of my office or away from desk.

but i want this message to be customized, such as:

if the sender's email is: email@domain.com

i would like my auto reply to start with: dear email@domain.com ...

how can i do that?

thanks in advance for you time and help.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
The out of office assistant doesn't support that. You can click Rules... and create a rule to reply with a template, but AFAIK, the OOF template can't do that - you'd need to use a macro, which would require Outlook to remain open.
 

SamyB

Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server
i have noticed that.

where can i find such a macro?

thanks
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
VBa is here: run-script-rule-reply-message - you'll need to use item.sender in place of "your text" and whatever else you want. There are also samples that use templates - while not a run a script sample, this one shows how to use a template

olSelection.InsertBefore item.sender
 

SamyB

Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server
and if i replace your text with item.sender

where shall i type my message?

and how do i define where i want my variable ( sender ID ) to be?

:confused::confused:
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
item.sender is the variable - it picks up the address from the original.

You can add your message in the vba -

item.sender & vbcrlf & "hi, I'm not into today. I'll take care of this tomorrow. Thanks for understanding"
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
This is what the reply would look like to notifications from this board -

reply-message.jpg
 

SamyB

Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server
this is my macro:

Sub ReplywithNote(Item As Outlook.MailItem)

Dim olInspector As Outlook.Inspector

Dim olDocument As Word.Document

Dim olSelection As Word.Selection

Set myReply = Item.Reply

myReply.Display

Set olInspector = Application.ActiveInspector()

Set olDocument = olInspector.WordEditor

Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore Item.Sender & vbCrLf & "hi, I'm not into today. I'll take care of this tomorrow. Thanks for understanding"

' uncomment to send

' myReply.Send

End Sub

it did not work :(
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Did you create a rule for it? This line: myReply.Display displays it onscreen for testing - you'll need to uncomment the send line at the end to use it for real.

Is macro security set to low?
 

SamyB

Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server
yep..can u please copy the whole code so I can check it? thanks
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
I will, but it won't be until later today, I'm not in the office and only have my iPad with me.
 
Status
Not open for further replies.
Top