1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Public Sub OpenCustomForm() Dim itm As Outlook.ContactItem Dim strForm As String strForm = "G:\Templates\Guest Contact.oft" Set itm = Application.CreateItemFromTemplate(strForm) itm.Display End Sub