title image


Smiley Re: ist das nur ein Ausschnitt...
Hallo Walter,



ich hab mal das Script 'verschlankt' hinter eine Schaltfläche gelegt:



Sub Click(Source As Button)

Dim session As NotesSession

Dim db As NotesDatabase



Dim viewJournal As NotesView

Dim doc As NotesDocument



Dim BodyItem As NotesRichTextItem



Set session = New NotesSession

Set db = session.CurrentDatabase

Set viewJournal = db.GetView( "Journale" )

Set docJournal = viewJournal.GetDocumentByKey("Abteilung1",(True))



If Not docJournal Is Nothing Then

Set BodyItem=docJournal.GetFirstItem("Body")

Call BodyItem.AppendText("Weiterso")

End If



End Sub



Den 'Type Mismatch erhalte ich bei der: Set BodyItem=docJournal.GetFirstItem("Body")-Anweisung, hab ich mittels Messagebox eingeschränkt.



Kannst du mir sagen warum das nicht läuft?



Danke dir schon mal für deine Mühe !!



Gruß

Michael







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: