>SELECT @If(@Attachments;5;0) Ho provato a configurare l'agente, ma sono in difficoltà per recuperare i campi (come posso individuarli) oppure se in qualche sito trovo esempi da utilizzare sono riuscito a recuperare una procedura che dovrebbe aiutarmi organizzare le funzioni da inserire nell'agente Dim doc As NotesDocument Dim rtitem As Variant Dim object As NotesEmbeddedObject '...set value of doc... Set rtitem = doc.GetFirstItem( "Body" ) If ( rtitem.Type = RICHTEXT ) Then ' check for attachment in Body item Set object = rtitem.GetEmbeddedObject( "jill.sam" ) If ( object Is Nothing ) Then ' check for attachment in rest of document Set object = doc.GetAttachment( "jill.sam" ) End If End If se qualcuno ha suggerimenti saranno di grande aiuto ">