A customer has developed a simple Outlook form, which they want to use for all incoming mail in a particular Exchange 2000 public folder. In order to this the message class of incoming mails needs to be changed from IPM.Post to IPM.Note.Rund. Here's the code I'm trying to use:
Sub ExStoreEvents_OnSave(ptrEventInfo, bstrURLItem, lngFlags)
Set objRecord = CreateObject("ADODB.Record")
If (lngFlags And 8) Or (lngFlags And 1) Then
").Value = "IPM.Note.Rund"
Set objRecord = Nothing
Here's the code I'm using to register the event sink:
cscript c:\RegEvent.vbs ADD "OnSave" ExOleDB.ScriptEventSink.1 "file://./backofficestorage/DOM05.DE/PUBLIC FOLDERS/Test/IPMNoteRund" -f c:\ipmnoterund.vbs WHERE "DAV:ishidden" = FALSE
Here's the result:
Microsoft (R) Windows Script Host, Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Alle Rechte vorbehalten.
New Event Binding created:
FullBindingUrl: file://./backofficestorage/DOM05.DE/PUBLIC FOLDERS/Test/IPMNoteRund
Error Commiting Transaction : -2141913026
I'm logged on as Administrator, a member of the local and domain admins and Exchange Domain Servers. I have full Exchange Admin permissions and am owner of the folder Test. It's a German server.
Any ideas what I'm doing wrong?