Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: MisterDa am 24.06.03 - 14:55:00
-
HI!
Ich übergebe Text aus einer anderen Datenbank an eine neu erstellte Mail. Nun möchte ich aber den Text bzw. die Daten ein wenig strukturierter darstellen.
Ist es möglich, sowas wie:
<HTML>"&"<HEAD></HEAD><BODY><TABLE><TR><TD>Text1</TD><TD>Text2</TD></TR></TABLE></BODY></HTML>
irgendwie zu übergeben, sodass es in der Mail tatsächlich als Tabelle erscheint und nicht als Text?
Bin dabei absoluter HTML-Noob.. :)
Danke
MisterDa
-
... innerhalb von Notes bleibt ein HTML-Code leider nur TEXT...
ata
-
Ok. Danke.
Gibts aber vielleicht ne Möglichkeit, ne Tabelle in der Mail zu erstellen und diese dann mit Daten zu füllen?
MisterDa
-
Mr. Da,
Du kannst proprietäre Features von Notes-Mail benutzen.
Es kommt drauf an, ob die Mail innerhalb des Notes-Netzwerks bleibt oder ob sie über ein paar Internet Router geht. Notes benutzt ein proprietäres Mailformat und diese Formatierungsinformationen werden meist nicht von Mail-Routern weitergeleitet.
Der Text der Mail steht ja in dem Body-Feld. Dies ist ein RichText Item. Du kannst z.B. mal versuchen in html ausserhalb von Notes eine html-Tabelle zu erstellen, die abzuspeichern und nach Notes mit EmbedObject zu importieren.
Eine andere Möglichkeit wäre die Tabelle mit addTab des Notes-RT-Feldes zu schreiben. Das ist ja dann quasi wie eine neue Tabellenzeile.
korrigiert mich, wenn ich falsch liege
Axel
-
Danke Axel.
Die Mail geht von einem Notes-User auch an externe Firmen..soviel zum Problem mit den Routern..
Ich hab das mit dem Importieren mal versucht, aber er zeigt mir nur ein Symbol für das Objekt an, und nicht die HTML-Seite. Ausserdem muss ich die Mail nach dem einfügen speichern, sonst zeigt er mir den Body leer an...
Das hier is mein ursprünglicher Code (auch hier ausm Forum ;) ):
Function CreateMailMemo(sBody As Variant) As Integer
'#Erstellen einer Neuen Mail und einfügen der übergebenen Daten in den Body der Mail
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim maildb As NotesDatabase
Dim maildoc As NotesDocument
Dim profile As NotesDocument
Dim sMailAdress As String
Dim sMailSubject As String
CreateMailMemo = 0
Set maildb = New NotesDatabase("","")
maildb.OpenMail
Set profile = maildb.GetProfileDocument("CalendarProfile")
Set maildoc = New NotesDocument(maildb)
maildoc.Form = "Memo"
maildoc.Logo = profile.DefaultLogo(0)
maildoc.Principal = profile.Owner(0)
'#maildoc.SendTo = varSendTo
'#maildoc.Subject = sSubject
maildoc.Body = sBody
Call workspace.EditDocument(True, maildoc)
End Function
Da funktioniert das auch nicht mit dem addTab..
Irgendwie steh ich im Moment aufm Schlauch.. :-\