[RESOLVED] Can't Create ActiveX Component

[hiba84]

Hello,

I am using the following code to send an email thru Outlook 2003:

Dim omsg As Object
        Dim oRcp As Object

        Dim objCDO As MAPI.Session
        objCDO = CreateObject("MAPI.Session")
        objCDO.Logon("", "", False, False)

        omsg = objCDO.Outbox.Messages.Add
        omsg.Subject = subject
        omsg.Text = body

        oRcp = omsg.Recipients.Add
        oRcp.Type = 1
        oRcp.Name = sto
        oRcp.Resolve()
        oRcp = omsg.Recipients.Add
        oRcp.Type = 3
        oRcp.Name = esender
        oRcp.Resolve()
        omsg.Send(False)

        objCDO.Logoff()

        omsg = Nothing
        oRcp = Nothing

I am getting the error "Can't Create ActiveX Component" on some PCs.

please advise.

Thanks

Hiba

[danasegarane]

Does those system has the OutLook or CDO installed ?

[hiba84]

yes they hv the outlook but how can i be sure that the CDO is installed?
thx

[danasegarane]

Refer

[hiba84]

ok thx