Send mail med Lotus

Jeg bruger denne funktion til at sende mail med

Nu vil jeg gerne oprette en tabel inde i mailen hvordan ?

Jeg havede forstille mig noget med noget HTML kode i mailen !


Public Function SendMail(ByVal Tomailadd As String, ByVal MailSub As String, ByVal MailBody As String) As Object

    Dim oSess As Object
    Dim oDB As Object
    Dim oDoc As Object
    Dim oItem As Object
    Dim direct As Object
    Dim Var As Variant
    Dim Body As String
    Dim oStyle As Object
       
    Set oSess = CreateObject("Notes.NotesSession")
    Set oDB = oSess.GETDATABASE("", "")
    Call oDB.OPENMAIL
    Set oDoc = oDB.CREATEDOCUMENT

    oDoc.Form = "Memo"
    oDoc.Subject = MailSub
    oDoc.Body = MailBody
    oDoc.sendto = Tomailadd
    oDoc.postdate = Date
    oDoc.visable = True
    oDoc.SEND False
    Set oSess = Nothing
    Set oDB = Nothing
    Set oDoc = Nothing
    Set oItem = Nothing

End Function