Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sending mails through GroupWise with attachment
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00542261
Message ID:
00550874
Views:
40
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
Map
View

Click here to load this message in the networking platform