Problema para enviar e-mail

Problema para enviar e-mail

Postby dobfivewin » Sat Jul 19, 2008 1:52 pm

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
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Postby dobfivewin » Sun Jul 20, 2008 1:25 pm

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

gracias

David
dobfivewin
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Postby dobfivewin » Tue Jul 22, 2008 8:27 am

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

muchas gracias igualmente

dbarrio
argentina
dobfivewin
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 39 guests