Problema enviar correo desde vista Previa

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Problema enviar correo desde vista Previa
Posted: Mon Apr 20, 2020 05:10 PM

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.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Problema enviar correo desde vista Previa
Posted: Tue Apr 21, 2020 08:57 PM

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.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Problema enviar correo desde vista Previa
Posted: Thu Apr 23, 2020 08:52 AM

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

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Problema enviar correo desde vista Previa
Posted: Thu Apr 23, 2020 01:46 PM

Nadie...????

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

gmart1

Posts: 84

Joined: Wed Oct 24, 2007 12:48 PM

Re: Problema enviar correo desde vista Previa
Posted: Thu Apr 23, 2020 05:09 PM

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 (fw): Select all Collapse

TPreview():bEmail := { |oPreview, cFile| ENVIAR_EMAIL (oPreview, cFile) }

Y aquí la función :

Code (fw): Select all Collapse

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 los campos 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.

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Problema enviar correo desde vista Previa
Posted: Fri Apr 24, 2020 12:30 PM

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.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problema enviar correo desde vista Previa
Posted: Fri Jul 02, 2021 04:13 PM

+1

Aún no es posible lo mismo desde FWH?, sería un hit

O bien, alguien que me apoye para saber donde encuentro RPreview en FWH 2006

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema enviar correo desde vista Previa
Posted: Fri Jul 02, 2021 05:03 PM

jvtecheto wrote: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.

http://fivewin.com.br/index.php?/topic/29795-erro-abrir-o-outlook/

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Problema enviar correo desde vista Previa
Posted: Fri Jul 02, 2021 07:53 PM

He probado el codigo de gmart1 y funciona al 100.

Es algo que está previsto en el METHOD SendMail() CLASS TPreview

Code (fw): Select all Collapse

 elseif ::bEmail != nil
      Eval( ::bEmail, Self, cName, cFile )

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion