... CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration = oCfg :From = cFrom :To = cTo :CC = cCC :BCC = cBCC :Subject = cSubject :TextBody = cMsg For x := 1 To Len( cAttach ) if cAttach[x] <> NIL :AddAttachment(cAttach[x]) endif Next :Send() END WITH lRet := .t. CATCH // ...