Question

我正在使用我的应用程序中的Outlook联系人表单，以允许用户创建新联系人。当用户保存联系人或关闭表单时，outlook的实例也会关闭。如何保持outlook不会关闭，我没有完成对象，并且需要几秒钟才能打开另一个outlook实例？

Dim outlookApp as new Outlook.Application
Dim newContact as New Outlook.ContactItem
newContact = outlookApp.CreateItem(Outlook.OlItemType.olContactItem)
newContact.Display(True)

Answer 1

Outlook在其最后一个窗口（资源管理器或检查器）关闭时退出，即使存在对其对象的未完成引用。

如果没有打开，请尝试保留对Outlook资源管理器的引用（它不必是可见的）。在我的头顶：

dim explorer as Outlook.Explorer
...
explorer = outlookApp.ActiveExplorer
If (explorer Is Nothing) Then
  session = outlookApp.GetNamespace("MAPI")
  session.Logon
  folder = session.GetDefaultFolder(olFolderInbox)
  explorer = folder.GetExplorer
End If

使用Outlook联系表单

1 个答案: