XP, CDO, Outlook and VB6 results in error

Hello everybody,

I have an application that composes an E-mail and displays the Send Dialog to a user before sending it away. I have used the CDO 1.2.1 reference. My code is straightforward and I don't do any tricks. While we had Windows 98 and the Exchange 5.5 client everything worked fine. Since we migrated to XP with Outlook 2000 I have a problem.

In XP you get an annoying message that "some program is trying to access... etc." so far so good. Users press Yes (allow) and the next pops up "a program is trying to send mail on your behalf... etc.". Users press OK on that one too and the dialog _should_ present itself for final inspection and sending.

That does not happen. Right after people press "Yes" on the second pop-up a runtime error "-2147417848 Method '~' of object '~' failed" occurs. I have no idea why.

So far I have looked at the MSDN and Technet for this error but I can't find anything related to either Outlook or the CDO library. Did somebody had a similar problem and if so, how did you solve it.

Following is my code excerpt from the routine giving the trouble:

  Select Case True
  Case optMethode(SM_EMAIL).Value
    Set oSession = New MAPI.Session
    oSession.Logon NewSession:=False
   
    Set oMessage = oSession.Outbox.Messages.Add
    oMessage.Subject = "Klachtmelding"
    oMessage.Text = sTextToSend
   
    Set oRecipient = oMessage.Recipients.Add
    oRecipient.Type = CdoTo
    oRecipient.Address = "SMTP:" & m_rsContactpersonen.Fields("ZakelijkEmail").Value
    oRecipient.Resolve ShowDialog:=False
   
    oMessage.Update
    oMessage.Send True, True, 0
    Set oRecipient = Nothing
    Set oMessage = Nothing
   
    oSession.Logoff
    Set oSession = Nothing

A footnote on the code above, the assumption that every variable is a local variable is correct, except for the m_rs. That's a module level ADO recordset.

Thanks very much in advance for any time spend on this question.

Grtz.©

D.