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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement