Domino 9 und frühere Versionen > ND7: Entwicklung

Warum bekomme ich die Anhänge nicht zu fassen?

(1/2) > >>

botschi:
Hallo,

ich habe einen Agenten, der im Moment manuell ausgeführt wird und eine Mail mit Anhängen bearbeiten soll.
In dieser Mail sind zwei Anhänge. Mit
--- Code: ---Dim RTitem As New NotesRichTextItem(Mail, "Body")
Dim Object As NotesEmbeddedObject

'Set RTitem = New NotesRichTextItem(Mail, "Body")
Stop
If ( Rtitem.Type = RICHTEXT ) Then
' Set Object = Rtitem.GetEmbeddedObject("problem report")
Forall o In RTitem.EmbeddedObjects
--- Ende Code ---
versuche ich die Anhänge zu greifen.
Weder mit "Set Object = Rtitem.GetEmbeddedObject("problem report")", noch mit Forall ... gibt es keine embedded objects in dem Richtextitem.

Was mache ich falsch oder woran kann das liegen?

Matthias

Glombi:
Versuch mal folgendes:

Dim RTitem As NotesRichTextItem
Dim Object As NotesEmbeddedObject

Set RTitem = Mail.GetFirstItem( "Body")
....

Ich bin mir nicht sicher, ob das New RichTextitem so arbeitet wie es soll.
Mit der o.g. Methode klappts jedenfalls in meinen Scripts.

Andreas

botschi:
Jawohl!  ;D

Das tut ganz wunderbar, muß ich mir dringend merken. Nach dem "warum" frage ich jetzt nicht....
Danke Andreas!

Matthias

pete_bla:
hi,

zum warum noch was:
New
heist doch erstmal ein neues RTItem
und in dem neuen ist (natürlich) auch kein Anhang drin..
also:
GetFirstItem
um ein vorhandenes zu bekommen.

(oder sehe ich da was falsch?)

Gruss pete(r)

dirk_2909:


--- Zitat ---(oder sehe ich da was falsch?)
--- Ende Zitat ---

Ja - das NEW bezieht sich auf das Objekt NotesRichTextItem innerhalb des Codes ....

Navigation

[0] Themen-Index

[#] Nächste Seite