Проверка Значения Поля

Dim db As notesdatabase
Dim mainCol As NotesDocumentCollection
Dim respCol As NotesDocumentCollection
Dim mainNote As notesdocument
Dim respNote As notesdocument
Dim doc As notesdocument
Dim uidoc As notesuidocument
Dim title As String
Dim prmpt As String
Dim w As New notesuiworkspace
Dim s As New notessession
 
Set db = s.CurrentDatabase
Set uidoc = w.CurrentDocument
Set doc = uidoc.Document
UserName = s.Usernamelist(1).Common
 
title = db.Title
prmpt = "Выберите тип события"
Set mainCol = w.PickListCollection(3, False, db.Server, db.FilePath, "event_view", title, prmpt)
If mainCol.Count = 0 Then Exit Sub
Set mainNote = mainCol.GetFirstDocument
 
Set respNote = w.CurrentDocument.Document
 
Call respNote.ReplaceItemValue("work_eventtype", mainNote.GetItemValue("Event_Type"))
Call respNote.ReplaceItemValue("Resend_list_Pers", mainNote.GetItemValue("AList_ListPers"))
Call respNote.ReplaceItemValue("Resend_list", mainNote.GetItemValue("Resend_list_Pers"))
Call w.ViewRefresh
Call uidoc.refresh
 
Dim notice As New NotesDocument (db)
Dim body As New NotesRichTextItem (notice, "Body")
 
------------формируем список рассылки-------------
-----------------------------------------------------------
------------формируем список рассылки-------------
------------формируем письмо------------------------
----------------------------------------------------------
-----------формируем письмо-------------------------
 
Call uidoc.Save
Call uidoc.Close