NotesUIWorkspace.EditDocument有时不返回任何内容

我正在写一个VBA子，允许用户根据Excel电子表格中的内容发送一个Lotus Notes电子邮件。

下面的子有时运行没有问题，但有时在接近结束时失败

Set uiDoc = uiws.EditDocument(True, oDoc) 

Lotus Notes应用程序UI显然打开了一个新的邮件进行编辑，但variablesuiDoc没有收到一个NotesUIDocument实例。

这个问题对我来说似乎是随机的，我现在通过几次手动重新运行子程序来解决这个问题，直到它结束。

我怎样才能确保uiDoc获得实例？

 Public Sub SendEmail( _ Ws As Worksheet, _ Optional Commit As Boolean = False, _ Optional Delim As String = "<Delim>") ' Notes session Dim oSess As Object Set oSess = CreateObject("Notes.NotesSession") ' Notes database Dim oDB As Object Set oDB = oSess.GETDATABASE("", "") If Not oDB.IsOpen Then oDB.OPENMAIL End If ' Notes documment Dim oDoc As Object Set oDoc = oDB.CREATEDOCUMENT oDoc.Subject = Ws.Range("Subject").Value Dim VSendTo As Variant VSendTo = Split(Ws.Range("Send_To").Value, ",") oDoc.sendto = VSendTo Dim VCCTo As Variant VCCTo = Split(Ws.Range("CC_To").Value, ",") oDoc.copyto = VCCTo Dim oItem As Object Set oItem = oDoc.CREATERICHTEXTITEM("BODY") ' Notes UI document Dim uiws As Object Set uiws = CreateObject("Notes.NotesUIWorkspace") Dim uiDoc As Object ' uiDoc should receive a NotesUIDocument if successful Set uiDoc = uiws.EditDocument(True, oDoc) ' Body DoEvents Call uiDoc.GOTOFIELD("Body") ' ** Omitted ** Exit Sub 

NotesUIWorkspace类文档： http ：

我正在使用Lotus Notes版本8.5.2