We have this working. To get it working, we had to set the custom view path under Tools – Environment in GroupWise even though the path is hard coded.
Now, we have run into an issue with another piece of the code. The following code is not inserting a graphic. This works on two laptops but not on the majority of PCs.
If ActivityRoom.RoomSetup.itemindex = 0 then
ActivityRoom.RoomSetupImage.Picture.LoadFromFile_(“p:GroupWiseViewsactivityroomregularactivity.jpg”)
Utilities.CopyHTMLToClipboard(“<br><IMG_ src=””file:///P:/GROUPWISEVIEWS/ACTIVITYROOM/REGULARACTIVITY.JPG””>”)
End If
The user has rights to the folder and the graphic is displayed on the form it is just not inserted into the message area. The following is the entire code:
‘ Activity Room
Sub Main(Client, GWEvent)
Dim iFilePath
Call GroupWise.ViewOpenFile_(“p:GroupWiseViewsFormativGWViewsResActivity”, “”, “”)
if ActivityRoom.ShowModal = MROK then
Call groupwise.focusset(fcsMessage, “”)
GroupWise.EditPaste
Call groupwise.focusset(fcsSubject, “”)
end if
End Sub
Sub RoomSetupChange(Sender)
If ActivityRoom.RoomSetup.itemindex = 0 then
ActivityRoom.RoomSetupImage.Picture.LoadFromFile_(“p:GroupWiseViewsactivityroomregularactivity.jpg”)
Utilities.CopyHTMLToClipboard(“<br><IMG_ src=””file:///P:/GROUPWISEVIEWS/ACTIVITYROOM/REGULARACTIVITY.JPG””>”)
End If
If ActivityRoom.RoomSetup.itemindex = 1 then
ActivityRoom.RoomSetupImage.Picture.LoadFromFile_(“p:GroupWiseViewsactivityroomyoga.jpg”)
Utilities.CopyHTMLToClipboard(“<br><IMG_ src=””file:///P:/groupwiseviews/activityroom/yoga.JPG””>”)
End If
If ActivityRoom.RoomSetup.itemindex = 2 then
ActivityRoom.RoomSetupImage.Picture.LoadFromFile_(“p:GroupWiseViewsNoSetupNeeded.jpg”)
Utilities.CopyHTMLToClipboard(“<br><IMG_ src=””file:///P:/groupwiseviews/NoSetupNeeded.jpg””>”)
End If
End Sub
