I need to call a COM component to process each incoming message. I can write
VBA to call it and get the response, but I can't find out how to invoke a VBA
function from an Outlook rule.

A VBA procedure to be called by a "run a script" rule action needs 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

For more examples of "run a script" rule actions, see:

http://www.outlookcode.com/d/code/zaphtml.htm#ol2002
http://www.outlookcode.com/codedetail.aspx?id=1494


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


"rob" wrote in message ...
I need to call a COM component to process each incoming message. I can write
VBA to call it and get the response, but I can't find out how to invoke a VBA
function from an Outlook rule.

Public Sub Foobar(item As MailItem)
' blah, blah
End Sub

Have your rule call Foobar from the "run a script" action in the rules
wizard.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"rob" wrote in message
...
I need to call a COM component to process each incoming message. I can
write
VBA to call it and get the response, but I can't find out how to invoke a
VBA
function from an Outlook rule.