FiveTech Software tech support forums

#include "fivewin.ch"

#define olMailItem 0
#define olFormatHTML 2

function main()
   local oWnd
   
   define window oWnd
   activate window oWnd on CLICK fromOle()
return nil


function fromOle()

   local oOutlook := CreateObject( "Outlook.Application" )
   local oMail
   local cMessage:="<b>This is a test message.</b>"

   cMessage += "<ul><li><a href='tdolphin.blogspot.com'>DOLPHIN</a></li></ul>"

   oMail := oOutlook:CreateItem( olMailItem )

   with object oMail
     
      :Subject = "test " + time()
     
      :BodyFormat = olFormatHTML
      :HTMLBody   = cMessage
     
      :Recipients:Add( "danielgarciagil@gmail.com" )
     
      :Attachments:Add( "nombre_del_archivo_con_la_ruta_completa" ) //ej: :Attachments:Add( "c:\fwh\samples\build.bat" )
     
     
      :Send()
   END
   
   oOutlook:Quit()



return nil


 

Function Correo(cFichero)
   Local loCfg, loMsg, oError
   local cPdf := cFichero + ".pdf"
   local cXML := cFichero + '.xml'


   TRY
      loCfg := CREATEOBJECT( "CDO.Configuration" )
      WITH OBJECT loCfg:Fields
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "mail.wizardsoftware.com.mx"
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 26
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .f.
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := "prueba@wizardsoftware.com.mx"
          :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "prueba"
         :Update()
      END WITH

      loMsg := CREATEOBJECT ( "CDO.Message" )
      WITH OBJECT loMsg
         :Configuration = loCfg
         :From = "prueba@wizardsoftware.com.mx"
         :To = "mauricio@mauricio.mx"    // <-----       Coloca ac  tu direcci¢n de correo
         :Subject = "Prueba con DO"
         :TextBody = "Este es un mensaje de prueba con CDO desde Harbour."
         :AddAttachment( cPdf )
         :AddAttachment( cXml )
         :Send()
      ENDWITH

      ? "Enviado"

   CATCH oError
   END



Return