Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Opening Groupwise Mail Before Sending
Message
General information
Forum:
Visual FoxPro
Category:
Third party products
Miscellaneous
Thread ID:
00780290
Message ID:
01189375
Views:
4
Wayne,

It does open GroupWise, but doesn't bring you to the message...

Thanks for the tip.

UPDATE. I looked into several old threads on the topic (looks like I had the same problem in 2001) and I may try with Nigel's class again instead.

>Here's how a colleague of mine finally did it...
>
>
>WSHShell = CreateObject("WScript.Shell")
>lcgwpath = WSHShell.RegRead("HKEY_CURRENT_USER\Software\Novell\GroupWise\Client\Files Locations\views")
>IF File(lcgwpath+"GRPWISE.EXE")
>	lccommand = "!/n" + justpath(alltrim(lcgwpath)) + "\GRPWISE.EXE"
>	&lccommand
>ENDIF
>
>
>Because Groupwise will only open once, it doesn't matter if you have it running or not, it brings it to the foreground. He adds the message as a draft.
>
>
>>Hi All,
>>
>>Does anyone happen to know what I need to fire to display
>>the Groupwise E-Mail Client Window before sending an e-mail??
>>I cannot find this info anywhere I have looked... Heres my
>>simple little code sample:
>>
>>SET CLASSLIB TO clsGroupwise
>>oGroupWise = CREATEOBJECT("NovellGroupwareSession")
>>oAccount = oGroupWise.Login
>>oWorkfolder = oAccount.WorkFolder
>>oMessages = oWorkfolder.MESSAGES
>>oMessage = oMessages.ADD
>>oMessage.FromText = ALLTRIM('Me')
>>oMessage.Subject = ALLTRIM('Test')
>>oMessage.BodyText = ALLTRIM('test')
>>oRecipients = oMessage.Recipients
>>oRecipients.ADD('Me Again')
>>
>>So Now, all I want to do is display the e-mail on the screen so the
>>user can hit the [Send] box and send it...
>>
>>Thanx!
>>Bob
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform