PureBasic Forums - English

Posted: **Thu Nov 06, 2008 11:14 am**

Objemail = COMate_CreateObject("CDO.Message") 
iConf = COMate_CreateObject("CDO.Configuration")
 
If objemail
  ;     Set .Configuration = iConf
 Objemail\SetPropertyRef("\Configuration =" + iConf )

i don't know how to do that
Objemail\SetPropertyRef("\Configuration =" + iConf )
iconf is antoher comate object

Posted: **Thu Nov 06, 2008 11:56 am**

Code: Select all

Objemail\SetPropertyRef("\Configuration = " + Str(iConf) + " as COMateObject")

Posted: **Thu Nov 06, 2008 12:16 pm**

srod wrote:

Code: Select all

Objemail\SetPropertyRef("\Configuration = " + Str(iConf) + " as COMateObject")

I try these and if generat a comate error
in fact what i want to do is to affect to the cdo object the configuration of cdo

Here is the equivalent in visual basic

Code: Select all

 Set iMsg = CreateObject("CDO.Message")
   Set iConf = CreateObject("CDO.Configuration")
    
    With iMsg
      Set .Configuration = iConf
       .To = "destinataire@mail.fr"
      .Subject = "Le titre du message"
     .HTMLBody = "Ceci est un essai ..."
     .Fields("urn:schemas:mailheader:disposition-notification-to") = _
             "emetteur@mail.fr"
       .Fields("urn:schemas:mailheader:return-receipt-to") = _
              "emetteur@mail.fr"
       .Fields.Update
       .Send
   ; End With

PureBasic Forums - English

How to pass an object to another object with COMATEOBJECT

How to pass an object to another object with COMATEOBJECT