Thanks Sergey,

I was stuck at the attachments, since there was no support for: ALINES(laList, This.cAttachment, [,], [;])

I somehow managed to overide it with a little bit of code.

mcAttachment = This.cAttachment
mchrCnt = 1
do while .t.
 if ','$mcAttachment Or ';'$mcAttachment
  if inlist(substr(mcAttachment,mchrCnt,1),',',';')
   lcAttachment = FULLPATH(ALLTRIM(SUBSTR(mcAttachment,1,mchrCnt-1)))
   .AddAttachment(lcAttachment)
   mcAttachment = ALLTRIM(STRTRAN(mcAttachment,SUBSTR(mcAttachment,1,mchrCnt),''))
   mchrCnt = 1
  endif
  mchrCnt = mchrCnt + 1
 else
  lcAttachment = FULLPATH(ALLTRIM(mcAttachment))
  .AddAttachment(lcAttachment)
  exit
 endif
enddo

I was also stuck a the TRY, but temporarily managed as below.

 *TRY
   This.oMsg.Send()
*CATCH TO oErr
* This.AddOneError("SEND ERROR: ", oErr.ErrorNo, oErr.procedure, oErr.LineNo)
*ENDTRY