Domino 9 und frühere Versionen > ND7: Entwicklung

Dokument versenden aus Document Library

<< < (2/2)

Driri:

--- Zitat ---savenote.save True, True, True

--- Ende Zitat ---

Das kann nicht funktionieren. Da müßte dir eigentlich direkt ein Fehler im Designer gemeldet werden.

Korrekte Syntax wäre :
Call savenote.Save(True,True,True)

Ich glaube auch, daß es besser wäre, mal den kompletten Code zu posten. So ist das ein wenig Gestocher im Nebel.


P.S. : Ich gehe mal davon aus, daß es sich bei savenote um ein NotesDocument handelt.

Oliver.Bedford:

--- Zitat von: Driri am 12.09.06 - 14:36:44 ---
--- Zitat ---savenote.save True, True, True

--- Ende Zitat ---

Das kann nicht funktionieren. Da müßte dir eigentlich direkt ein Fehler im Designer gemeldet werden.

--- Ende Zitat ---

  Das ist Original-Code aus der Datenbank Template! Das diejenigen, die Notes gemacht haben, nicht programmieren können, habe ich schon immer vermutet.  >:D

  Ich kann gerne auch mehr Zeilen kopieren:
Function SendToNext
   
   Dim RevCompleteMailError As String   'new 462
   
   
   If Not(dbug Is Nothing) Then dbug.LogAction("SendToNext")
   
   SendToNext = True
   
     'On Error Goto StandardError
   
   Set mailnote = New NotesDocument(db)
   
   ReviewerList = note.ReviewerList
   TotalReviewers = Ubound(ReviewerList)
   RevCompleteMailError = "0"    'new 462
   
   Set username = New NotesName(note.CurrentUser(0))
   Set reviewername = New NotesName(note.CurrentEditor(0))
   Set fromname = New NotesName(note.From(0))
   
   If Lcase(username.Common) = Lcase(reviewername.Common) Then IsCurrentReviewer = True
   
'Statuses:  1=New, 2=In Review, 3=Review Complete     
   If note.Status(0) = 1 Then
      note.reviewernumber = 0
      ReviewerNumber = note.ReviewerNumber(0)
'savenote is a copy of the original which we save as a response to the copy that will be reviewed         
      If Not(note.HasItem("OriginalSaved")) Then
         note.save True, True, True
         Set savenote = New NotesDocument(db)
         Call note.CopyAllItems(savenote, False)
'from the Notes client, the body field is not available to note until a ui save
         If note.HasItem("Body") Then
            Set rtitem = note.GetFirstItem("Body")
            savenote.RemoveItem("Body")
            Call rtitem.CopyItemToDocument(savenote, "Body")
         Else
            note.CopyBody = True
         End If
         Call savenote.MakeResponse(note)
         savenote.~$RefOptions = "1"
         savenote.Subject = GetString(1)
         savenote.save True, True, True
         note.OriginalSaved = savenote.UniversalId
      End If
   Else
      ReviewerNumber = note.ReviewerNumber(0) + 1
   End If
[... Abschnitte für Benachrichtigung der Reviewer etc. gelöscht]
End Function

Gruß,
Oliver

Tode:
ERSTENS: Warum sollte ein
savenote.save true, true, true
nicht funktionieren ?

Diese Notation ist in Notes genau wie in VisualBasic genauso gültig wie die mit Klammern, solange kein Rückgabe- Wert benötigt wird.
Anderes Beispiel:

Messagebox "das ist eine nachricht" , 0 , "Nachricht"
bzw
Messagebox( "das ist eine nachricht" , 0 , "Nachricht" )

ZWEITENS: Du solltest auf Deine Ausdrucksweise achten, oliver:
Du hast -wie Du selbst schreibst- keine Ahnung von der Materie, und kriegst nicht mal ein simples document.send hin (aber wahrscheinlich sind diejenigen, die Notes programmiert haben auch zu blöd um eine gute Designer- Hilfe zu schreiben), also lass die abfälligen Bemerkungen über die Programmierer von Notes.

DRITTENS: Code abzupinseln und zu modifizieren, ohne die zugrundeliegende Struktur zu kennen / verstanden zu haben, geht halt meistens schief.
Du musst:

1. ein neues NotesDocument erstellen
2. Diesem Dokument die Maske "Memo" zuweisen
3. Den Body der note in das neue Dokument kopieren (savenote kannst Du vollkommen ignorieren, das hat für diese Anforderung null Relevanz
4. das Subject in das neue Dokument kopieren (bzw. selbst modifizieren)
5. die Felder SendTo, Copyto, BlindCopyTo mit entsprechenden Empfängern füllen
6. das ganze per send verschicken

Viel Glück damit

Tode

Navigation

[0] Themen-Index

[*] Vorherige Sete