Domino 9 und frühere Versionen > Entwicklung

Aus Mail über Agent ein txt-file anlegen??

<< < (2/5) > >>

kai:
Die Daten *.txt werden dann weiterverarbeitet und ausgewertet.
Es handelt sich um Protokolldateien

Kai

Don Pasquale:
Ich habe hier jetzt etwas, dass speichert aus angewählten
Mails das Bodyfeld ab, allerdings nur als Plaintext.
Hat jemand eine Idee, wie ich das Body-Feld ohne Informationsverluste
abspeichern kann ?

   Const PFAD = "C:\TEMP\"

   Dim plainText As String
   Dim fileNum As Integer
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase   
   Set session = New notessession
   Set db=session.currentdatabase
   Set dc=db.UnprocessedDocuments  
   
   Set doc=dc.GetFirstDocument  
   While Not (doc Is Nothing)
      
      Set rtitem = doc.GetFirstItem( "body" )
      If ( rtitem.Type = RICHTEXT ) Then
         plainText = rtitem.GetFormattedText( False, 0 )
      End If
      
      fileNum = Freefile
      Open Pfad & "mail.dat" For Output As fileNum
      Print #fileNum, plainText
      Close #fileNum
      Return
      Set doc = dc.GetNextDocument(doc)       
   Wend
   

kai:
Danke ich probiere es mal aus, brauche aber möglichst den gesamten Body ohne Datenverlust.

Danke Kai

Don Pasquale:
Das habe ich mir schon gedacht, teste doch mal was in Richtung
binärdatei.
Aber wie willst Du diese Dateien denn dann wieder lesen ?

Ciao

Don Pasquale

koehlerbv:
Punkt 1 der Anforderungen war doch eine zu erstellende ASCII-Datei. Genau das macht doch Don's Code.

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete