一个小缺陷:通过VBA创建、保存和打开lotusdraft电子邮件的代码

1. 它并不总是打开正确的电子邮件草稿进行编辑。

这两个问题都是不定期发生的。如果有规律的话,我还没见过。我能解决这些问题吗?有没有其他减少错误的提示?

Dim NtSession As New NotesSession
Dim NtDB As New NotesDatabase
Dim NtWkSp As Object
Dim NtDoc As New NotesDocument
Dim NtObj As New NotesEmbeddedObject
Dim NtBodyRT As New NotesRichTextItem
NtSession.Initialize

'==========================================================================
'Open the mail server
Set NtDB = NtSession.GetDatabase( _
    NtSession.GetEnvironmentString("MailServer", True), _
    NtSession.GetEnvironmentString("MailFile", True), _
    True)

'==========================================================================
'Fill in basic email fields
Set NtDoc = NtDB.CreateDocument
NtDoc.AppendItemValue "Form", "Memo"
Set NtBodyRT = NtDoc.CreateRichTextItem("Body")
AddFields

'=========================================================================
' Save it to the drafts folder
DoEvents
NtDoc.SaveMessageOnSend = True
NtDoc.SignOnSend = True
NtDoc.Save False, False, True
Set NtWkSp = CreateObject("Notes.NotesUIWorkspace")
DoEvents
NtWkSp.OpenDatabase _
    NtSession.GetEnvironmentString("MailServer", True), _
    NtSession.GetEnvironmentString("MailFile", True), _
    "($Drafts)"
DoEvents
NtWkSp.VIEWREFRESH
NtWkSp.EDITDOCUMENT

Set NtWkSp = Nothing
Set NtSession = Nothing