Page 1 of 1
Problema enviar correo desde vista Previa
Posted: Mon Apr 20, 2020 5:10 pm
by jvtecheto
HOla :
He probado el envio de correo desde FWH sin nada mas y utilizando Outlook , desde la vista previa el listado que estas viendo lo adjunta en pdf
y lo envia a traves de Outlook, con tu intervencion , claro , el unico problema que despues que lo envias y cierras outlook , parece que no se cierra y lo deja
colgado, no funciona Outlook hasta que no reinicies.
¿A alguien le pasa lo mismo.?.
Saludos
Jose.
Re: Problema enviar correo desde vista Previa
Posted: Tue Apr 21, 2020 8:57 pm
by jvtecheto
Cambio un poco la pregunta, os funciona bien enviar el correo con otro cliente que no sea Outlook.?
Venga me interesa utilizarlo es una opción magnífica.
Gracias por vuestra ayuda
Jose.
Re: Problema enviar correo desde vista Previa
Posted: Thu Apr 23, 2020 8:52 am
by jvtecheto
jvtecheto wrote:Cambio un poco la pregunta, os funciona bien enviar el correo con otro cliente que no sea Outlook.?
Venga me interesa utilizarlo es una opción magnífica.
Gracias por vuestra ayuda
Jose.
De verdad nadie utiliza, esta opción.??.
Enviado desde mi POCOPHONE F1 mediante Tapatalk
Re: Problema enviar correo desde vista Previa
Posted: Thu Apr 23, 2020 1:46 pm
by jvtecheto
Nadie...????
Re: Problema enviar correo desde vista Previa
Posted: Thu Apr 23, 2020 5:09 pm
by gmart1
Hola, te expongo lo que hago yo, al pinchar en el símbolo de email del Preview se ejecuta la función ENVIAR_EMAIL, que guarda el preview a PDF y después hace el envío mediante CDO adjuntando el PDF.
Está línea de código cambia el codeblock que se ejecuta al pinchar en el icono de email en el Preview, debes ponerla después de definido el objeto TPrinter.
Code: Select all
TPreview():bEmail := { |oPreview, cFile| ENVIAR_EMAIL (oPreview, cFile) }
Y aquí la función :
Code: Select all
static function ENVIAR_EMAIL (oPreview, cFile)
local oEmailMsg, oErr, cFicPDF, cSchema := "http://schemas.microsoft.com/cdo/configuration/"
cFicPDF := getenv ("TEMP") + "\" + cFile + ".PDF"
FWSavePreviewToPDF ( oPreview, cFicPDF, .f. )
oEmailMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT oEmailMsg
:From := ""
:To := ""
:CC := ""
:BCC := ""
:Subject := ""
:TextBody := "Texto del correo " + CRLF + ;
"en varias lineas"
if FILE ( cFicPDF )
:AddAttachment (cFicPDF)
endif
WITH OBJECT :configuration:Fields
:Item( cSchema + "smtpserver" ):Value := "smtp.gmail.com"
:Item( cSchema + "smtpserverport" ):Value := 465
:Item( cSchema + "sendusing" ):Value := 2
:Item( cSchema + "smtpauthenticate" ):Value := .t.
:Item( cSchema + "smtpusessl" ):Value := .t.
:Item( cSchema + "sendusername" ):Value := "" && usuario de la cuenta gmail
:Item( cSchema + "sendpassword" ):Value := "" && contraseña
:Item( cSchema + "smtpconnectiontimeout" ):Value :=60
:Update()
END WITH
:Send()
END WITH
return Nil
Sólo tienes que rellenar _ del email con tus direcciones y texto. Yo uso una cuenta de gmail, por eso en smtpserver te lo he dejado como ejemplo, pero puedes usar cualquier cuenta que funcione a través de smtp.
Un saludo.
Re: Problema enviar correo desde vista Previa
Posted: Fri Apr 24, 2020 12:30 pm
by jvtecheto
Muchisimas gracias amigo:
Es una buena solucion, pero se deberia hechar un vistazo a la opcion que provee Fivewin , a lo mejor con poco esfuerzo se arregla .
Saludos.
Jose.