Beiträge von paicher

    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

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

    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 ?

    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 ?