Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sending mails through GroupWise with attachment
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00542261
Message ID:
00550874
Vues:
44
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
Fil
Voir

Click here to load this message in the networking platform