About CDOSYS (Collaboration Data Objects) and attachments

[salamandra]

Hi to all ,
I tested the sample code posted by Daniel Maximiliano using Collaboration Data Objects
and really it worked fine to sending only email without attachments.
viewtopic.php?f=5&t=1518&p=20113#p20113
Anybody knows how to get CDO working properly with attachments ??

TIA,


[]´s Salamandra

[danielmaximiliano]

Hi / Hola Salamandra :

CdoSys tiene como enviar un archivo adjunto , eh intentado activar dicha funcion pero me da error, estoy investigando cual es la falla,apenas lo resuelva subo la modificacion.

Translate Google

CdoSys is to send an attachment, eh tried to activate this function but I get error, I am researching which is the fault, just upload the modified work it out.

error.jpg (81.13 KiB) Viewed 7396 times

Code: Select all

      loMsg := CREATEOBJECT ( "CDO.Message" )
      WITH OBJECT loMsg
         :Configuration := loCfg
         :From          := Main.cFrom.Value
         :To            := Main.cTo.Value    // <-----       Coloca aqui  tu direcci¢n de correo
         :Subject       := "Prueba con DO"
         :TextBody      := Main.Contenido.Value
         :AddAttachment := "c:\Main.prg"         /*** Lineas a agregar ****/
         :Send()
      ENDWITH

Nota sobre archivos adjuntos : si se desea enviar varios archivos en el mismo mensaje , se debe ejecutar el método para cada archivo, por ejemplo :

CDO.AddAttachment (Adjunto 1)
CDO.AddAttachment (Adjunto 2)
CDO.AddAttachment (Adjunto 3)

... resto de código

[danielmaximiliano]

CdoSys tiene como enviar un archivo adjunto , eh intentado activar dicha funcion pero me da error, estoy investigando cual es la falla,apenas lo resuelva subo la modificacion.

Translate Google

CdoSys is to send an attachment, eh tried to activate this function but I get error, I am researching which is the fault, just upload the modified work it out.

ya encontre la solucion

mail.jpg (81.92 KiB) Viewed 7392 times

Code: Select all

      loMsg := CREATEOBJECT ( "CDO.Message" )
      WITH OBJECT loMsg
         :Configuration := loCfg
         :From          := Main.cFrom.Value
         :To            := Main.cTo.Value    
         :Subject       := "Prueba con DO"
         :TextBody      := Main.Contenido.Value
         :AddAttachment("c:\Main.prg")
         :Send()
      ENDWITH

if you need more upload attachments / si se necesitan cargar mas adjuntos

Code: Select all

  :AddAttachment("c:\Main.prg","file2","file3",more,,)

or

 :AddAttachment("c:\Main.prg")
 :AddAttachment("File2")

[salamandra]

Hi Daniel ,
Thanks you for your reply.
I´ll try this way and post result here.


[]´s Salamandra

[salamandra]

Hi Daniel ,
Tested the following code and it worked fine

Code: Select all

loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
	:Configuration := loCfg
	:From          := Main.cFrom.Value
	:To            := Main.cTo.Value
	:Subject       := "e-Mail test using <<< CDOSYS (Collaboration Data Objects) >>>"
	:TextBody      := Main.Contenido.Value
	For k:=1 to Main.archivos.ItemCount
		:AddAttachment(Main.archivos.Item(k))
	Next k
	:Send()
ENDWITH

Thanks again for your help

[]´s Salamandra