>When I tried to send an email, I received this error:
>OLE IDispatch Exception code 4096 from outlook:
>Outlook does not recognize one or more names.
>I tried using WITH..WITHEND and without.
>Sending a good email address worked fine.
>
>oRecip = loNew.Recipients.Add(thisform.listmgr1.array[1,i])
>With oRecip
> .Type = olTo
> If NOT .Resolve
> Messagebox("...",mb_iconstop, thisform.caption)
> .Delete
> Endif
>Endwith

Try doing the code without the shortcut object reference oRecip. I had one or two situations where that caused a problem. Some places I had to reference the entire Recipients string or it wouldn't work right. Like this:

loNew.Recipients(thisform.listmgr1.array[1,i]).delete