See http://www.outlookcode.com/d/code/zaphtml.htm for an example of that event. You'd use the GetSharedDefaultFolder instead of GetDefaultFolder to return the folder you want to monitor.

Programming Exchange is an entirely different matter. Start at http://msdn.microsoft.com/exchange/.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Dwight" wrote in message ...
Sue,
Thanks for quick response!

The security mode is default

I have developed several VBA aplications in MS Access, but this is my first
time coding in Outlook and I feel a little lost. How do I use VBS code to
subscribe to the folder's Items.ItemAdd event, or the Exchange event sink,
and how do I get this mailbox to send a reply to every email received?

Thank you!

Dwight


"Sue Mosher [MVP-Outlook]" wrote:

1) You can't. You'll need to use a different approach, such as VBA code to subscribe to that folder's Items.ItemAdd event, or an Exchange event sink.

2) Tell us the security mode from the Help | About Microsoft Outlook dialog.


"Dwight" wrote in message ...
I have a script that runs when a message arrives that sends a reply message
back to the sender. I have two issues that I need to resolve.

1. The mailbox that the rule is setup on is an office mailbox that does not
get logged into. All the office personnel has the mailbox listed as an
additional mailbox. How can I get the rule to run a script without actually
logging into the mailbox?

2. How do I avoid having to manually respond to the message prompts that is
displayed each time a reply is sent. The 2 prompts that I get a

- A program is trying access email address you have stored in outlook... I
have to click "YES"

- A classification prompt that I click "SEND" again.

Here is the code that I am using:

Sub RunMessageReply(MyMail As MailItem)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim msg As Outlook.MailItem
Dim rpl as Outlook.MailItem

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set msg = olNS.GetItemFromID(strID)
Set rpl = msg.Reply
rpl.Body = "This is a test of the message reply function" & vbCrLf &
rpl.Body
rpl.Send

Set msg = Nothing
Set olNS = Nothing
End Sub


Thanks in advance!

Dwight