Anhänge nicht in $File speichern

[oxyd21]

Servus,

ich stehe vor dem Problem, dass ich eine Maske verändern muss. Das Problem dabei ist, das ich den Großteil des Codes nicht sehe. Da in der Maske eine Datei gespeichert wird, scheint der Code so gestrickt zu sein, dass er das $File Item killt und neu beschreibt oder so ähnlich. Zumindest werden Dateien, die ich in ein RTItem lege, nach dem ändern des anderen Dokumentes nicht übernommen. Das Symbol bleibt erhalten, die Datei wird jedoch nicht mehr gefunden.

Kann mir jemand nen Tipp geben, ob ich den Anhang irgendwie anderweitig speichern könnte?

Gruß, Michael

[klaussal]

Ich verstehe da nur "Bahnhof"...

[umi]

D.h. also das Design der DB ist versteckt? oder warum siehst Du den Code nicht?
Wenn das Design versteckt wurde, hatte das wahrscheinlich seine Gründe und ich würde da die Finger davon lassen.

[oxyd21]

@klauss

Kommt in den besten Familien vor... 

Die Skriptlibraries sind versteckt, da Maske gekauft. Der eigentliche Sinn der Maske ist das erstellen, bearbeiten und dann das abspeichern von Worddokumenten. Ich will in der Maske aber noch andere Dokumente speichern.
In den Skriptlibraries wird vermutlich ein remove oder replaceitem auf das $file gemacht. Ich möchte meinen Anhang aber behalten und am liebsten woanders, aber in der gleichen Form unterbringen.

[koehlerbv]

Ohne den anderen Code hast Du da keine Chance. Vor allem siehst Du das Konfliktmaterial nicht - und das scheint ja durchaus zu bestehen!

Bernhard

[thomson666]

das symbol ist da und der anhang weg...
du kannst versuchen ihn mit script zu finden und zu lösen. wir hatten ein ähnliches problem allerdings bei einer offenen db.

passiert ist es bei uns als wir das RTITEM gelöscht haben und neu angelegt, dadurch konnte der client klarerweise nicht mehr den anhang zuordnen. er zeigt ein graues symbol im dokument an, man kann dieses aber nicht mehr lösen weil er das embedded object nicht mehr bekommt!?
es wurden dann seitens des ServiceCenters noch andere Felder gelöscht.

wenn du das ganze dokument durchforschst dann bekommst es irgendwie wieder...

so was hab ich dann gemacht...
   Dim db As NotesDatabase
   Dim col As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim ses As New NotesSession
   Dim body2 As NotesRichTextItem
   Dim values As String
   Dim anhaenge As Variant
   Dim i As Integer
   Dim s As String
   Dim rtitem As NotesRichTextItem
   
   Redim anhaenge(0)
   Set db = ses.CurrentDatabase
   Set col = db.UnprocessedDocuments
   Set doc = col.GetFirstDocument
   
   i = 0
   Set rtitem = doc.GetFirstItem("body2")
         'If rtitem.Type = RICHTEXT Then
   Forall o In rtitem.EmbeddedObjects
      If i = 0 Then
         anhaenge(0) = o.name
      Else
         Redim Preserve anhaenge(i)
         anhaenge(i) = o.name
         
         Dim object As NotesEmbeddedObject
         Set object = rtitem.GetEmbeddedObject( o.name )
      'If Not ( object Is Nothing ) Then
      '   If object.Type = EMBED_ATTACHMENT Then
      '      s = doc.GetItemValue("pfad")(0)
      '   End If
      End If
      i = i + 1
   End Forall
   
   Call doc.ReplaceItemValue("dateien",anhaenge)
   Call doc.ReplaceItemValue("dateienSel",anhaenge)
   Call doc.Save(True,True)

[ata]

... die $File-Felder werden nicht neu beschrieben - das Anlegen der Felder übernimmt Notes.

Folgendes ist normalerweise der Fall, wenn man mittels Programmierung Attachments eines RT-Feldes aktualisiert:

... zuerst werden alle $File-Felder gelöscht
... dann wird das RT-Feld gelöscht
... dann wird entweder ein Quellfeld aus einem anderen Dokument kopiert, bzw. wird ein neues Feld erstellt und anschließend ein Attchment angehängt.

Das wäre der "normale" RT-Refresh mit Attachments...

Wenn du nun die Attachments als Symbol sehen kannst, beim Öffnen aber die Meldung erhälst, daß das Notes-Item nicht gefunden werden kann - dann sieht das nach fehlenden $File-Feldern aus, in denen das Attachment digital abgelegt wird.

Wenn das Design verborgen ist, hast du keine Chance daran was zu ändern...

Toni