---

Denne funktion sender en mail i lotus notes, hvordan sætter jeg skrifttypen
på teksten 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

Set oSess = CreateObject("Notes.NotesSession")
Set oDB = oSess.GETDATABASE("", "")
Call oDB.OPENMAIL
Set oDoc = oDB.CREATEDOCUMENT
Set oItem = oDoc.CREATERICHTEXTITEM("BODY")
oDoc.Form = "Memo"
oDoc.Subject = MailSub
oDoc.sendto = Tomailadd
oDoc.Body = MailBody
oDoc.postdate = Date
oDoc.visable = True
oDoc.SEND False
Set oSess = Nothing
Set oDB = Nothing
Set oDoc = Nothing
Set oItem = Nothing

End Function

---

"Jens" <til@infojens.dk> wrote in message
news:3c0c0317$0$81742$edfadb0f@dspool01.news.tele.dk...
> Denne funktion sender en mail i lotus notes, hvordan sætter jeg
skrifttypen
> på teksten i mailen ???

1. Opret et NotesRichTextStyle-objekt.

2. Sæt formatteringen som ønsket.

3. Send objektet som parameter til AppendStyle-funktionen på
NotesRichTextItem-objektet.

--
Vh Morten