Reply To: Application Error

[CLKurutz]

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