Dim doc As NotesDocument
'...set doc...
Dim item As NotesItem
Set item = doc.GetFirstItem( "Nom du champ" )
If ( item Is Nothing ) Then
Première solution
Else
Deuxième solution
End If
Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN