envio de pdf
Posted: Mon Feb 10, 2014 2:22 pm
Utilizo este codigo
el email llega pero no adjunta el pdf
el pdf lo tengo en la ruta que se ejecuta el programa
he revisado varios post anteriores pero no consigo solucionarlo
por favor si alguien sabe como hacerlo?
cSMTPServer := "mail.pcfacil.cl"
cPopServer := "mail.pcfacil.cl"
cFrom := "info@pcfacil.cl"
cTo := "nstuardo@gmail.com"
cSMTPPassWord := "NSloteria2010"
s:=str(37)
mipdf := '{"'+alltrim(s)+'.pdf"}'
aFiles := mipdf
msginfo(aFiles)
MsgInfo( iif(hb_SendMail( cSMTPServer,;
NIL,;
cFrom,;
cTo,;
NIL /* CC */,;
NIL /* BCC */,;
"test: Orden de Compra Las Dalias",;
"test: subject",;
aFiles,;
cFrom,;
cSMTPPassword,;
cPopServer,;
NIL /* nPriority */,;
NIL /* lRead */,;
.F. /* lTrace */,;
.T. /* lPopAuth */,;
.F. /* lNoAuth */,;
NIL /* nTimeOut */,;
NIL /* cReplyTo */,;
.F. /* lTLS */,;
cSMTPPassWord ), "Correo enviado satistactoriamente", "Correo NO enviado"), "Resultado" )
RETURN
gracias
Nelson Stuardo
el email llega pero no adjunta el pdf
el pdf lo tengo en la ruta que se ejecuta el programa
he revisado varios post anteriores pero no consigo solucionarlo
por favor si alguien sabe como hacerlo?
cSMTPServer := "mail.pcfacil.cl"
cPopServer := "mail.pcfacil.cl"
cFrom := "info@pcfacil.cl"
cTo := "nstuardo@gmail.com"
cSMTPPassWord := "NSloteria2010"
s:=str(37)
mipdf := '{"'+alltrim(s)+'.pdf"}'
aFiles := mipdf
msginfo(aFiles)
MsgInfo( iif(hb_SendMail( cSMTPServer,;
NIL,;
cFrom,;
cTo,;
NIL /* CC */,;
NIL /* BCC */,;
"test: Orden de Compra Las Dalias",;
"test: subject",;
aFiles,;
cFrom,;
cSMTPPassword,;
cPopServer,;
NIL /* nPriority */,;
NIL /* lRead */,;
.F. /* lTrace */,;
.T. /* lPopAuth */,;
.F. /* lNoAuth */,;
NIL /* nTimeOut */,;
NIL /* cReplyTo */,;
.F. /* lTLS */,;
cSMTPPassWord ), "Correo enviado satistactoriamente", "Correo NO enviado"), "Resultado" )
RETURN
gracias
Nelson Stuardo