CopyAllItems + AppendDocLink

[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

[ralph71]

nein ist sie nicht. wenn ich nämlich das so mache:
Dim item As NotesRichTextItem

dann haut's mir die Fehlermeldung "Falscher Datentyp" bei Set item = newdoc2.Getfirstitem("Body") um die Ohren....

Edit: NotesRichTextItem kennt die Methode Getfirstitem nicht.
Edit2: oder doch --> https://atnotes.de/index.php?action=printpage;topic=56679.0

ohje...

Nachtrag: mittels Set item = New NotesRichTextItem( newdoc2, "Body" ) funktioniert es. Aber der Body ist dann natürlich leer....

[Peter Klett]

Kann es sein, dass Body in der Kopiervorlage nicht Richtext ist?

[ralph71]

Stimmt, er ist: Body (MIME_PART).

Die Mail die kopiert wird, wird von extern empfangen und im zweiten Schritt vom Agenten im Ereignis "Nach Eingang neuer Mail" kopiert.