Læse en vedhæftninges navn

Brug "@AttachmentNames" i en knap/agent. Hvis @Right/3 er DOC så "DO IT"
Returns the operating system file names of any files attached to a document. If there are multiple files attached, the names are returned as a multiple­value text list.

Når jeg kører den her, får jeg en type mismatch - hvorfor???

eval = Evaluate("@AttachmentNames",doc)

Prøv ren script i stedet
Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
      objectnavn=o.Source.Name
      if UCase(Right$(objectnavn, 3)) = "DOC" Then DOIT
    End If
  End Forall
End If

Får en type mismatch i denne linie:

objectnavn=o.Source.Name

Fik det til at virke - skulle bare være objectnavn=o.Name