>LPARAMETERS toParms >LOCAL lnCnt, lnLen > >*** create configuration and message objects >loConfig = CREATEOBJECT( 'CDO.Configuration' ) >loMsg = CREATEOBJECT( 'CDO.Message' ) >WITH loMsg > .Configuration = loConfig > .To = ALLTRIM( toParms.cTo ) > .CC = ALLTRIM( toParms.cCC ) > .Bcc = ALLTRIM(toParms.cBcc ) > .Subject = ALLTRIM( toParms.cSubject ) > *** See if we are sending a web page in the body of the message > IF NOT EMPTY( toParms.cURL ) > .CreateMHTMLBody( ALLTRIM( toParms.cURL ) ) > ENDIF > *** Add any message text to the beginning of the body > .HTMLBody = toParms.cHTMLBody + .HTMLBody > *** Add any attachments > IF NOT EMPTY( toParms.aAttachments[ 1 ] ) > lnLen = ALEN( toParms.aAttachments, 1 ) > FOR lnCnt = 1 TO lnLen > .AddAttachment( ALLTRIM( toParms.aAttachments[ lnCnt ] ) ) > ENDFOR > ENDIF > .Send() >ENDWITH >