Nadya,
I was also stuck with groupwise which gives little or no support for programmers but someone, I forgot their name, on UT was nice enough to give me this code which worked very nicely using either Window95, 98 or NT on a Novell server. Hope this helps
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
Sandy
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only