Greeting;



	I tried to run the following codes but apprarently the system did not

recognized MAPI.SESSION (I have installed Microsoft CDO 1.21 library,

Microsoft CDO for NTS 1.2 Library).



	I tried to unregistered CDO.DLL hoping to reinstall CDO and solve the

problem, but encountered the problem (regsvr32 cdo.dll):



		Load Listing ("CDO.DLL") Failed. GetLastError returns 0x0000007e





	Can someone help me, please.



--------------------------- My

 Code -----------------------------------------

Private Function Logon() As Boolean

   On Error GoTo errHandler



   'For testing log-on only

   Dim objFolder As MAPI.Session



   'If we have logged on previously, logoff now

   Logoff



    Set gobjsession = New MAPI.Session   <<-- Error Detected Here, go to

error routine

    With gobjsession

      Select Case True

        Case optLogonType(0).Value

             ' Logon using existing profile

             .Logon profileName:=txtLogon.Text



        Case optLogonType(1).Value

             .Logon ProfileInfo:=gcstrServer & txtLogon.Text, _

             showDialog:=False

      End Select



      ' Ensure that we have actually logged on since the

      ' Logon method might not report an error even if

      ' the logon fails



       'Set objFolder = gobjsession.Inbox

    End With



    Logon = True



ExitFunc:

    Set objFolder = Nothing

    Exit Function



errHandler:

    'Logoff to release the object reference

    Logoff



    'Display an error and ask the user to log on again

    MsgBox "Invalid Profile Name or Mailbox Alias, try again!", , "Logon"

    txtLogon.SetFocus

    SendKeys "{Home}+{End}"



    Resume ExitFunc

End Function





---

You are currently subscribed to asp_cdo as: $subst('Recip.EmailAddr')

To unsubscribe send a blank email to leave-asp_cdo-$subst('Recip.MemberIDChar')@p2p.wrox.com