Outlook - Manual trigger for standard reply

[GeoffHiggs]

I have done a lot in Excel VBA but nothing in Outlook VBA.

I would like to have a button (or hot key) in Outlook that when activated sent a reply (from me) to the sender of the currently open email saying, "I have noted your email and am dealing with it".
Any ideas how to do this?

This is because I am often not able to access my email every day and is important for some messages that the sender knows that some action is (or is not yet) being taken.

Regards,




Geoff Higgs

 

[TopJack]

Geoff,

can you not use the in-built E-Mail Rules that can automate replies by using certain criteria.

In Outlook 2003 its under "Tools/Rules and Alerts".

Just a thought, hope it helps.

 

[GeoffHiggs]

Topjack,

Thanks for reply.

Trouble is I want to go through the new emails in my Inbox and, as I read each one, then, only if appropriate for that email, send this particular reply.

I don't want it to sent it to all and I can't formulate a rule for the sender's name as this reply is dependent on the content of the message. Only some messages require various follow-up operations to take place and in those cases I want the sender to know that I have seen the requirement and it is in my list of things in train.

Regards,


Geoff Higgs

 

[TopJack]

I see your issue, you need to run a Macro similiar to this :-

Sub send_auto_reply()
[COLOR=green]'declare variables[/color]
Dim myolApp As Outlook.Application
Dim myinspector As Outlook.Inspector
Dim myItem As Outlook.MailItem

[COLOR=green]'set up mail objects[/color]
Set myolApp = CreateObject("Outlook.Application")
Set myinspector = myolApp.ActiveInspector

[COLOR=green]'if a mail item is open then auto reply with standard message[/color]
If Not TypeName(myinspector) = "Nothing" Then
    Set myItem = myinspector.CurrentItem.Reply
    myItem.Body = "I have received this e-mail and will action tomorrow" & myItem.Body
    myItem.Send
Else
    MsgBox "There is no active mail open"
End If

End Sub

I can't take the credit for this because I think it originally came from the VB help screens in Outlook. Enjoy anyway.

 

[GeoffHiggs]

Topjack,

Many thanks. Looks good.

As usual, while having some time to think about this "nice-to-have" utility, a problem has come in that they want sorted yesterday.

Will try to get back to this next week.

Thanks again,

Geoff


Geoff Higgs

 

[GeoffHiggs]

Topjack,

Finally got a chance to get around to this.
Worked a treat.
Haven't figured out how to transport an Outlook custom tooolbar to another PC (as you can do in Excel) but, as it is for only one user, re-creating not a problem.

Many thanks


Geoff Higgs