Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: bob am 14.06.03 - 14:25:36

Titel: Dateiname von Attachment in Feld schreiben
Beitrag von: bob am 14.06.03 - 14:25:36

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

Titel: Re:Dateiname von Attachment in Feld schreiben
Beitrag von: Till_21 am 14.06.03 - 14:41:10

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

Titel: Re:Dateiname von Attachment in Feld schreiben
Beitrag von: Performance am 14.06.03 - 14:51:29

... 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

Titel: Re:Dateiname von Attachment in Feld schreiben
Beitrag von: bob am 14.06.03 - 16:26:39

Danke Euch beiden !!

Habs dann allerdings mit Formelsprache (@AttachmentNames) gemacht.

bye,
Bob

Titel: Re:Dateiname von Attachment in Feld schreiben
Beitrag von: ata am 14.06.03 - 22:25:20

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

ata