By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
Function IsUIDocSaved ( uidoc As notesUIdocument ) As Integer ' boolean Const uidocSaveErr = 4411 Const msgNotSaved = "The document was not saved due to insufficient supplied data." Const msgSaved = "The current document is saved." On Error Resume Next Call uidoc.Save If Err <> 0 Then If Err = uidocSaveErr Then ' saving uidoc is not completed by querysave event for validation purposes. ' which in turn will give the appropriate message Print msgNotSaved Else Msgbox "Unexpected error: " & Chr$(10) & _ "Error No.: " & Err & " " & "Line: " & Erl & " " & Error$ & Chr$(10) & "In Module: " & "IsUIDocSaved" End If Err = 0 Else IsUIDocSaved = True Print msgSaved End If End Function