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:
00551891
Vues:
55
Hi Sandy,

Thanks a lot for the code, but I don't see attachment in it. How can you attach a file using GroupWise, which is our main problem?

Thanks again.

>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
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform