CDOsys sending email

HMG en Español

Moderator: Rathinagiri

Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Re: CDOsys sending email

Post by Javier Tovar »

Gracias DanielMaximiliano por compartir información!

Saludos
User avatar
Agil Abdullah
Posts: 204
Joined: Mon Aug 25, 2014 11:57 am
Location: Jakarta, Indonesia
Contact:

Re: CDOsys sending email

Post by Agil Abdullah »

Daniel,

Thanks for nice post!
Agil Abdullah Albatati (just call me Agil)
Programmer Never Surrender
User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil

CDOsys sending email

Post by Pablo César »

Gracias Daniel por compartir con nosotros !

Image

Luce muy linda tu aplicacion ! Felicitaciones y gracias tambien por tus consejos.
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: CDOsys sending email

Post 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 5197 times
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
EduardoLuis
Posts: 682
Joined: Tue Jun 04, 2013 6:33 pm
Location: Argentina

Re: CDOsys sending email

Post 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
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: CDOsys sending email

Post 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
Attachments
PickUp.zip
(124.44 KiB) Downloaded 172 times
ErroR.jpg
ErroR.jpg (126.45 KiB) Viewed 2662 times
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: CDOsys sending email

Post 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
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: CDOsys sending email

Post 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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: CDOsys sending email

Post 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
Attachments
Error.jpg
Error.jpg (49.53 KiB) Viewed 2590 times
PickUp.zip
(64.39 KiB) Downloaded 169 times
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: CDOsys sending email

Post 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
Attachments
Sample.jpg
Sample.jpg (52.81 KiB) Viewed 2538 times
Sample.zip
(54.33 KiB) Downloaded 180 times
Post Reply