Problema enviar correo desde vista Previa

[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.

[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.

[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.

De verdad nadie utiliza, esta opción.??.

Enviado desde mi POCOPHONE F1 mediante Tapatalk

[jvtecheto]

Nadie...????

[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  Expand view  RUN

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

Y aquí la función :

Code: Select all  Expand view  RUN

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]

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.

[Armando]

+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

[karinha]

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.

[FranciscoA]

He probado el codigo de gmart1 y funciona al 100.

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

Code: Select all  Expand view  RUN

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