Unnamed

ef composeMail (to, subject = None, body = None, cc = None, bcc = None):
          for toAddress in to:
                settextvalue ('frmComposeMessage', 'txtto', toAddress)
            if len (to) > 1:
                appendtext ('frmComposeMessage', 'txtto', ',')
        
          if subject != None:
            settextvalue ('frmComposeMessage', 'txtsubject', subject [0])
            setcontext ('frmComposeMessage', subject [0])
            
          if body != None:
            settextvalue ('frmComposeMessage', 'txtbody', body [0])
    
          if cc != None:
                menucheck ('frmComposeMessage','mnuView;mnuCcField')
                for toCc in cc:
                settextvalue ('frmComposeMessage', 'txtcc', toCc)
                    if len (cc) > 1:
                             appendtext ('frmComposeMessage', 'txtcc', ',')
        
          if bcc != None:
                 menucheck ('frmComposeMessage','mnuView;mnuBccField')
                 for toBcc in bcc:
                settextvalue ('frmComposeMessage', 'txtbcc', toBcc)
                    if len (bcc) > 1:
                            appendtext ('frmComposeMessage', 'txtbcc', ',')
    
    def composeHtmlMail (to, subject = None, body = None, cc = None, bcc = None):
          menucheck ('windowName', 'mnuformat;mnuHtml')
          composeMail (to, subject, body, cc, bcc)