Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Polarbaer am 20.05.03 - 16:14:21

Titel: Dateianhang umbenennen und kopieren
Beitrag von: Polarbaer am 20.05.03 - 16:14:21

Hallo,
ich habe eine Form mit einem RTF Feld. Ich wuerde gern via Script den darin vorhandenen Anhang (dessen Name ich kenne) umbenennen und/oder in ein anderes Dokument kopieren. Kennt jemand ein Script, was derartiges leistet, wo ich mir die entsprechenden Ideen anschauen kann. Tausend Dank!

Titel: Re:Dateianhang umbenennen und kopieren
Beitrag von: Till_21 am 20.05.03 - 16:42:18

hi,
leider kannst du den anhang nicht umbenénnen, du musst ihn abhaengen, umbenennen, anhaengen...

hier ein auszug aus der designer-hilfe :
schau dir die klasse embeddedobjects an


Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0    
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) _
    And ( o.FileSize > MAX ) Then
      fileCount = fileCount + 1
      Call o.ExtractFile _
      ( "c:\reports\newfile" & Cstr(fileCount) )
      Call o.Remove
      Call doc.Save( True, True )
    End If
  End Forall
End If

natuerlich musst du den code anpassen

gruss