LotusScript Agent to parse Names field "EnterSendTo" in memo form of the mail5.0 template. Agent will remove any items not containing the @ symbol, and as it is doing so will report each address in a prompt, append each item one by one, and display count of valid addresses when finished. The prompts are meant to be removed, they are only there as a highlighter. Once prompts are removed, this agent will serve to avoid the "Name not found, OK to skip, etc" message by auto modifying the SendTo list prior to the field refresh.
Dim ns As New NotesSession
Dim nws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim ndoc As NotesDocument
Dim subj As Variant
Dim count As Integer
Dim inx As Integer
count = 0
Set ndoc = nws.CurrentDocument.Document
subj = ndoc.GetItemValue( "EnterSendTo" )
Call nws.CurrentDocument.FieldSetText("EnterSendTo", "")
Forall s In subj
If Instr(s,"@") >0 Then
s + ",")
Msgbox s, 32, "Valid"
count = count + 1
Msgbox s, 32, "Invalid -- Value Removed"
Msgbox count, 32, "Number of Valid Addresses"