Event Sink Registration / Error Committing Transaction : -2141913026

Event Sink Registration / Error Committing Transaction : -2141913026

Post by QWRhbSBTbW » Thu, 22 Jan 2004 00:51:05



Hi

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:

<SCRIPT Language=VBScript>
Sub ExStoreEvents_OnSave(ptrEventInfo, bstrURLItem, lngFlags)
Dim objRecord
Set objRecord = CreateObject("ADODB.Record")
If (lngFlags And 8) Or (lngFlags And 1) Then
objRecord.Open bstrURLItem
objRecord.Fields.Item(" http://www.yqcomputer.com/ ").Value = "IPM.Note.Rund"
objRecord.Fields.Update
objRecord.Close
End If
Set objRecord = Nothing
End Sub
</SCRIPT>

Here's the code I'm using to register the event sink:

regsvr32 c:\programme\exchsrvr\bin\exodbesh.dll
regsvr32 c:\programme\exchsrvr\bin\exodbprx.dll
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:
Event: OnSave
Sink: ExOleDB.ScriptEventSink.1
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?

Regards,

Adam Smith
 
 
 

Event Sink Registration / Error Committing Transaction : -2141913026

Post by Siegfried » Fri, 23 Jan 2004 01:13:55


[snip]


I don't see anything wrong with your code but the above error message
usually points to a permission problem.

--
Cheers,

Siegfried Weber

If you want a smart answer, ask a smart question
http://www.yqcomputer.com/ ~esr/faqs/smart-questions.html