Re: "No such interface supported" for Event Sink

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Glen Scales [MVP] (gscales_at_outlookexchange.com)
Date: 02/03/05 

Date: Thu, 3 Feb 2005 11:06:34 +1100

The way your sending the message in the Sub isn't going be using Exoledb. Eg
you not setting anything in the configuration object to tell CDO how to send
the message so its just going to default to using the drop directory on the
box . see
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/e2k3/e2k3/_cdo_schema_configuration_sendusing.asp

Cheers
Glen

"Outlook_developer" <newsgroups@bogusdomain.com> wrote in message
news:ul$37vTCFHA.2384@TK2MSFTNGP14.phx.gbl...
> This sub, which uses CDO.Message, works in this Event Sink. The message is
> sent with no errors. Odd that this sub works, but the "rec.Open
> bstrURLItem"
> does not.
>
> Sub SendNewMessage(varFrom As String, varTo As String, varSubj As String,
> varBody As String)
> Dim msgN As New CDO.Message
> Dim oFlds As ADODB.Fields
> Set oFlds = msgN.Fields
>
> With oFlds
> .Item("urn:schemas:httpmail:from") = varFrom
> .Item("urn:schemas:httpmail:to") = varTo
> .Item("urn:schemas:mailheader:subject") = varSubj
> .Item("urn:schemas:httpmail:textdescription") = varBody
>
> .Update
> End With
> msgN.Send
> End Sub
>
>
>
>
> "Glen Scales [MVP]" <gscales@outlookexchange.com> wrote in message
> news:u3IZ0gOCFHA.3840@tk2msftngp13.phx.gbl...
>> Some other things you could try, Look in the event log to see if you
>> have
> a
>> startup event for Exoledb It should be eventid 100 and look for any
>> errors
>> relating to Exoledb in the event log. You might also want to try using
>> the
>> same code outside the event sink and see if you get the same error and
>> try
>> as well opening a connection first eg
>>
>> Set Conn = CreateObject("ADODB.Connection")
>> set rec = CreateObject("ADODB.Record")
>> Conn.Provider = "ExOLEDB.DataSource"
>> Conn.Open "file://./backofficestorage/domain.com/MBX/mailbox", ,3
>> rec.open "file://./backofficestorage/domain.com/MBX/mailbox",conn,3
>> wscript.echo rec.fields("Dav:displayname")
>>
>> You could also just trying use CDOEX which uses Exoledb as well just via
>> a
>> different interface eg
>>
>> Set msgobj = Createobject("CDO.Message")
>> msgobj.datasource.open
>> "file://./backofficestorage/domain.com/MBX/mailbox/inbox/message.eml",,3
>>
>> Cheers
>> Glen
>>
>>
>>
>> "Outlook_developer" <newsgroups@bogusdomain.com> wrote in message
>> news:e6hTMEOCFHA.2540@TK2MSFTNGP09.phx.gbl...
>> > Thanks for the reply. We saw that article, tried that fix and it did
>> > not
>> > help. I suspect the ADO is somehow not loaded or working correctly. I
> had
>> > them reinstalled SP1 and it did not help.
>> >
>> > We are still getting this error.
>> >
>> >
>> > "Glen Scales [MVP]" <gscales@outlookexchange.com> wrote in message
>> > news:OdmKf7NCFHA.3824@TK2MSFTNGP10.phx.gbl...
>> >> I would start with
>> >> http://support.microsoft.com/default.aspx?scid=kb;en-us;303132 and see
> if
>> >> this applies.
>> >>
>> >> Cheers
>> >> Glen
>> >>
>> >> "Outlook_developer" <newsgroups@bogusdomain.com> wrote in message
>> >> news:u7jCliKCFHA.268@TK2MSFTNGP10.phx.gbl...
>> >> > An Event Sink on Exchange 2000 gives an error of "No such interface
>> >> > supported" with the simple code snippet below. This is for a System
>> >> > OnTimer
>> >> > event.
>> >> >
>> >> > Private Sub IExStoreSystemEvents_OnTimer( _
>> >> > ByVal bstrURLItem As String, _
>> >> > ByVal lFlags As Long)
>> >> >
>> >> > On Error Resume Next
>> >> > Dim rec As ADODB.Record
>> >> >
>> >> > Set rec = New ADODB.Record
>> >> > rec.Open bstrURLItem
>> >> > ' I put error checking stuff here that tells me what the error
> is.
>> > It
>> >> > says "No such interface supported"
>> >> >
>> >> >
>> >> > I looked at the Exchange installation and it looks fine (EXOLEDB.DLL
> is
>> >> > there, for example). I reinstalled both MDAC 2.8 and SP1 and it
>> >> > still
>> >> > gives
>> >> > this error. Also, I tested the exact same code (this is part of a
>> >> > larger
>> >> > Event Sink) on other Exchange servers and it works just fine. It is
>> >> > just
>> >> > this one customer where I am installing this Sink that is having
>> >> > this
>> >> > problem. Any help much appreciated!:
>> >> >
>> >> >
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Relevant Pages

  • Write log description
    ... Private Sub Page_Load(ByVal sender As System.Object, ... Sub WriteToEventLog(ByVal LogName As String, ... 'Create event log if it doesn't exist ...
    (microsoft.public.dotnet.general)
  • Re: "No such interface supported" for Event Sink
    ... This sub, which uses CDO.Message, works in this Event Sink. ... Sub SendNewMessage(varFrom As String, varTo As String, varSubj As String, ... > relating to Exoledb in the event log. ...
    (microsoft.public.exchange2000.development)
  • Project Error
    ... Private Declare Sub Sleep Lib "Kernel32" ... Dim strDataSrc As String ...
    (microsoft.public.vb.bugs)
  • Re: FTP CD command
    ... My code connects to a ftp site and the enumerates all content on that place ... Public Property UriAs String ... End Sub ... Dim listRequest As FtpWebRequest = CType, ...
    (microsoft.public.dotnet.languages.vb)
  • Re: FTP CD command
    ... Private _Uri As String ... End Sub ... Dim listRequest As FtpWebRequest = CType, ... Public Sub UploadAsynch(ByVal fileName As String, ByVal uploadUrl As ...
    (microsoft.public.dotnet.languages.vb)