Automatic reply on incoming messages in outlook using VBA(only Specifi person)

[pbpver1]

Hi,

im very new to VBA coding and forum. autucally im looking for to automatic reply on same email to particular person when they send to inbox.

For example:

If subject of incoming message particular person/recipient. i need automatic reply on that message with text in the body "xxxxx" rply on same email.

 

[Diane Poremsky]

Re: Automatic reply on incoming messages in outlook using VBA(only Specifi per

You'd use a run a script rule - the rule looks for the conditions then passes it off to the script.

Start with http://www.slipstick.com/outlook/rules/run-script-rule-change-subject-message/

and change it to something like this -

Set myForward = Item.Reply

myforward.body = "new text" & myforward.body

myForward.Send

If you are using word as the editor, you can use some word commands to insert text at the top.

Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

olSelection.InsertBefore "your text"

(I'll write up a proper macro that word.selection and put it on slipstick.)

 

[pbpver1]

Re: Automatic reply on incoming messages in outlook using VBA(only Specifi per

Really im very sorry. as im very new VBA. i didnt get you. could you explain inmore deatil.

hope you can understand me.

 

[Diane Poremsky]

Re: Automatic reply on incoming messages in outlook using VBA(only Specifi per

See http://www.slipstick.com/outlook/rules/run-script-rule-reply-message/ for working macros. these macros will do a normal reply and enter some text in the message. You'll use conditions in the rule to identify the messages.

 

[Rincewindwiz]

Hi and HELP!!
This VBA automatic reply is driving me nuts. It sort of worked occasionally but as I fiddled my way towards the desired goal it stopped working and now I cant get it to work at all (well the rule works but the script is never run) so:
I deleted the VBA module1 and the rule; Shut down and reopened outlook and started again and then:
1. Create VBA macro and copy/paste the code at http://www.slipstick.com/outlook/rules/run-script-rule-reply-message/
2. Edit the address of the oft file to point to my oft file.
3. Add the mail rule (specific words in senders address) + stop processing more rules
4 Send email to check the rule conditions (by making the action something obvious - move message to another folder) - it works!
5 Change rule action to run script (remove the move to folder part)
6 Resend email from step 4
7 Macro does not execute (.display does not display message)
8 Add action to move message to the rule
9 Resend email from step 4
10 Macro does not execute but email is moved.
11 Tear hair out!

So what am I doing wrong?

Also, it seems when it was working that the email was sent directly rather than put in the outbox? Is this the case? Is there anyway to getthe reply put in the outbox in the normal way?

Thanks for any suggestions

The macro is
Sub AutoReplywithTemplate(Item As Outlook.MailItem)
Dim oRespond As Outlook.MailItem

' Use this for a real reply
' Set oRespond = Item.Reply

' This sends a response back using a template
Set oRespond = Application.CreateItemFromTemplate("D:\Data\mail\MS-Receipt.oft")

With oRespond
.Recipients.Add Item.SenderEmailAddress
.Subject = "Your Subject Goes Here"
.HTMLBody = "Your reply text goes here." & vbCrLf & _
"---- original body below ---" & vbCrLf & _
Item.HTMLBody & vbCrLf & _
"---- Template body below ---" & _
vbCrLf & oRespond.HTMLBody

' includes the original message as an attachment
.Attachments.Add Item

' use this for testing, change to .send once you have it working as desired
.Display
End With
Set oRespond = Nothing
End Sub

 

[Diane Poremsky]

3. Add the mail rule (specific words in senders address) + stop processing more rules

I'm not sure if its the cause of your problems, but you should only use conditions in the rule, not actions. The script handles all actions.

Everything else looks fine - it should work as long as the path to the template is correct.

 

[Rincewindwiz]

Thanks for the reply.
Yes well I thought everything looked fine as well :-( hence the absence of hair!
What else can I do/try to get to the bottom of this?

1. http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/ actually says add Stop processing more rules.
2. I presume I can simply run this rule (with the script) on messages in the inbox and expect it to work? Do the messages have to be unread?
3. I do actually want to move the message to another folder. How do I do this in VBA

Thanks

 

[Rincewindwiz]

PS I have no idea if it is significant but . . .
If I try run rules now and select this rule, hte green progress bar only makes it just over half way across before stopping.

 

[Diane Poremsky]

Hmmm. I forget writing that. Of all the actions, stop processing would be the one of the few that shouldn't cause problems.

Yes, you can run it as a test. The script doesn't care about the read state, so it should work.
To move, use this after the display/ send
Item.Move Session.GetDefaultFolder(olFolderInbox).Folders("subfolder-name")


Sample code for other folders is here - http://www.slipstick.com/outlook-developer/working-vba-nondefault-outlook-folders/


To test it with currently selected item, try this. If it works, then we know the problem isn't with the code. I couldn't test it with my template, but it works fine with the default reply.

Sub TestTemplate()
Dim Item As Outlook.MailItem
Dim oRespond As Outlook.MailItem


Set Item = Application.ActiveExplorer.Selection.Item(1)

' Use this for a real reply
' Set oRespond = Item.Reply

' This sends a response back using a template
Set oRespond = Application.CreateItemFromTemplate("D:\Data\mail\MS-Receipt.oft")

With oRespond
.Recipients.Add Item.SenderEmailAddress
.Subject = "Your Subject Goes Here"
.HTMLBody = "Your reply text goes here." & vbCrLf & _
"---- original body below ---" & vbCrLf & _
Item.HTMLBody & vbCrLf & _
"---- Template body below ---" & _
vbCrLf & oRespond.HTMLBody

' includes the original message as an attachment
.Attachments.Add Item

' use this for testing, change to .send once you have it working as desired
.Display
End With
Set oRespond = Nothing
End Sub

 

[Rincewindwiz]

1. Ran repair which found errors
2. Tried to run rule and was told to delete those rules with errors. Only rule with an error was unrelated to this issue
3. Copy testTemplate
4. Run macro and it works fine (displays reply email)
5. Run the rule on the inbox and still nothing happens
6. Edit rule to move message instead of run script.
7. Run rule - it works fine (message is moved)
8. Edit rule to run script instead of move message
9. Set breakpoint at first statement (Set oRespond) of script
10 Run this rule on the inbox. Nothing happens.
11 Create error in code and run rule. Nothing happens
so everything points to script not being executed but, given that it is executed when the action is move message, why?!

 

[Rincewindwiz]

And finally, in case any odd characters had got into the script, I
1. deleted the script
2. manually edited the opening lines of the working macro
3. Tried again. Still nothing.
Is there some form of security that applies to scripts and not to macros that is stopping this?

 

[Rincewindwiz]

Ahha - progress. If I send a fresh email the rule works correctly.
if I run the rule on the same email (in the inbox) whether it is read OR unread, the rule does not work so it looks as if there is an additional flag somewhere or it happens at a different step in the process.

And finally, just a few of minor things
1. All now seems to work fine (but only for new messages). However, I can find no trace of the sent message in Outlook. Even if I use .display and click Send, I can still not find the message in outlook. Where did it go?
2. I seem to have had to tick the boxes that allow scripts in shared and public folders. I have no idea why as outlook is not connected to an exchange server (rather to a POP3). Why do I have to do this? Does it really matter?
3. Sorry I am not clear on moving items to different folders in VBA
I have the message as Item.
I want to move it to a folder \Work\Porject\Prjname where work is on the same level as inbox. How do I do this ?

Thanks for all your help

 

[Rincewindwiz]

Another oddity. (see 1 above) Although I can see no trafce of the message, if I try to exit outlook, it tells me that there are unsent messages in the outbox. How can I see them?

 

[Diane Poremsky]

On the unsent message warning: was the message sent? It might be stuck in the outbox, which should be shown in the folder list. This would explain why its not in the sent folder. It definitely should be moving to the sent folder if the message was sent.

 

[Rincewindwiz]

the messages were eventually sent but still did not appear in sent items. The two problems that made fixing this take so long were
1. Believing I could run the script on any message in the inbox (as opposed to a newly arrived one)
2. Thinking the script had not worked because there was no message in the outbox nor received by the sending email system.
The light began to dawn when these messages turned up in batches and I finally (bit slow I know!) noticed the connection between telling outlook to send messages (Outlook is set not to send immediately - I find a cooling off period useful!) and batches of your script messages arriving in the other email client.

None of the script messages have ever been seen in 'Sent Items'
Weird, very confusing and most unhelpful!!