>ogroupwise = CREATEOBJECT("NovellGroupWareSession") >oaccount = ogroupwise.login >** this is an editbox on the form >lcbody = thisform.pageframe1.page1.edtbody.value + ' ' >********* >** the table of the addresses to be sent >SELECT lister >**** >lcto = '' >** again an imput field on the form >*** >lcsubject = thisform.pageframe1.page1.txtsubject.value >wait window 'Creating messages to be sent' nowait >SCAN FOR NOT DELETED() > ofolder = oaccount.rootfolder > omessages = ofolder.MESSAGES > odraftmsg = omessages.ADD > orecips = odraftmsg.recipients >** the "internet" lead in is very dependent on houw your groupwise is set up > lcto = 'internet:"' + alltrim(lister.address) + '"' > odraftmsg.subject = (lcsubject) > lcbody = 'Dear ' + alltrim(fname) + ' ' + alltrim(lname) + ':' +; > chr(13) + chr(13) + ; > thisform.pageframe1.page1.edtbody.value + ' ' > odraftmsg.bodytext = (lcbody) > orecip = orecips.ADD(lcto,"NGW","0") > lcresolve = orecip.resolve() > osend = odraftmsg.SEND >ENDSCAN > >DOEVENTS > >RELEASE ogroupwise>Note - groupwise has a default of 75 e-mails maximum. Make sure that this is cleared for unlimited use