attachment names

43 er et primtal

Yep. Men det får du altså ikke point for !

Deter bare svært at deles om primtal-point!

Jamen så bare kom med et svar jeg kan bruge, så behøver du jo ikke at dele :-)

Så lad mig prøve. Er dit problem dialogboxen eller listen over attachments i et RTF?

Her er noget kode fra hjælpen som for et givet dokument henter Filbilag ud på en disk og fjerner dem fra dokumentet. Det burde være muligt at tilpasses koden til dine behov.

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
      Call o.ExtractFile( "c:\samples\" & o.Source )
      Call o.Remove
      Call doc.Save( False, True )
    End If
  End Forall
End If

Hvis dine filbilag ligger i V2 format (ikke tilknyttet et RTF, men selve dokumentet (sagde jeg outlook:-) så kan den eneste løsning være @Attachments, som jeg mener man Evaluate sig med.

Hvis det er dialogboxen du har problemer med så kan du prøve

variant = notesUIWorkspace.Prompt( type%, title$, prompt$ [, default ] [, values ] )

Hvis du gerne vil prøve din egen dialogbox, så opret et nyt dokument i hukommelsen, vis det med notesUIWorkspace.Dialogbox og efterbehandel resultatet.
//Jörg

Mit problem er begge dele!
Hvilken Notesversion bruger du ? "Forall o.Type in osv"/EmbeddedObjects får jeg fejl på...Den har jeg nemlig prøvet.
Måske er min Designer klar til en reinstallering....
(men nej - intet outlook her :-)
I'll be back !

Hmm..Ved ikke helt hvad der gik galt for mig, begge dine kodeex. fungerer perfekt. Takker.