putroppo ho degli allegati e l\'unico metodo che potrebbe funzionare
.EmbeddedObjects. Perņ non funziona perfettamente, ho inserito il mio codice in
QuerySave di una form
Dim rtitem1 As NotesRichTextItem
...
Set rtitem1 = doc.GetFirstItem( "ReqID" )
...
If Isempty( rtitem1.EmbeddedObjects) Then
Messagebox "You must enter a requirement ID ",, "No ReqID"
Call Source.GotoField("")
Continue = False
End If
perņ quando salvo la prima volta mi da l\'errore"Object variable not set"
:yellow_rolleyes.gif:
grazie
|