Problema para enviar e-mail

[dobfivewin]

Hola Amigos

Estoy tratando enviar un e-mail en programa de e-mail me lo rechaza

#include "fivewin.ch"
#include "mail.ch"

function main()
local oWnd
define window oWnd
activate window oWnd on init doit()
return nil

function doit()
local oMail,aCustomer:={}
local cSubject:="Prueba"
local cMessage:="Prueba de envio de e-mail"

aadd(aCustomer,"dbarrio@jla.com.ar")

DEFINE MAIL oMail;
SUBJECT cSubject;
TEXT cMessage

oMail:aRecipients:=aCustomer

ACTIVATE MAIL oMail

msgInfo("mail sent")

return nil

[dobfivewin]

Le comento que sale desde el correo pero me reclaza el envio el outlook, que podra ser??

gracias

David

[dobfivewin]

Ya solucioné, estaba ejecutando el programa con outlook, y no con uotlook express.

muchas gracias igualmente

dbarrio
argentina