我们有一个自定义的邮件模板,我们在queryclose中使用了ws.dialogbox方法。在注释9中,这似乎是一个问题,并且注释在执行对话框代码时完全崩溃(在编辑外部电子邮件时仅发生此崩溃)。在以前版本的笔记中,此代码可以正常工作。这是代码:
On Error GoTo DocDeleted
If uiCurrDoc.FieldGetText("SendOrEsc") = "" And _
uiCurrDoc.EditMode And _
((uiCurrDoc.document.DoCloseDialog(0)) Or (uiCurrDoc.document.ActionInProgress(0) = "4096")) And _
(LCase$(uiCurrDoc.FieldGetText("DeleteFlag")) <> "true") Then
On Error GoTo 0
Set tempDoc = CurrDoc.ParentDatabase.CreateDocument
**varResponse = wsCurrDoc.DialogBox("TLSCloseMailWindow", True, True, , , , , "Close Window", tempdoc)**