Domino 9 und frühere Versionen > ND8: Entwicklung
HTML EMail
Janosch:
Nach langen Lesen & Recherchieren bin ich zu diesen Ergebnis gekommen. Leider wird mir der HTML Inhalt immer in eine .dat Datei abgelegt. Diese .dat Datei kann ich zwar ohne Probleme mit dem Viewer anschauen.
In diesem Fall:
Hallo Welt
Ich habe schon häufiger gelesen das ein solches Phaenomen auch an Sicherheitseinstellungen liegen kann. Jedoch sollte ein Fett markiertes Wort keine Probleme darstellen. Ich haba ja schon häufiger solche Mails empfangen oder gar selbst geschrieben.
Dim Maildb As Object
Dim MailDoc As Object
'Dim session As NotesSession
Dim session As Object
Dim body As Object
'Dim body As NotesMIMEEntity
Dim mh As Object
'Dim mh As NotesMIMEHeader
Dim mc As Object
'Dim mc As NotesMIMEEntity
Dim stream As Object
'Dim stream As NotesStream
Dim MailDbName As String
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.GetDatabase(MailDbName, MailDbName)
If Maildb.IsOpen = True Then
'Fertig zum mailen!
Else
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CreateDocument
session.ConvertMime = False
MailDoc.Form = "Memo"
MailDoc.sendto = recipient
MailDoc.subject = "Test HTML Messages"
'Create the MIME headers
Set body = MailDoc.CreateMIMEEntity
Set mh = body.CreateHeader("MIME - VERSION")
Call mh.SetHeaderVal("1.0")
Set mh = body.CreateHeader("Content-Type")
Call mh.SetHeaderValAndParams("SetHeaderValAndParams")
Set mc = body.CreateChildEntity()
Set stream = session.CreateStream()
Call stream.WriteText("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN""" & _
"""http://www.w3.org/TR/html4/loose.dtd"">" & _
"<html> <head> <title>Beschreibung der Seite</title> </head> <body>" & _
"Hallo <b style='mso-bidi-font-weight:normal'>Welt</b></p> </body> </html>")
Call mc.SetContentFromText(stream, "iso-8859-1", ENC_NONE)
'Close the stream
Call stream.Close
'Send it
Call MailDoc.Send 0, recipient
Navigation
[0] Themen-Index
[*] Vorherige Sete
Zur normalen Ansicht wechseln