Hallo,
ich bin zu blöd!?
Ich habe im Backend Attachments eingefügt, mit dem bekannten hässlichen grauen Erscheinungsbild. Dank rtlib eigentlich kein Problem, man kann sogar den Dateinamen ändern.-super
Jetzt kommt das große Aber: Ich bin nicht fähig die Änderungen, die ich im "rtContainer " auch sehe, in mein Dokument zurückzuschreiben.
Set item=doc.ReplaceItemValue("Vertrag",rtcont) setzt das ursprüngliche attachment unter das Dokument
Call rtcont.replaceitemvalue(doc,"Vertrag") 'keine Änderungen
Ich kämpfe mich zum xten Male durch die Hilfe und kapiere überhaupt nichts mehr.
Kann mir jemand einen Tipp geben?
Barbara
Hier der Code - nicht meckern, da ist keine Fehlerbehandlung etc. drin. Ich bin noch am üben.
Dim session As New Notessession
Dim db As NotesDatabase
Dim col As Notesdocumentcollection
Dim doc As notesdocument
Dim item As NotesRichTextItem
Dim rti As rtItem
Dim rtcont As rtContainer
Dim att As rtAttachment
Dim img As rtGraphic
Set db=session.currentdatabase
Set col=db.UnprocessedDocuments
Set doc=col.GetFirstDocument
'Bild und Dateiname im Anhang ändern
Set rti = New rtItem (doc,"Vertrag")
Set rtcont= New rtContainer
Call rtcont.getRichTextItem(doc, "Vertrag")
Set att = rtcont.getFirstElement (RT_OBJ_ATTACHMENT)
Set img = att.Image
img.ResourceName="Excel-Symbol.gif"
att.internalname ="9i_133333_Vertragsliste.xls"
att.Filename ="9i_133333_Vertragsliste.xls"
'Übernahme???
'Set item=doc.ReplaceItemValue("Vertrag",rtcont) setzt das ursprüngliche attachment unter das Dokument
Call rtcont.replaceItemValue(doc,"Vertrag") 'keine Änderungen
Call doc.Save(True,True)
Barbara