WITH This WITH .oMsg .Configuration = This.oConfig *** See if we have a sender address. *** If we manually loaded the config, we may not IF EMPTY( NVL( .From, "" ) ) .From = .Configuration.Fields( cdoSendEmailAddress ).value ENDIF .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 ENDWITH