Domino 9 und frühere Versionen > ND6: Entwicklung

DocLink in Sub Querysave

<< < (2/4) > >>

TMC:
Ich habs mal in die BP-Diskussionen gestellt:
http://www.atnotes.de/index.php?board=27;action=display;threadid=16269

rento:
Hallo Hier mein komplettes skript

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim senddoc As NotesDocument
   Dim item As NotesItem   
   Dim rtitem As NotesRichTextItem
   Dim collection As NotesDocumentCollection
   Dim Teamlead As String
   
   Set db = session.CurrentDatabase
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   Set senddoc = New NotesDocument(db)
   Set collection = db.AllDocuments
   Set doc = collection.GetFirstDocument()
   
   While Not(doc Is Nothing)  
      If doc.HasItem ("TeamLeader") Then
         If doc.HasItem ("Form") Then
            Teamlead = Cstr (doc.Teamleader(0))
         End If
      End If
      Set doc = collection.GetNextDocument(doc)
   Wend
   
   DueDateStatus = uidoc.FieldGetText("DueDateStatus")
   OldDueDateStatus = uidoc.FieldGetText("OldDueDateStatus")
   
   If OldDueDateStatus = "" Then
      Call uidoc.FieldSetText("OldDueDateStatus", DueDateStatus)
      Goto ende
   End If
   
   
   If DueDateStatus <> OldDueDateStatus Then
      Call uidoc.FieldSetText("OldDueDateStatus", DueDateStatus)      
      senddoc.form = "Memo"
      senddoc.Subject = "Status Change" & " " & db.Title
      
'Anlegen und füllen des Richtextfeldes für die Aufgabenbeschreibung
      Set  rtitem = senddoc.CreateRichTextItem("Body" )
      Subject = uidoc.FieldGetText("Subject")
      Call rtitem.AppendText("The Status was changed in document "  &"/ " & Subject & " \" &" ")  
      Call rtitem.AppendDocLink(doc, db.Title) ' Documenten link anlegen
      Call senddoc.send (True,Teamlead)
   End If
ende:      
   
   
End Sub

Ich hoffe das euch das weiter hilft.
Weiterhin hoffe ich das ich nicht wieder aus dummheit was übersehen habe. ;D

TMC:
Bevor wir uns den Code ansehen:

Du hast noch nicht beantwortet ob eine Vorgabeansicht definiert ist.

Denn daran könnte es wie oben von Andreas erwähnt auch liegen.

rento:
Ja es gibt eine Ansicht mit "Vorgabe beim ersten Öffnen der Datenbank".

Aber was hat das mit dem senden eines DocLink´s zu tun? Verstehe ich net.

Könnt ihr mir das bitte erklären?

Danke schonmal

TMC:

--- Zitat von: rento am 11.06.04 - 08:29:33 ---Aber was hat das mit dem senden eines DocLink´s zu tun?
--- Ende Zitat ---

Damit Doclinks funktionieren, muss bei einer Ansicht der DB "Default when database is first opened" ausgewählt sein.
Lotus Script benötigt diese Ansicht, um die Doclink-Lokation zu erstellen.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete