Domino 9 und frühere Versionen > Entwicklung

Betreffzeile von neuen Mails extern Speichern

<< < (4/4)

Semeaphoros:
Du willst doch die Info in ein File schreiben - oder?

Dann solltest Du "Open xx for Output"   oder je nachdem "Open xx for Append"

und dann natürlich auch ein Print-Statement und nicht ein Input-statement.

schmidti:

--- Zitat ---Du willst doch die Info in ein File schreiben - oder?

--- Ende Zitat ---

Ups, das stimmt natürlich - das kommt von Copy & Paste. Also so sieht es jetzt aus:

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument   
   Dim j As Integer
   Dim fileNum As Integer
   Dim betreff As String
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   fileNum% = Freefile()
   Open "subjects.txt" For Output As fileNum%
   For j = 1 To collection.Count
      Set doc = collection.GetNthDocument( j )
      betreff$ = doc.Subject
      Print #fileNum%, betreff$;
      Call doc.Remove( True )
   Next
   Close fileNum%   
End Sub

Die Frage ist nun, wird jeder Wert in eine neue Zeile geschrieben??

klaussal:
Wenn man abschreibt, dann sollte man schon wissen, was man abschreibt  ;D

Lies doch bitte einmal die Hilfe oder "Try and Error".

Semeaphoros:
Nimm beim Print-Statemenet das Strichpunkt ganz am Ende weg, dann wird jeder Eintrag in eine Zeile geschrieben .... aber wie Klaus schon angetönt hat, solche Syntax-Fragen stehen sehr präzis in der Hilfe beschrieben.

schmidti:
Juchu, ich hab es geschafft, natürlich mit euer Hilfe, aber ich bin auch ein wenig stolz auf mich! ;D ;D ;D!
Für diejenigen, die der Quellcode intressiert:

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument   
   Dim j As Integer
   Dim fileNum As Integer
   Dim betreff As String
   Dim item As Notesitem
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   fileNum% = Freefile()
   Open "subjects.txt" For Output As fileNum%
   For j = 1 To collection.Count
      Set doc = collection.GetNthDocument( j )
      Set item = doc.GetFirstItem( "Subject" )
      betreff$ = item.Text
      Print #fileNum%, betreff$
      Call doc.Remove( True )
   Next
   Close fileNum%   
End Sub

Vielen Dank an euch und das nette (und vor allem schnelle) Feedback. Ich hab natürlich auch die Hilfe gelesen. Und sie war für mich auch eine sehr große Hilfe ...

Trotzdem noch mal vielen Dank!

Gruß, Christian!

Navigation

[0] Themen-Index

[*] Vorherige Sete