Visual Basic - Enviar mail con mapi message

Que tal mi situación es la siguiente:

Tengo una aplicación en VB 6.0 y estoy enviando correos con el MAPIMessage y MAPISession, el código es el siguiente:

MAPISession1.SignOn
DoEvents
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose

MAPIMessages1.RecipIndex = 0
MAPIMessages1.RecipType = 1
MAPIMessages1.RecipAddress = rstgrabar("email")
MAPIMessages1.RecipIndex = 1
MAPIMessages1.RecipType = 2
MAPIMessages1.RecipAddress = rstcorreo("correo")
MAPIMessages1.MsgReceiptRequested = True

'ResolveName
MAPIMessages1.Action = 13
MAPIMessages1.MsgSubject = tipo & " Orden de Compra No. " & noorden
MAPIMessages1.MsgNoteText = "Orden de Compra " & noorden

'Send
MAPIMessages1.Action = 3
MAPISession1.SignOff

El error que me marca es "unspecified failure has occurred", y me aparece al momento de ejecutar el send "MAPIMessages1.Action = 3"

Alguien pudiera ayudarme?

Gracias