PAIcher

    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 ?

    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.Initialize


    MailServer = Session.GetEnvironmentString("MailServer", True)
    MailFile = Session.GetEnvironmentString("MailFile", True)


    Set db = Session.GetDatabase(MailServer, MailFile)
    Set doc = db.CreateDocument


    Call 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 ?

    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.Initialize


    MailServer = Session.GetEnvironmentString("MailServer", True)
    MailFile = Session.GetEnvironmentString("MailFile", True)


    Set db = Session.GetDatabase(MailServer, MailFile)
    Set doc = db.CreateDocument


    Call 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)

    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.CreateDocument


    Call 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