Domino 9 und frühere Versionen > ND6: Entwicklung

rtlib: Änderungen am Attachment übernehmen

(1/2) > >>

Barbara:
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.

--- Code: ---Set item=doc.ReplaceItemValue("Vertrag",rtcont) setzt das ursprüngliche attachment unter das Dokument
--- Ende Code ---

--- Code: ---Call rtcont.replaceitemvalue(doc,"Vertrag") 'keine Änderungen
--- Ende Code ---

Ich kämpfe mich zum xten Male durch die Hilfe und kapiere überhaupt nichts mehr.

Kann mir jemand einen Tipp geben?

Barbara

iukhdh:
An der Groß/Kleinschreibung von deinem replaceitemvalue kanns nicht liegen?

Barbara:
nein, daran liegt es nicht

DerAndre:
Hm, der Codeschnipsel ist was dürftig...

1. ist Ok und identisch mit doc.Vertrag = rtcont

2. was soll da passieren? Und von welchen Typ ist rtcont?

Barbara:
Hier der Code - nicht meckern, da ist keine Fehlerbehandlung etc. drin. Ich bin noch am üben.

--- Code: ---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)
--- Ende Code ---

Barbara

Navigation

[0] Themen-Index

[#] Nächste Seite