Wie bekomme ich das Body-Feld in der Mail DB dazu das es HTML wierdergibt ?
Mit Lotus Script erzeuge ich ein neues Mail Dokument.
Das Body Feld sollte nach dem Versenden HTML Tag wiedergeben.
Hat jemand eine Idee ?
PAIcher
- paicher
- Erledigt
-
-
1) Bitte aussagekräftigere Betreffs wählen.
2) HTML wird automatisch generiert, wenn im Client eingestellt ist, dass auch HTML versendet werden soll.
3) Wenn Du das HTML selber generieren willst, musst Du mit NotesMIMEEntity arbeiten.
4) HTML-Mail ist böse. E-Mails sind text/plain! -
Hier mal ein Beispiel meines Problem: (VBS-Script)
Set Session = CreateObject("Lotus.NotesSession")
Call Session.InitializeMailServer = Session.GetEnvironmentString("MailServer", True)
MailFile = Session.GetEnvironmentString("MailFile", True)Set db = Session.GetDatabase(MailServer, MailFile)
Set doc = db.CreateDocumentCall doc.AppendItemValue("Form", "Mail")
Call doc.AppendItemValue("SendTo", "Mail-Adresse")
Call doc.AppendItemValue("Subject", "Here's the document you wanted")
Call doc.AppendItemValue("body", "<tr><td>1234</td><td>5678</td><td>77777</td></tr>"doc.Send(vbTrue)
Im Mail wird keine Tabelle sichtbar.
Wie bekomme ich das Body-Feld HTML fähig ? -
Vermutlich deswegen weil tr und td's alleine keine Tabelle darstellen.
Wo sind die benötigten Table-Tags ? -
Ich habe vergessen alle html-tags zu Posten Sorry !!!
Hier noch mal der Script:
Bei der Mail-Adresse muß eine gültige Mailadresse eingetragen werden.Set Session = CreateObject("Lotus.NotesSession")
Call Session.InitializeMailServer = Session.GetEnvironmentString("MailServer", True)
MailFile = Session.GetEnvironmentString("MailFile", True)Set db = Session.GetDatabase(MailServer, MailFile)
Set doc = db.CreateDocumentCall doc.AppendItemValue("Form", "Mail")
Call doc.AppendItemValue("SendTo", "Mail-Adresse")
Call doc.AppendItemValue("Subject", "Here's the document you wanted")
Call doc.AppendItemValue("body", "<body><table border='1' align='center'><tr><td>1234</td><td>5678</td><td>77777</td></tr></table></body>")doc.Send(vbTrue)
-
Und die von bofh genannten Punkte, wie sieht es damit aus ?
-
Ich weiß leider nicht wie ich "NotesMIMEEntity" in den Script einbauen soll.
Kann ich den Type vom Feld Body ändern ?z.B.
Feldname: Body
Datentyp: MIME-Element
Datenlänge: 9052 Byte
Seq.-Num.: 4
Doppeleintrags-ID: 0
Feld-Flags: SIGN SEAL -
Ich habe eine Lösung gefunden:
strSub = "Betreff"
strTo = "Mail-Adresse"
strBody = "HTML Code"Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
Set db = s.GetDatabase(MailServer, MailFile)
Set stream = s.CreateStream
s.ConvertMIME = False ' Do not convert MIME to rich text
Set doc = db.CreateDocumentCall doc.ReplaceItemValue("Form", "Memo")
Set body = doc.CreateMIMEEntity
Set header = body.CreateHeader("Subject")
Call header.SetHeaderVal(strSub)
Set header = body.CreateHeader("To")
Call header.SetHeaderVal(strTo)
Call stream.WriteText(strBody)
Call body.SetContentFromText _
(stream, "text/html;charset=iso-8859-1", ENC_NONE)
Call doc.Send(False)
s.ConvertMIME = True ' Restore conversion