Visual Basic - Solo para expertos

Hice este procedimiento para enviar datos por correo
El procedimiento lo que hace es tomar una colección de clientes que le paso, y para cada cliente de la colección mandar un mail
--------------------------------------------------------------------------------------------------
Public Sub EnviarACorreo(ByVal ColDatos As Collection)
Dim ObjSession As Object
Dim ObjMensaje As Object
Dim LngI As Long
For LngI = 1 To ColDatos.Count
Set ObjSession = CreateObject("MSMAPI.MAPISession")
Set ObjMensaje = CreateObject("MSMAPI.MAPIMessages")
ObjSession.DownLoadMail = False
ObjSession.SignOn
ObjMensaje.SessionID = ObjSession.SessionID
With ObjMensaje
.Compose
.RecipAddress = ColDatos.Item(LngI)("IdCuenta")
.AddressResolveUI = True
.ResolveName

.Send True
End With
ObjSession.SignOff
Next LngI
Exit Sub
End Sub
--------------------------------------------------------------------------------------------------
El problema es que cuando corro este procedimiento me sale un error
----------------------------------------------------------------------------------------------
ERROR DESCONOCIDO
Número: 429
Descripción: El componente ActiveX no puede crear el objeto
Origen: SistemaAD
-------------------------------------------------------------------------------------------------
El procedimiento está dentro de una dll que es llamada por el programa principal.
Alguien sabe a que se debe este error y cómo lo puedo solucionar.
Gracias!!!!!

¿Has registrado la dll con regsvr32? si lo has hecho, ¿has referenciado la dll en Visual Basic, Proyecto-->Referencias?,de todas formas te mando la descripcion del error por mail.
Saludos

hola javier

espero poder ayudarte pero antes que nada pasame los archivos de tu programilla ami mail y con mucho gusto te ayudare amigo mio.........