Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

VBA: Anwendungslink erstellen

<< < (2/2)

TRO:
wie schon Mitch schrieb: der DocLink muss in den Body!

Set rt = MailDoc.CREATERICHTEXTITEM("Body")


hth

Thomas

wziffels:
Dann bekomme ich die folgende Fehlermeldung:

Objektvariable oder With-Blockvariable nicht festgelegt  ???

wziffels:
Das lag wohl daran dass ich vorher dem Body schon normalen Text zugewiesen habe.

Kommentiere ich MailDoc.Body = BodyText aus dann steht da zumindest schonmal Click here: aber der Anwendungslink fehlt trotzdem.  ???

Tode:
Das kollidiert auch mit dieser Zeile:
--- Code: ---    MailDoc.Body = BodyText
--- Ende Code ---
mit der Du das Item "Body" als NotesItem und nicht als "NotesRichtextItem" anlegst.

So wäre es richtig:
--- Code: ---Set rt = MailDoc.CREATERICHTEXTITEM("Body")
Call rt.AppendText( BodyText )
Call rt.AddNewline(1)
Call rt.APPENDTEXT ("Click here: ")
Call rt.APPENDDOCLINK( Maildb, Maildb.Title )
--- Ende Code ---

wziffels:
Allen Beteiligten einen herzlichen Dank für eure Unterstützung.

Der Fehler lag am Ende noch daran dass der laut IBM-Dokumentation optionale Parameter HotSpotText mit angegeben werden MUSS.

Dokumentation:

--- Code: ---Call  notesRichTextItem .AppendDocLink(  linkTo ,  comment$ [, HotSpotText$ ] )
--- Ende Code ---


Mein funktionierender Code:

--- Code: ---rt.APPENDDOCLINK Maildb, Maildb.Title, "Link zur Datenbank"
--- Ende Code ---

 :D

Navigation

[0] Themen-Index

[*] Vorherige Sete