Domino 9 und frühere Versionen > ND8: Entwicklung

...warum kann ich das BODY Feld nicht auslesen ?

(1/3) > >>

Scotty67:
...ich darf mal wieder um Hilfe bitten ?!

bekomme einen Type Mismatch
hier der auszug aus dem code

Dim maildoc As New NotesDocument (db)
....

maildoc.Form = "DBMemo"
maildoc.Subject = CustomerMailSubject
maildoc.Empfaenger = myNames
maildoc.SMNummer = uismnummer
maildoc.UsedTime = 0
maildoc.Body="XX"
   
Call maildoc.Save(True,True)
   
Dim rtitemC As NotesRichTextItem
Set rtitemC = maildoc.GetFirstItem( "Body" )  '''HIER IST DAS PROBLEM !!!

Ralf_M_Petter:
Da es sich um ein neues Dokument handelt, solltest du doch CreateRichTextItem verwenden. Übrigens selbt wenn das Bodyitem schon existieren würde, funktioniert dein Code erst ab Notes Version 8. Unter 7 muss das RTItem als Variant definiert sein.

Grüße

Ralf

tower:
Hallo,

Richtextitems funktionieren etwas anders als 'normale' NotesItems.

Hier ein funktionierender Code:

   Dim session As New NotesSession
   Dim maildoc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Set maildoc = session.CurrentDatabase.CreateDocument
   
   maildoc.Form = "DBMemo"
   maildoc.Subject = CustomerMailSubject
   maildoc.Empfaenger = myNames
   maildoc.SMNummer = uismnummer
   maildoc.UsedTime = 0
   Set rtitem = New NotesRichTextItem(maildoc,"Body")
   Call rtitem.AppendText("XX")
   
   
   
   Call maildoc.Save(True,True)
   
   Dim rtitemC As NotesRichTextItem
   Set rtitemC = maildoc.GetFirstItem( "Body" )  '''HIER IST DAS PROBLEM NICHT MEHR ;)

Ralf_M_Petter:
Ups das maildoc.body=xx habe ich überlesen. Dann ist es ja klar, dass es nicht funktionieren kann, da getFirstItem dann ein normales Item zurückliefert.

Grüße

Ralf

Scotty67:
 :-\ vielen dank leute !
JA ich hab ein problem denn meine Benutzer arbeiten noch mit R7 verdammt....
So jetzt rtitem nur als variant zu deklarieren hilf leider ned, ist noch etwas zu beachten ?

lg/hannes

Navigation

[0] Themen-Index

[#] Nächste Seite