DEFINE CLASS SendEmailFax as session OLEPUBLIC DIMENSION aAttachments[1] PROTECTED LastError LastError = "" To = "" Cc = "" Bcc = "" Subject = "" Body = "" PROTECTED PROCEDURE To_ASSIGN (tcValue as String) SET PROCEDURE TO _utility ADDITIVE THIS.To = ValidEmailFaxString(tcValue) THIS.CheckLastError(21, "THIS.To", tcValue) ENDPROC ENDDEFINE