Domino 9 und frühere Versionen > ND6: Entwicklung

RichText-Problem in VB

(1/1)

Mikels:
Hallo Leute,
habe da ein Problem mit einem Visual-Basic-Programm. Ich habe eine RichTextbox,
die alle Parameter in Bezug auf Textformatierungen bei der Übergabe an Notes verliehrt.
Bin mir nicht sicher, ob das Problem hier richtig aufgehoben ist, denke mir aber, dass es
ein Notes-Problem ist.

Set Object = CreateObject("Notes.NotesSession")
Dim session As Variant
Dim mailserver As String
Dim mailfile As String
Dim db As Variant
Dim memo As Variant
Dim body As Variant

Set session = CreateObject("Notes.NotesSession")
mailserver = session.GetEnvironmentString("MailServer", True)
mailfile = session.GetEnvironmentString("MailFile", True)
Set db = session.GetDatabase(mailserver, mailfile)
Set memo = db.CreateDocument
memo.Subject = "Betreffzeile"
Set body = memo.CreateRichTextItem("Body")
Call body.AppendText(RichTextBox1.Text)
Call body.AddNewLine(2)
Call body.EmbedObject(1454, "", "c:\text.html")
Call memo.Send(False, "Hans.Mustermann@gmx.de")

Hernan Cortez:
... versuch mal memo.save true, false vor dem memo.send

Mikels:
Nein, löst das Problem nicht wirklich ...

koehlerbv:
Nein, das kann es auch nicht - das Speichern hilft hier nicht weiter.

Aber soweit ich das sehe, übergibst Du mit

--- Zitat ---Call body.AppendText(RichTextBox1.Text)
--- Ende Zitat ---
ja auch ausdrücklich nur unformatierten Text.
Ich habe aber leider keinen Plan, wie man ein RichText-Object aus VB in ein NotesRichTextItem hineinbekommt ...

Bernhard

Mikels:
Ich hatte es auch schon mit .TextRTF versucht,
schlägt in Notes so auf:

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\froman\fprq2\fcharset0 Times New Roman;}{\f1\fnil\fcharset0 MS Sans Serif;}}
{\stylesheet{ Normal;}{\s1 heading 1;}}
\viewkind4\uc1\pard\keepn\s1\qc\lang1031\b\f0\fs32 Agenda Sitzung
\par \pard\b0\fs24
\par
\par
\par \pard\fi-709\li709\b Begr\'fc\'dfung der neuen Mitglieder
\par \b0 Hans Mustermann
\par \pard Sabine Mustermann\f1\fs17
\par }

Navigation

[0] Themen-Index