Quien sabe como enviar correos en PB

Tengo una aplicación en PB 12.5, uso windows 7 de 64, el problema que tengo es a la hora de enviar un email me indica que hubo un error mRet = mSes. MailLogon(mailNewSession!) Me devuelve MailreturnFailure.

Este es el código que utilizo

MailSession mSes
MailReturnCode mRet
MailMessage mMsg
MailFileDescription mObject
  mSes = create mailSession // Crea una sesion de correo
 mRet = mSes.mailLogon(mailNewSession!)  // Iniciamos sesion
  IF mRet <> mailReturnSuccess! THEN //Si retorna negativo manda mensaje fallido
     MessageBox("Correo", 'Logueo Fallido.')
     //RETURN
 END IF
 string recipiente1="[email protected]"

 mMsg.Subject = 'SOPORTE TECNICO' // Estructura del correo:
 //notetext es el cuerpo del mensaje
 mMsg.NoteText = 'Ubicacion :' + unidad +'Activo :' + tipo +'Telefono :' + Vtelefono + 'Service Tag :' + unidad + 'Encargado :' + Vencargado +'Direcion :' + Vdireccion
 //recipient es correo de envio del mensaje
 mMsg.Recipient[1].name =Vemail
 mMsg.Recipient[2].name =Vemail

 // Enviar Mensaje
 mRet = mSes.mailSend(mMsg)

 //Si retorna negativo o cero manda mensaje error
 IF mRet <> mailReturnSuccess! THEN
 MessageBox("Mail Send", 'Mail not sent')
 RETURN
 END IF

 //salir sesion
 mSes.mailLogoff()
 //destruimos la sesion
DESTROY mSes

Si alguien me ayuda le estaré agradecido