F
Fabrizio
Hi,
(Running Exchange 5.5 with Outlook 2003 clients)
I've built a few forms using the tips and tricks I found here. Tested them
also running them from my "Personal Forms Library". I even wrote (copied from
microsoft, haha) a macro which I combined with a button on the toolbar.
Clicking it opens of course the form I've built.
After setting everything right, I published the form to the "Organization
Forms Library". My goals is, obviously, to add a toolbar button to all the
clients which enables them to run the form by simply clicking the button.
The only thing is that I can't find out how to write the macro to set the
"myfolder" variable to "Organization Forms Library".
So, in short, this works:
----------------------------------------------------------
Sub Meeting()
Set myFolder = Session.GetDefaultFolder(olFolderInbox)
Set myItem = myFolder.Items.Add("IPM.Appointment.MeetingReq")
myItem.Display
End Sub
----------------------------------------------------------
and this doesn't work:
----------------------------------------------------------
Sub MeetingReq()
Set myFolder1 = Session.Folders("System Folders")
Set myFolder2 = myFolder1.Folders("EFORMS REGISTRY")
Set myFolder3 = myFolder2.Folders("Organization Forms")
Set myItem = myFolder3.Items.Add("IPM.Appointment.MeetingReq")
myItem.Display
End Sub
(Running Exchange 5.5 with Outlook 2003 clients)
I've built a few forms using the tips and tricks I found here. Tested them
also running them from my "Personal Forms Library". I even wrote (copied from
microsoft, haha) a macro which I combined with a button on the toolbar.
Clicking it opens of course the form I've built.
After setting everything right, I published the form to the "Organization
Forms Library". My goals is, obviously, to add a toolbar button to all the
clients which enables them to run the form by simply clicking the button.
The only thing is that I can't find out how to write the macro to set the
"myfolder" variable to "Organization Forms Library".
So, in short, this works:
----------------------------------------------------------
Sub Meeting()
Set myFolder = Session.GetDefaultFolder(olFolderInbox)
Set myItem = myFolder.Items.Add("IPM.Appointment.MeetingReq")
myItem.Display
End Sub
----------------------------------------------------------
and this doesn't work:
----------------------------------------------------------
Sub MeetingReq()
Set myFolder1 = Session.Folders("System Folders")
Set myFolder2 = myFolder1.Folders("EFORMS REGISTRY")
Set myFolder3 = myFolder2.Folders("Organization Forms")
Set myItem = myFolder3.Items.Add("IPM.Appointment.MeetingReq")
myItem.Display
End Sub