COMate - control COM objects via automation - OBSOLETE!

[srod]

Well then I suspect a mix up with the parameters or paramater types.

Use COMate_GetLastErrorDescription() to get an idea what the problem might be. If that doesn't help then equip yourself with some kind of OLE viewer so that you can drill down into the object's methods to look at the parameters etc.

[Kiffi]

Code: Select all

KCC_Code = ReplaceString(KCC_Code, "AS COMate object", "AS COMateObject")

Greetings ... Kiffi

[srod]

Whoops...

[Kwai chang caine]

YEEEEEEEESSSSSS !!!!!!
KIFFI as win

It's funny how you have explain to me

Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks,Thanks

I have forgotten Thanks,Thanks,Thanks,Thanks
I love you all

That's works

Well now again this important part not works.
It's for sending a document join

Code: Select all

 ; documents joint 1 
  Define bodyAtt.COMateObject 
  Define bodypart.COMateObject ; Added by KCC
 
  If Len(Attachment1) > 0  
   If FileSize(Attachment1) > 0 
    bodyAtt = bodypart\GetObjectProperty(Str(#EMBED_ATTACHMENT) + ", '', '" + Attachment1 + "', '" + Attachment1 + "'") 
   EndIf 
  EndIf 
  

[srod]

bodypart has not been initialised!!! (As I explained before!)

[Kwai chang caine]

Yes yes my good SROD.
Keep cool
I understand quickly, but you must explain me a long time

This is this sentence that i do translate, right ???

Code: Select all

Set bodypart = beDoc.CREATERICHTEXTITEM("Body") 

[srod]

Well, what is beDoc - where is that defined in your PB code? I see it in the VB code...

Code: Select all

bodypart = beDoc\Invoke("CREATERICHTEXTITEM('Body')") 

[Kwai chang caine]

Thanks SROD
I have not again at the top, because me i have write this

Code: Select all

bodypart\Invoke(Str(MailDoc) + " AS COMateObject \ CREATERICHTEXTITEM('Body'))

I have again an error invalid memory with this code

Code: Select all

; documents joint 1 
  Define bodyAtt.COMateObject 
  Define bodypart.COMateObject ; Added by KCC
  bodypart = MailDoc\Invoke("CREATERICHTEXTITEM('Body')") 
 
  If Len(Attachment1) > 0  
   If FileSize(Attachment1) > 0 
    bodyAtt = bodypart\GetObjectProperty(Str(#EMBED_ATTACHMENT) + ", '', '" + Attachment1 + "', '" + Attachment1 + "'") 
   EndIf 
  EndIf 

[srod]

Sorry my mind is elsewhere at the moment.

Code: Select all

bodypart = beDoc\GetObjectProperty("CREATERICHTEXTITEM('Body')") 

or

Code: Select all

bodypart = MailDoc\GetObjectProperty("CREATERICHTEXTITEM('Body')") 

Whichever one you need.

[Kwai chang caine]

Yes yes i have correct that alone, it's a miracle no ?????
It is the fault at Kiffi, he changed the names of variables, I'm lost, ugly kiffi

In my mean, the problem is to translate this line

Code: Select all

Set bodyAtt = bodypart.EmbedObject(EMBED_ATTACHMENT, "", Attach1, Dir(Attach1)) 

You have translated to this

Code: Select all

bodyAtt = bodypart\GetObjectProperty(Str(#EMBED_ATTACHMENT) + ", '', '" + Attachment1 + "', '" + Attachment1 + "'") 

But there are an memory error on this line

[Kwai chang caine]

Perhaps the world ".EmbedObject" missing no ????

[srod]

Code: Select all

bodyAtt = bodypart\GetObjectProperty("EmbedObject(" + Str(#EMBED_ATTACHMENT) + ", '', '" + Attachment1 + "', '" + Attachment1 + "')") 

[Kwai chang caine]

I did not say a big stupidity
It's really the ".EmbedObject" missing
I'm not a big donkey, i just a little donkey

I have always an error of memory this your last line

[srod]

I have no idea - check the value of bodypart.

[Kwai chang caine]

If i ask VB debugger what is the value of bodypart.name, he said to me "Body" and for bodyAtt.name, he said to me the name of the join piece