Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Mikels am 04.05.04 - 12:06:08
-
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")
-
... versuch mal memo.save true, false vor dem memo.send
-
Nein, löst das Problem nicht wirklich ...
-
Nein, das kann es auch nicht - das Speichern hilft hier nicht weiter.
Aber soweit ich das sehe, übergibst Du mit
Call body.AppendText(RichTextBox1.Text)
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
-
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 }