Dateiname von Attachment in Feld schreiben

[bob]

Hi,

ich suche nach einer Möglichkeit, per Button im Feld "Inhalt" den Dateinamen vom angehängten Attachment auszulesen und in das Feld "Subject" zu schreiben.

Nett wäre noch, dass nur das erste Attachment genommen wird, falls mehrere enthalten sind...

Bob

[Till_21]

in formel:
@AttachmentNames zum holen
bzw. @subset(@AttachmentNames;1)
zum schreiben ins subject feld: das sollte nicht das problem sein

in ls:
denk ich mal brauchst du nicht, deshalb hier nur ein kleiner auszug aus der hilfe, den du anpassen muesstest :

Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Inhalt" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
      Call o.ExtractFile( "c:\samples\" & o.Source )
    End If
  End Forall
End If

du itarierst natuerlich nicht ueber alle objects...


schoenen gruss und viel erfolg

[Performance]

... also das mit dem ersten attachment müsste es klappen - das RTItem gibt sie chronologisch wieder


z.B
Dim rtitem As Variant
'd = dein Dokument
'dUI = dein UI Dokument
Set rtitem = d.GetFirstItem( "Inhalt" )
If ( rtitem.Type = RICHTEXT ) Then
   If Isempty(rtitem.EmbeddedObjects) Then Exit Sub
      Forall o In rtitem.EmbeddedObjects
         If ( o.Type = EMBED_ATTACHMENT ) Then
            Msgbox ("Attachment: " & o.Name )
                       ''' dein ui document
                       call dUI.replaceitemvalue("Subject"; o.Name)
                       '''' speichern ? oder refresh ?
                      Call d.Save( False, True )
                     Call dUI.refresh   '''' im Edit Mode
                       exit sub   '' erste attachment reicht ja
         End If
      End Forall
   End If
End If


cu

[bob]

Danke Euch beiden !!

Habs dann allerdings mit Formelsprache (@AttachmentNames) gemacht.

bye,
Bob

[ata]

... das hätte ich auch...

ata