Hallo brauche mal wieder hilfe.

Ich möchte in der Sub Querysave einen DocLink per mail an der User senden.
Das Dokument ist auch schon gespeichert gewesen.

Dieses senden soll nur passieren, wenn an dem Dokument was geändert wurde. Warum kann ich hier keinen DocLink senden?

Danke für Infos

Ist eine Vorgabeansicht vorhanden?

Du hast recht. Alleine die Frage mit Doclinks und die Lösung "fehlende Vorgabeansicht" kann so um die hundert mal hier.
Ist das was für Best Practices?

Andreas

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.

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

Wollte mir jetzt gerade Dein Script ansehen.

Dazu fehlen aber noch ein paar Infos:
- Wo genau hängt es? Du schreibst nur: "Warum kann ich hier keinen DocLink senden?"
- Falls es zu einem Script-Fehler kommt: Bei welcher Zeile entsteht der Fehler? (-> Debugger hilft da)

Beim überfliegen hab ich gesehen, dass Du da Anweisungen wie "Goto ende" drinhast. Damit überspringst Du übrigens Dein senddoc.send - vielleicht liegt es auch daran.

Das Skirpt wird bei Querysave eingehangen und ausgeführt.

Mit Goto überspringe ich den teil nur wenn die bedingungen nicht zutreffen, die ich brauche, damit er ne Mail sendet.

Mit senddoc.send (False,Teamlead) habe ich auch schon probiert funktioniert auch net.

Wenn ich das senddoc.send auf True setzt kommt der Fehler vom debuger an der Stelle wo ich den DocLink einfügen möchte.
Das Bodyfeld ist vorhanden.
Habe das senddoc.send jetzt auf False stehen und nur der DocLink wir nicht angezeigt.

Achso noch ne Info Mails komme alle an nur der DocLink ist nicht vorhanden.

Hey supper vielen und Großen danke.

Also war es doch mal wieder meine Eigene Dummheit, das das mit dem doc net gesehen hab   .

Das mit der Ansicht ist ne gute idee kann ich noch einbauen.

nochmal ganz viel dank.