Domino 9 und frühere Versionen > ND9: Entwicklung

CopyAllItems + AppendDocLink

(1/2) > >>

ralph71:
Hallo zusammen,

mittels Call newmail.CopyAllItems(newdoc2, True) kopiere ich eine Mail in eine Neue (newdoc2)
anschließend Manipulation zb des Betreffs über newdoc2.Subject ="...." usw.

Ans Ende der Mail möchte ich noch einen Dokumentenlink hängen.
Das Übliche wäre ja:
Set item = New NotesRichTextItem( newdoc2, "Body" )
Call item.AppendDocLink(doc, "")

Klappt aber nicht, weil das "New" mir den Bodyinhalt überschreibt.
Wie kann ich den Link anzeigen?

Danke und Grüße
Ralph

ghostmw:
Hi,

du meintest sicher den Link anhängen.

Du holst dir das kopierte "Body"-Feld mit dem Befehl "getFirstItem" aus dem neuen Dokument.
Dann kannst du weiter verfahren, wie du vor hattest.

Du ersetzt die Zeile mit dem "... new NotesRichTextItem ( ...)" mit dem Zuordnen anhand des getFirstItem-Befehls.

... das war's.

P.S.: "new NotesRichTextItem" macht und gibt dir ein neues Feld mit diesem Namen.

Gruß
Marco

ralph71:
Perfekt!
Danke Dir.

ralph71:
und jetzt steigt der Agent plötzlich aus...

Der Agent kopiert vorher brav eine Mail in eine neue Mail (newdoc2). Anschließend soll er in der neuen Mail noch den Dokumentenlink anhängen. Das hat bis jetzt auch funktioniert. Jetzt nicht mehr....

Wenn ich den fehlerhaften Code auskommentiere, dann wird alles korrekt erstellt und verschickt.

Meine Codierung:
...
Dim item As Variant
Set item = newdoc2.Getfirstitem("Body")
Call item.AddNewLine( 2 )  ->> Fehlermeldung
...
Call newdoc2.Send(False, doc.fdbilauthor(0)+"xxxxx")
usw.

Fehlermeldung: Instance member ADDNEWLINE does not exist

Irgendwelche Ideen?

ascabg:
Hallo,

Schon mal nachgesehen, ob deine Variable Item" (als Variant definiert) auch wirklich noch vom Typ
eines NotesRichTextItems ist?


Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite