neue Zeile - script

[Raimund]

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

[Axel]

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

[Raimund]

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

[Tobias]

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"....