At gemme en vedhæftning

Hejsa

Jeg prøver at gemme en vedhæftning med lotusscript:

Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
fileCount = fileCount + 1
Print "reels\newfile" & Cstr(fileCount)+ Cstr(tmp)+".txt"
Call o.ExtractFile _
    ( "reels\newfile" & Cstr(fileCount)+ Cstr(tmp)+".txt" )
Call doc.Save( False, True )
End If
End Forall
End If

Problemet er at hvis der ikke er en vedhæftning fejler agenten - hvordan kommer jeg ud over det?