Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
I'm pretty glad to have a moderator approbationPablo César wrote:Good question, good and motivated idea !
Code: Select all
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:Configuration := loCfg
:From := Main.cFrom.Value
:To := "xContact@Server.com" // <----- Coloca aqui tu direcci¢n de correo
:Subject := "Prueba con DO"
:TextBody := Main.Contenido.Value
:AddAttachment := "c:\Main.prg" /*** Lineas a agregar ****/
:Send()
ENDWITHCode: Select all
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:Configuration := loCfg
:From := Main.cFrom.Value
:To := "xContact@Server.com ; yContact@Server.com"
:Subject := "Prueba con DO"
:TextBody := Main.Contenido.Value
:AddAttachment := "c:\Main.prg" /*** Lineas a agregar ****/
:Send()
ENDWITHMuchísimas Gracias Daniel. Me ahorraste innumerables horas de trabajo (Thank you very much Daniel. You saved me a lot of work).danielmaximiliano wrote:Hola Roberto :
Funciona 100% y con el menos codigo posible es utilizar CDOSYS ya que la libreria HBTIP hay que compilar y agregar esas librerias a HMG y es un poco engorroso utilizar.
una opcion seria recorrer todos los contactos a enviar E-mail y enviarlos de uno en uno en un bucle.
Roberto Lopez wrote:I'm pretty glad to have a moderator approbationPablo César wrote:Good question, good and motivated idea !
Thanks!
It is really good to have good examples, thank you master !