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