В общем для того, чтобы в Lotus отослать письмо, нужно сделать так:
Dim NS As New NotesSession
Set NDB=NS.CurrentDatabase
Set ND_Memo=NDB.CreateDocument
Set NRTI=New NotesRichTextItem(ND_Memo,"Body")
Call ND_Memo.ReplaceItemValue("Form","Bookmark")
Call ND_Memo.ReplaceItemValue("SendTo","Адрес получателя")
Call ND_Memo.ReplaceItemValue("Subject","Тема письма")
Call NRTI.AppendText("Текст сообщения")
Call ND_Memo.Send(True) 'отправка письма
Если писем отправить нужно много, повторяем этот процесс в цикле для всех шаблонов с адресами, темами и текстом
Теперь насчет условия: просто элементарная проверка данных на входе..Кстати, в чем именно хранятся данные об автопах и получателях ?
Кстати, перед всем этим создай форму Bookmark, в которой и будет приходить письмо получателю