Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: darehannes am 04.09.06 - 09:53:52
-
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!
-
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.
-
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!
-
Wieso ? Das Objekt ist ja Embedded. Du kannst auch über das RTItem darauf zugreifen. Das Problem ist die Anzeige im Frontend.
-
: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?
-
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.
-
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
-
Das weiß ich so jetzt nicht. Probiers einfach aus, Du kannst den Text im Versuch ja erstmal drin lassen.
-
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
-
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.