HMGforum.com

Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/

CDOsys sending email

http://hmgforum.com/viewtopic.php?t=3473

Page 2 of 4

Re: CDOsys sending email

Posted: Fri Mar 20, 2015 1:23 am
by Javier Tovar
Gracias DanielMaximiliano por compartir información!

Saludos

Re: CDOsys sending email

Posted: Fri Mar 20, 2015 10:27 am
by Agil Abdullah
Daniel,

Thanks for nice post!

CDOsys sending email

Posted: Fri Mar 20, 2015 11:33 am
by Pablo César
Gracias Daniel por compartir con nosotros !

Image

Luce muy linda tu aplicacion ! Felicitaciones y gracias tambien por tus consejos.

Re: CDOsys sending email

Posted: Sat Mar 21, 2015 2:32 am
by danielmaximiliano
Hola a Todos : en repuesta al amigo Eduardo Luis les comento que posiblemente no puedan enviar correo mediante Yahoo ya que las medidas nuevas de seguridad se extendieron y es necesario crear contraseñas adicionales para dispositivos y aplicaciones externas a Yahoo Mail desde WEB.
las mismas se pueden agregar desde esta direccion https://ar.ayuda.yahoo.com/kb/yahoo-acc ... sions=true

si llegara a perder un dispositivo Android o/u otro es necesario eliminar dicha contraseña y esa cuenta yahoo es desvinculada y no sera posible leer desde ahi..

Yahoo avisa mediante correo electronico que un dispositivo se intento entrar a dicha cuenta y entrega el enlace para eliminar o agregar dicho dispositivo a la cuenta yahoo si nosotros mismo somos los que intentamos entrar o enviar correo desde dicha cuenta de email
Translate Google Hi Everyone: in response to the friend Eduardo Luis I commented that possibly can not send mail using Yahoo as new security measures were extended and need to create additional passwords for external devices and applications to Yahoo Mail from WEB.
the same can be added from this direction [url] https://ar.ayuda.yahoo.com/kb/yahoo-acc ... sions=true [/ url]

if you were to lose your Android device or / or another you need to remove the password and the account yahoo is disconnected and will not be possible to read from there ..

Yahoo email alerts using a device to attempt to enter the account and delivers the link to remove or add the device to the same yahoo account if we are the ones who try to enter or send mail from that account to email
Yahoo mail.jpg
Yahoo mail.jpg (84.2 KiB) Viewed 5830 times

Re: CDOsys sending email

Posted: Wed Mar 25, 2015 1:29 pm
by EduardoLuis
Hi Dany:

In advance thank for your suggestions.- As you mention, that new second password is neccesary to send mail via external app.-
I'm sorry to not answer till today, i have no internet conection at home, so now at my office i can reply you.-
Thanks again for sharing your knowledge with us.-
With regards. Eduardo

De antemano gracias por tus sugerencias.- Como lo mencionas, es necesaria la segunca clave de seguridad para acceder a las cuentas Yahoo desde otras aplicaciones.-
Lamento no haberte respondido antes, pero como no tengo internet en casa, ahora en mi oficina puedo hacerlo.-
Gracias por compartir tus conocimientos con nosotros.-
Cordialmente. Eduardo

Re: CDOsys sending email

Posted: Sat Sep 12, 2020 2:45 pm
by mustafa
Insertar una imagen en el cuerpo del eMail ?

Hola amigos:
Estoy experimentando con el magnifico Sample
CDOsys, presentado por DanielMaximiliano
http://hmgforum.com/viewtopic.php?f=24&t=3473

Se me ocurrió que al principio del texto que se
manda en e-mail , colocar una imagen jpg como
logo en cabeza del email, no un Attachment

No he encontrado demasiada información, vi este Post
http://www.pctoledo.com.br/forum/viewto ... f26246c228
y me he basado un poco en las soluciones, pero sin suerte
he construido un fichero.Html que apunta a un "../PickUp/sample.html" y como Html funciona
código Página Sample.Html:

Code: Select all

<html><body><CENTER><br><br><IMG SRC="logo1.jpg" width="050" height="050" ALIGN="BOTTOM"> </CENTER></body></html>
*-----------------------------------------------------------------------------------------------------------------------------*
Código modificado de CDOsys Main.prg

Code: Select all

 cImagem1:= '<html><body><CENTER><br><IMG SRC="../PickUp/logo1.jpg" width="050" height="050" ALIGN="BOTTOM"> </CENTER></body></html>'
      
      oMsg := CREATEOBJECT ( "CDO.Message" )

     WITH OBJECT oMsg
	 :Configuration := oCfg
         :From          := Main.cFrom.Value
         :To            := Main.cTo.Value
         :Subject       := "e-Mail test using <<< CDOSYS (Collaboration Data Objects) >>>"
         :HTMLBody:= cImagem1
*-----------------------------------------------------------------------------------------------------------------------------*
Código modificado de CDOsys Main.prg
En esta opción sale el Logo pero se incorpora como un Attachment

Code: Select all

 cImagem:= "logo1.jpg"
 cImagem1:= '<html><body><CENTER><br><IMG SRC="../PickUp/logo1.jpg" width="050" height="050" ALIGN="BOTTOM"> </CENTER></body></html>'
  
      oMsg := CREATEOBJECT ( "CDO.Message" )

     WITH OBJECT oMsg
	 :Configuration := oCfg
         :From          := Main.cFrom.Value
         :To            := Main.cTo.Value
         :Subject       := "e-Mail test using <<< CDOSYS (Collaboration Data Objects) >>>"
         :AddRelatedBodyPart( hb_DirBase()+cImagem, cImagem1, 0 )
         :HTMLBody:= cImagem1
