Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Raimund am 16.09.02 - 07:57:30
-
Hi Entwickler,
folgendes Problem.
Habe ein Script, wo ich Kommentare in einfügen kann.
Funktioniert auch prima, nur, wie bekomme ich es hin, dass die jeweiligen Kommentare in eine neue Zeile geschrieben werden und nicht durchgehend:
13.09.2002 Herr XYZ>>>Die Düsen sind alle defekt und werden dann nächste Woche ausgetauscht<<< 13.09.2002 Herr XYZ>>>rhjrtjrtjrtjrtjers<<< 16.09.2002 Raimund >>>test Raimund<<<
Vielen Dank
Gruß
Raimund
-
Hi
probier's mal so:
"13.09.2002 Herr XYZ" + Chr$(13) + "Die Düsen sind alle defekt und werden dann nächste Woche ausgetauscht" + Chr$(13) + "13.09.2002 Herr XYZ" + Chr$(13) + "rhjrtjrtjrtjrtjers" + Chr$(13) + "16.09.2002 Raimund" + Chr$(13) + "test Raimund"
Ich hoffe ich hab das richtig verstanden. Wenn nocht musst du ein paar Infos mehr liefern.
Axel
-
Hi,
funktioniert prima.
Sieht dann so aus:
Sub Initialize
'Variablen werden deklariert
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim temp As Notesitem
Dim collection As NotesDocumentCollection
'Werte werden gesetzt
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
Set temp = doc.GetFirstitem("errinfo")
Call temp.AppendToTextList ( Chr$(13) & Date & " " & session.commonusername & " >>>" & Inputbox$("Neuen Kommentar eingeben: " )& "<<<")
Call doc.save (True, False)
End Sub
Vielen Dank
Gruß
Raimund
-
eine weitere Möglichkeit ist diese hier:
message = |Dies ist die erste ZeileRETURN
und dies ist die zweite!|
msgbox message
Hinweis: RETURN steht für die Taste "return"....