Domino 9 und frühere Versionen > Entwicklung

Feld automatisch mit Lotus Script ändern

<< < (3/3)

Axel:
Hi,

kannst du das Script nochmal posten und die Zeile markieren, bei der der Fehler auftritt.


Axel

Fbaum:
OK... hier nochmal...

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   
   Dim feedback As  New NotesDatabase( "", "" )  
   Dim uidoc As NotesUIDocument
   Dim doc  As NotesDocument
   Call workspace.EditDocument( True )
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set feedback = New NotesDatabase("Mein_Server", "Meine_DB.nsf")
   Call doc.Form_Status = "92 Reviewers Notified"
Hier ist Fehlermeldung!

   Call doc.CopyToDatabase( feedback )
   Dim session As New NotesSession
   Dim db As NotesDatabase
   
   '
   Set db = session.CurrentDatabase
   'Set newdoc = New NotesDocument( db )
   Dim rtitem As NotesRichTextItem  
   Set rtitem = New NotesRichTextItem( doc,  "Body" )
   Call rtitem.AppendDocLink( feedback, db.Title )
   
   doc.Form = "Memo"
   'doc.SendTo = SendTo
   doc.Subject = "Document for review. (Click icon to access database.)"
   Call doc.Send( False )
   Call doc.Save(False,True )
      Call uidoc.Close
End Sub

Axel:
Hi,

in der Zeile ist das Call zuviel.

Die Zeile muß so aussehen:

doc.Form_Status = "92 Reviewers Notified"

Sorry, hab ich in meinem Posting übersehen.

Axel

 

Fbaum:
Danke schön... Funktioniert...
Gruß FBaum

Navigation

[0] Themen-Index

[*] Vorherige Sete