Haber si algún colega tiene alguna solución ?
Saludos /regards
Mustafa

Re: CDOsys sending email

Posted: Sat Sep 12, 2020 4:54 pm
by mustafa
Hola amigos
Encontré una solución provisional , hay que crear una fichero ejemplo == >" sample.html"
con el Logo que queramos poner ejemplo:

Code: Select all

<html><body><CENTER><br><br><IMG SRC="logo1.jpg" width="050" height="050" ALIGN="BOTTOM"> </CENTER></body></html>
y anexar esta linea a Main.prg

Code: Select all

  
  
     oMsg := CREATEOBJECT ( "CDO.Message" )

      WITH OBJECT oMsg
	 :Configuration := oCfg
         :From          := Main.cFrom.Value
         :To            := Main.cTo.Value
         :Subject       := "e-Mail test using <<< CDOSYS (Collaboration Data Objects) >>>"
         :CreateMHTMLBody("File://C:\CDOsys\PickUp\sample.html",0)    // <==  New Code 
  etc...etc..


PD: Esta solución solo permite ver el Logo, si se incorpora texto si se intenta anexar debajo texto con
:HTMLBody el Logo sale como si fuera Attachment y si anexamos texto con :TextBody No sale Nada

Saludos/ Regards
Mustafa

Re: CDOsys sending email

Posted: Sat Sep 12, 2020 9:16 pm
by danielmaximiliano
mustafa wrote: ↑Sat Sep 12, 2020 4:54 pm Hola amigos
Encontré una solución provisional , hay que crear una fichero ejemplo == >" sample.html"

Saludos/ Regards
Mustafa
cr
Hola Mustafa.
puedes subir los fuentes y los archivos necesarios para poder probar y modificar. de esa manera crear correctamente el Body del email..gracias

Re: CDOsys sending email

Posted: Sun Sep 13, 2020 12:16 pm
by mustafa
Hola Daniel como estas ?
Gracias por responder
el experimento esta realizado con tu programa ==> "CDOsys.rar"
Solo estoy añadiendo estas lineas de código el resto es tu programa.

El 1º Caso solo añado en tu codigo Main.prg marcando con X Pickup Directory sin tocar Botón Attachment ni Html Body y solo le doy al Botón Send
me salto las ordenes del Programa para ver solo el resultado en el eMail.

Code: Select all

 cImagem1:= '<html><body><CENTER><br><IMG SRC="../PickUp/logo1.jpg" width="050" height="050" ALIGN="BOTTOM"> </CENTER></body></html>'
 :HTMLBody:= cImagem1
el 2º Caso lo mismo que caso 1º

Code: Select all

 cImagem:= "logo1.jpg"
 cImagem1:= '<html><body><CENTER><br><IMG SRC="../PickUp/logo1.jpg" width="050" height="050" ALIGN="BOTTOM"> </CENTER></body></html>'
 :AddRelatedBodyPart( hb_DirBase()+cImagem, cImagem1, 0 )
:HTMLBody:= cImagem1
el 3º caso lo mismo que caso 1º y Creo un Fichero " sample.html" dentro de Carpeta--> PickUp con este código

Code: Select all

<!DOCTYPE HTML>
<html>
  <body>
    <br><IMG SRC="logo1.jpg" width="050" height="050" ALIGN="BOTTOM">
    <h1>La imagen de arriba esta incrustada en el mensaje</h1>
    <p>La imagen de arriba esta incrustada en el mensaje</p>
  </body>
</html>
y anexar esta linea a Main.prg

Code: Select all

:CreateMHTMLBody("File://C:\CDOsys\PickUp\sample.html",0)    // <==  New Code
Con esta última acción se logra Incrustrar imagen el el eMail, pero si intentas añadir un texto que no este en dicho fichero
es decir en :HTMLBody por ejemplo

Code: Select all

:CreateMHTMLBody("File://C:\CDOsys\PickUp\sample.html",0) 
:HTMLBody :="<html><body><pre>"+ "La imagen de arriba esta incrustada en el mensaje" +"<p>"+"Shipping Date"+SPACE(2) +DTOC(DATE())  +"</p>"+"</pre></body></html>"
La imagen Incrustrada pasa a convertirse en un Attachment y el texto pasa ha estar encima del Logo

Ver fichero de Error en Pantalla
PD en PickUp.zip estan los ficheros logo1 .jpg y sample.html

Si se pudiera incrustar el texto que se escribe en RICHEDITBOX ==> Main.Content.Value dentro del fichero sample.html
Se vería en el email con image Logo seguido del texto redactado , pero ... ? ni idea

Un saludo/regards
Mustafa

Re: CDOsys sending email

Posted: Mon Sep 14, 2020 11:53 am
by mustafa
Hola amigos
Parece que he conseguido que se vea en el cuerpo del eMail logo.jpg y texto
creando un fichero "Demo.html" que luego en el código general de envío
de Correo se coloca esta línea:

Code: Select all

 :CreateMHTMLBody("File://C:\CDOsys\PickUp\Demo.html",0)
mando una pequeña muestra de código estoy continuando investigando
Saludos/Regards
Mustafa
All times are UTC
Page 2 of 4

Powered by phpBB® Forum Software © phpBB Limited