VBA shortcut to open custom form in design mode?

  • Thread starter Thread starter Burma Jones
  • Start date Start date
B

Burma Jones

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
 
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
Click to expand...
Well, you can certainly write VBA code to open the form. That would
get half the process done.

Sub SharePointTips()
'Declarations
Dim myItem As ContactItem
Dim myMailItem As MailMessage
Dim myRecip As Recipient
Dim myOlApp As New Outlook.Application
Dim myOlNS As NameSpace
Dim myOlfldr As MAPIFolder
Dim myOlExp As Outlook.Explorer

Set myOlExp = myOlApp.ActiveExplorer
Set myOlNS = myOlApp.GetNamespace("MAPI")
Set myOlfldr = myOlNS.GetDefaultFolder(olFolderContacts)

Set myItem = myOlfldr.Items.Add("IPM.Contact.SharePointTips_Q")
myItem.Display

Set myRecip = Nothing
Set myMailItem = Nothing


'free variables
Set myItem = Nothing
Set myOlNS = Nothing
Set myOlfldr = Nothing
Set myOlApp = Nothing
Set myOlExp = Nothing

End Sub


Put it in the ThisOutlook module. Change the names to reflect your
system.

Hollis D. Paul [MVP - Outlook]
Mukilteo, WA USA
 
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
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
 
Back
Top