There is a custom form that I modify frequently and I was wondering if there is any way to programmatically open the form in design mode? Currently I have to go Tools - Forms - Design a Form - Personal Forms Library - select the form (or double-click) - Open

Thanks

Am Fri, 3 Mar 2006 20:40:05 -0800 schrieb Burma Jones:

If the Form is published then you should have a button for it in the Actions
menu.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


There is a custom form that I modify frequently and I was wondering if
there is any way to programmatically open the form in design mode?
Currently I have to go Tools - Forms - Design a Form - Personal Forms
Library - select the form (or double-click) - Open

Thanks

The form will appear on the Actions menu only if you publish it to a folder, and even that won't open it in design mode. Instead, Burma would need to:

1) use the Add method on a target folder's Items collection to create a new item using the form
2) display the item
3) use CommandBars techniques to execute the Tools | Forms | Design This Form command (see http://www.outlookcode.com/d/tips/commandbarfun.htm

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Michael Bauer" wrote in message ...
Am Fri, 3 Mar 2006 20:40:05 -0800 schrieb Burma Jones:

If the Form is published then you should have a button for it in the Actions
menu.

There is a custom form that I modify frequently and I was wondering if
there is any way to programmatically open the form in design mode?
Currently I have to go Tools - Forms - Design a Form - Personal Forms
Library - select the form (or double-click) - Open

Thanks

What I ended up doing is to use an AutoIT script to do a Sendkeys action:

Sub DesignCustomForm()

Dim RetVal

RetVal = Shell("""C:\Program Files\AutoIt3\AutoIt3.exe"" ""C:\DesignCustomForm.au3""")
SendKeys "%(tfe)"

End Sub

AutoIT script (DesignCustomForm.au3):

WinWaitActive("Design Form")
Opt("SendKeyDelay", 200)
Send("{DOWN}")
Send("{ENTER}")
Exit
"Burma Jones" wrote in message ...
There is a custom form that I modify frequently and I was wondering if there is any way to programmatically open the form in design mode? Currently I have to go Tools - Forms - Design a Form - Personal Forms Library - select the form (or double-click) - Open

Thanks

Here My Friends,

Only 1 line !
CommandBars("Visual Basic").Controls(6).Execute

Regards,
Fabio Dias S.


"Burma Jones" wrote:

What I ended up doing is to use an AutoIT script to do a Sendkeys action:

Sub DesignCustomForm()

Dim RetVal

RetVal = Shell("""C:\Program Files\AutoIt3\AutoIt3.exe"" ""C:\DesignCustomForm.au3""")
SendKeys "%(tfe)"

End Sub

AutoIT script (DesignCustomForm.au3):

WinWaitActive("Design Form")
Opt("SendKeyDelay", 200)
Send("{DOWN}")
Send("{ENTER}")
Exit
"Burma Jones" wrote in message ...
There is a custom form that I modify frequently and I was wondering if there is any way to programmatically open the form in design mode? Currently I have to go Tools - Forms - Design a Form - Personal Forms Library - select the form (or double-click) - Open

Thanks