Domino 9 und frühere Versionen > Entwicklung

Einfache Frage zu Lotus Script: Erstelltes Dokument bearbeiten

<< < (3/7) > >>

sinus:
So jetzt gibt es keinen Fehler mehr, ABER er öffnet mir jetzt leider das Dokument auf dem der Cursor gerade steht und nicht das Dokument im

Order: draft
mit dem Sender: test

Sollte das nicht eigentlich so gehen??

Ich möchte auf der erste Dokument im Ordner "draft" zugreifen, was mache ich falsch?



Sub Click(Source As Button)
   
   Dim uiws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim docThis As NotesUIDocument
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set docThis = uiws.CurrentDocument
   Set view = db.GetView("draft")
   Set doc = view.getdocumentbykey("test", False)
   
   Call uiws.EditDocument(doc)
   
End Sub

doliman:
Hi,

den Zusammenhang verstehe ich nicht ganz richtig.
Ist das eine Schaltfläche innerhalb einer Ansicht oder Maske?

Und wie soll denn Dein Ablauf aussehen. Es gibt ja mehrere Möglichkeiten dem Benutzer ablaufen von den unterschiedlichsten Stellen anzubieten. Diese Variante des Scripts weicht von der ersten Fassung etwas ab.
Ich gehe mal davon aus, dass es sich um eine Schaltfläche in einer Ansicht handelt.
Hier brauchst Du nicht:
Dim docThis As NotesUIDocument
Set docThis = uiws.CurrentDocument
zu machen, wenn Du nicht mit dem Dokument arbeiten willst, denn wie Du ja feststellst, öffnet sich das in der Ansicht markierte Dokument.

Ein erstes Dokument in einer view bekommt man mit:
set doc = view.getfirstdocument
ich baue immernoch ein:
if not doc is nothing then
  Call uiws.EditDocument(doc)
end if
drumherum.
Denn findest Du kein Doc und machst mit Deiner Zeile weiter krachts im Karton.

Was passiert jetzt aber, wenn mehrere Dokumente in diesem Ordner sind?

   

sinus:
Hi,

ich starte das Script in einer Maildatenbank von einem Button aus.

Es sieht jetzt so aus:

Sub Click(Source As Button)
   
   Dim uiws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set view = db.GetView("draft")
   Set doc = view.getfirstdocument
   If Not doc Is Nothing Then
      Call uiws.EditDocument(doc)
   End If
   Call uiws.EditDocument(doc)
   
End Sub

Leider öffnet er jetzt einfach nur das Dokument auf dem der Cursor gerade steht, und nichtmal im Bearbeiten Modus sondern im Lesen Modus.

Hast Du noch eine Idee?

Gruss, Sven

klaussal:
... aus der designer-hilfe:

editMode

Boolean. Optional. Specify True to open the document in Edit mode. Specify False to open the document in Read mode or put the document in the given Edit mode. If you omit this parameter, the document is opened in Edit mode.

ata:
... es müßte also

Call uiws.EditDocument(True , doc)

... heißen

ata

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete