Hi Folks,

ich möchte mit NotesStream eine BinärDatei erstellen,
als Beispiel habe ich das BodyFeld eines doc welches ich
in eine Datei schreiben möchte.
Ich schreibe zwar die Daten aus dem Body Feld,
aber es wird nur der ASCII Text genommen, alles
was nicht ASCII ist, wird gefiltert. Das will ich verhindern.

Wer weiss Rat ?

Ciao
Don Pasquale

Dim pathname As String
pathname =  PFAD & "\" & "mail.dat"
   
Set stream = session.CreateStream
   
If Not stream.Open(pathname, "binary") Then

Messagebox pathname,, "Open failed"
'   Exit Sub
End If
   
If stream.IsReadOnly Then
   Messagebox pathname,, "File is read-only"
'   Exit Sub
End If
   
If stream.Bytes <> 0 Then
'   Exit Sub
End If
   
Call stream.Truncate
Call stream.WriteText(doc.GetItemValue("Body")(0))
Call stream.Close

was liefert denn dieser Ausdruck hier zurück: doc.GetItemValue("Body")(0)

andere Frage: was ist dein Ziel (außer eine Binärdatei zu erstellen)?

doc.GetItemValue("Body")(0)

liefert mir den Inhalt des Bodyfeldes des aktuellen Doc´s.

Was ich will ist, den Inhalt des Body-Feldes ohne verlust irgendwelcher Formatierungsinformation in eine Datei schreiben und später wieder zurückschreiben. Alle Varianten bisher ermöglichten nur das abspeichern des ASCII-Textes, aber das reicht mir nicht.

ich denke nicht, dass du mit
doc.GetItemValue("Body")(0)

irgendwelche Formatierungen auslesen kannst. AFAIK kriegst du da den Text des Feldes (evtl. mit irgendwelchen ASCII-Codes für Zeilenumbrüche oder Tabs), du kriegst aber keine Information darüber, ob da z. B. rote Schrift verwendet wird, oder etwas fett geschrieben ist. Außerdem erhältst du so auch keine Informationen über Attachments oder andere eingebettete Objekte.

Was du tun kannst ist, dein Dokument nach XML zu exportieren, das werden denke ich alle Infos mitgenommen.

na ja, theoretisch müsstest du dann eben Buchstabe für Buchstabe deines Strings in ein Byte umwandeln und das dann in dein Array schmeißen
z.B.
Buchstabe e = 0x65 = 01000001. Deinem Byte Array müsstest du also für ein e das entsprechende Byte hinzufügen

na ungefähr so

dim sBody as string
sBody = doc.GetItemValue("Body")(0)

dim i as integer
dim sChar as string
for i = 1 to len(sBody)
    sChar = mid(sBody,i,1)
     ...
     ...
next

da bin ich überfragt. wie so ein RTFeld aufgebaut ist weiß ich ungefähr. wie du das alles in eine Datei rausschreiben kannst -> keine Ahnung, außer der Methode mit dem DXL-Exporter. Ich würde davor auch nicht soviel Respekt haben. Das ist echt kein Hexenwerk, die Hilfe bietet einige Beispiele und hier sind ja ein paar Leute, die sich auch damit auskennen.

@Semaphor
Gibt es denn die Möglichkeit aus Visual Basic heraus da ran zu kommen ?

Ciao
Don Pasquale

RBODs ?

Na ja, über die API, aber dann kanns Dus auch gleich aus LS heraus aufrufen. Das ist das, was Normunds in RTLib macht. Das braucht allerdings Geduld und Nerven und die Bereitschaft, mit RBODs zu leben.

Welche API Befehle könnten das denn sein ?
Aus der RTLib wird man ja nicht schlau, weil geschützt.

Ciao
Don Pasquale

was mich mal interessieren würde ist, was du für einen Zweck damit verfolgst, dieses Teil in eine binäre Datei zu exportieren. Was willst du denn mit der Datei mal machen?