Domino 9 und frühere Versionen > ND6: Entwicklung

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

(1/2) > >>

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(8)
   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:
:o, 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?

Navigation

[0] Themen-Index

[#] Nächste Seite