Anhänge aus RTItem in RTItem Lite (im selben Dokument)

[darehannes]

Hallo Leute,

als Neuling hier wollte ich auch mal ne Frage stellen:

ich bin im Augenblick dabei einen kleinen Parser für unsere Dokumentenverwaltung zu schreiben. Dieser Agent soll den Anhang (nur einer pro Dokument) eingehender EMails/ Scans/ Faxe vom Feld "Body" in das Feld "BodyLite" verschieben.

bisher habe ich versucht mir per lotusScript Agenten den Anhang zu holen, in zu extrahieren und ihn dann per embedObjekt Methode in das neue Feld zu importieren.

Allerdings befindet sich der Anhang dann nicht im "BodyLite" Feld, sonder wird am Ende des Dokumentes angezeigt!

Ich habe ja nun, nach gründlichem Lesen dieses Forums, schon die Vorahnung, dass mein Vorhaben nicht möglich ist, falls jedoch jemand doch eine Idee hat, soll er dies doch bitte kurz kundgeben.

Bin für jede Hilfe dankbar!

Mein Code:
   

   ...
   Dim body As NotesRichTextItem
   Dim bodytext As NotesRichTextItem
   Dim anhangalt As NotesEmbeddedObject
   Dim anhangneu As NotesEmbeddedObject
   Dim anhangname As String
   Dim pfad As String
   
   If doc.HasItem("Body") Then
      
      Set body = doc.GetFirstItem("Body")
      
   Else
      
      Set body = doc.CreateRichTextItem("Body")
      
   End If
   
   If doc.HasItem("BodyText") Then
      
      Set bodytext = doc.GetFirstItem("BodyText")
      
   Else
      
      Set bodytext = doc.CreateRichTextItem("BodyText")
      
   End If
   
   Call doc.Save(True, True)
   
   Dim nav As NotesRichTextNavigator
   Set nav = body.CreateNavigator
   
   Set anhangalt = nav.GetFirstElement(
   anhangname = anhangalt.Name
   
   pfad = "C:\"+anhangname
   
   Call anhangalt.ExtractFile(pfad)
   
   Set anhangneu = bodytext.EmbedObject(1454,"",pfad)
   Call anhangalt.Remove
   
   Call doc.Save(True, True)
   
End Sub

mfg

PS: Falls sich jemand sicher ist, dass das unmöglich ist, soll er doch auch bitte kurz schreiben!

[Driri]

Ich glaube (sicher bin ich mir nicht), daß das übers Backend nicht anders möglich ist. Z.B. werden bei Verwendung des Backend auch Icons von Attachments nicht gesetzt, sondern man hat immer nur den grauen Kasten.

[darehannes]

Was ich mich dann Frage ist: Wozu gibt es denn die Methode "EmbedObject" in rtitem überhaupt? (Oder geht das blos mit dem Typ Attachment nicht?)

mfg und vielen Dank!

[Driri]

Wieso ? Das Objekt ist ja Embedded. Du kannst auch über das RTItem darauf zugreifen. Das Problem ist die Anzeige im Frontend.

[darehannes]

, also ist das embedded Object zwar richtig zugewiesen, aber das Frontenddokument kann die Information nicht richtig darstellen! oder habe ich das falsch verstanden?

Wenn ich also im Frontend (Maske) auf das Feld zugreifen will kann ich also keine Formula Language benutzen oder?

[Driri]

So ähnlich. Es geht ja im Endeffekt nur darum, wo das Symbol des Attachments im Dokument bzw. der Maske auftaucht.
Wenn man über das Frontend einen Anhang ins RTF packt, dann wird dort auch das Symbol abgelegt.
Wenn man über das Backend einen Anhang ins RTF packt, dann wird das Symbol ans Ende des Dokuments angehängt.

[darehannes]

Und wenn ich "doc.copyitem" das Feld kopiere; wird dann das Icon im Frontend richtig zugeordnet?
Dann muss ich halt denn Text aus dem 1. Richfeld irgendwie rausbekommen.
Aber das dürfte ich mit "richtextnavigator" und "richtextrange" schon irgendwie schaffen!

Vielen Dank schon mal für deine/ Eure große Hilfe

mfg

Hannes

[Driri]

Das weiß ich so jetzt nicht. Probiers einfach aus, Du kannst den Text im Versuch ja erstmal drin lassen.

[darehannes]

Habs ausprobiert, funktioniert leider auch nicht;
Dann müssen die Mitarbeiter halt doch (wie ich finde) etwas doofen richtextlight felder zum umgang mit anhängen benutzen!
Vielen Dank nochmals
mfg und bis bald

[Driri]

Hast Du es schon einmal anders herum ausprobiert ? Pack doch einfach den restlichen Inhalt in ein neues RTF und laß im vorhandenen nur die Attachments drin.