Hi all,

I found a code on this site to save attachment to a set directroy. Works
wonderfully. Thank you.

Now if I only can link a specific oulook rules to run this Macro
automatically every time it processes a new item? Help Please.

Rules support a "run a script" action, which uses not an external script but a VBA procedure with a MailItem or MeetingItem as its parameter. That item is processed by the code:


Sub RunAScriptRuleRoutine(MyMail As MailItem)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim msg As Outlook.MailItem
Dim rply as Outlook.MailItem

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set msg = olNS.GetItemFromID(strID)
' do stuff with msg, e.g.
Set rply = msg.Reply
rply.Body = "What you want the reply to say."
rply.To = ; "
rply.Send

Set msg = Nothing
Set rply = Nothing
Set olNS = Nothing
End Sub

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Sid" wrote in message ...
Hi all,

I found a code on this site to save attachment to a set directroy. Works
wonderfully. Thank you.

Now if I only can link a specific oulook rules to run this Macro
automatically every time it processes a new item? Help Please.

Sue thank you for addressing my Question.

I am kinda new to VB and did not get what you meant by below. Did you mean
that I should edit the rule to run the script below? if so, how can I setup
this script?


"Sue Mosher [MVP-Outlook]" wrote:

Rules support a "run a script" action, which uses not an external script but a VBA procedure with a MailItem or MeetingItem as its parameter. That item is processed by the code:


Sub RunAScriptRuleRoutine(MyMail As MailItem)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim msg As Outlook.MailItem
Dim rply as Outlook.MailItem

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set msg = olNS.GetItemFromID(strID)
' do stuff with msg, e.g.
Set rply = msg.Reply
rply.Body = "What you want the reply to say."
rply.To = ; "
rply.Send

Set msg = Nothing
Set rply = Nothing
Set olNS = Nothing
End Sub

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Sid" wrote in message ...
Hi all,

I found a code on this site to save attachment to a set directroy. Works
wonderfully. Thank you.

Now if I only can link a specific oulook rules to run this Macro
automatically every time it processes a new item? Help Please.

The procedure I posted is an example of the structure required to run VBA code from a rule, by invoking the "run a script" rule action. Specifically, the procedure needs a MailItem or MeetingItem as its argument, and that is the item that the code works with. You would need to use a similarly-structured procedure, substituting your code to work on a specific MailItem for the code below that works with the msg object. In other words, put your own code after the "do stuff with msg" comment, using msg as your MailItem object.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Sid" wrote in message ...
Sue thank you for addressing my Question.

I am kinda new to VB and did not get what you meant by below. Did you mean
that I should edit the rule to run the script below? if so, how can I setup
this script?


"Sue Mosher [MVP-Outlook]" wrote:

Rules support a "run a script" action, which uses not an external script but a VBA procedure with a MailItem or MeetingItem as its parameter. That item is processed by the code:


Sub RunAScriptRuleRoutine(MyMail As MailItem)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim msg As Outlook.MailItem
Dim rply as Outlook.MailItem

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set msg = olNS.GetItemFromID(strID)
' do stuff with msg, e.g.
Set rply = msg.Reply
rply.Body = "What you want the reply to say."
rply.To = ; "
rply.Send

Set msg = Nothing
Set rply = Nothing
Set olNS = Nothing
End Sub

"Sid" wrote in message ...
Hi all,

I found a code on this site to save attachment to a set directroy. Works
wonderfully. Thank you.

Now if I only can link a specific oulook rules to run this Macro
automatically every time it processes a new item? Help Please.

Sue. It worked. A Million Thanks.

"Sue Mosher [MVP-Outlook]" wrote:

The procedure I posted is an example of the structure required to run VBA code from a rule, by invoking the "run a script" rule action. Specifically, the procedure needs a MailItem or MeetingItem as its argument, and that is the item that the code works with. You would need to use a similarly-structured procedure, substituting your code to work on a specific MailItem for the code below that works with the msg object. In other words, put your own code after the "do stuff with msg" comment, using msg as your MailItem object.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Sid" wrote in message ...
Sue thank you for addressing my Question.

I am kinda new to VB and did not get what you meant by below. Did you mean
that I should edit the rule to run the script below? if so, how can I setup
this script?


"Sue Mosher [MVP-Outlook]" wrote:

Rules support a "run a script" action, which uses not an external script but a VBA procedure with a MailItem or MeetingItem as its parameter. That item is processed by the code:


Sub RunAScriptRuleRoutine(MyMail As MailItem)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim msg As Outlook.MailItem
Dim rply as Outlook.MailItem

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set msg = olNS.GetItemFromID(strID)
' do stuff with msg, e.g.
Set rply = msg.Reply
rply.Body = "What you want the reply to say."
rply.To = ; "
rply.Send

Set msg = Nothing
Set rply = Nothing
Set olNS = Nothing
End Sub

"Sid" wrote in message ...
Hi all,

I found a code on this site to save attachment to a set directroy. Works
wonderfully. Thank you.

Now if I only can link a specific oulook rules to run this Macro
automatically every time it processes a new item? Help Please.

I have sought to learn the structure required to run a rule from VBA
code. Has anyone done that (short of key-stuffing)?

On Jul 26, 2:30 pm, "Sue Mosher [MVP-Outlook]"
wrote:
The procedure I posted is an example of the structure required to run VBA code from a rule, by invoking the "run a script" rule action.

Outlook 2007 is the first version with the capability to run a rule programmatically. Code sample at http://www.outlookcode.com/codedetail.aspx?id=1266

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


wrote in message oups.com...
I have sought to learn the structure required to run a rule from VBA
code. Has anyone done that (short of key-stuffing)?

On Jul 26, 2:30 pm, "Sue Mosher [MVP-Outlook]"
wrote:
The procedure I posted is an example of the structure required to run VBA code from a rule, by invoking the "run a script" rule action.

Thank you for your clear answer, Sue.