how to set font type in lotus notes mail with msaccess

[jclaus]

I'm using an msaccess database application to mail a list with lotus notes.
The list is generated in msaccess and imported as a string into the body text of the mail itself.
Works great but to make the content very clear I would like to set the font type of that LN body text as a monospaced type like courier, from within the msaccess app.

Would be very thankful for any help!

thanks
jclaus

 

[brightstar]

sorry i dont know the answer to your question, but i would love to know how you got access talking to lotus notes!
could you paste a bit of the code, just a bit... and i'll take it from there. Cheers!

http://www.agonyonline.co.uk

free, anonymous advice provided by the whole world

 

[jclaus]

Hi there,

this is the basic version of the function I use to fill mails with access database information and send it with lotus notes.

Public Function sendMail()

Dim MailDb, MailDoc, Session As Object
Dim MailDbName, Bodytext, Subject, Recipient As String
    
' set subject title using fixed text string or in combination with variable(s) from object
    Subject = "Concerning: " '& Forms!myform!myfield
    
' set sendto name based on fixed value or variable data
    recipient = "name.secondname@anywhere.com"
    
' set bodytext for email
    Bodytext = "put here any combination of date or other data out of your forms, query or tables"

' start a notes session
        Set Session = CreateObject("Notes.NotesSession")

' open mail database in notes
        Set MailDb = Session.GETDATABASE("", MailDbName)
        If MailDb.ISOPEN = False Then
            MailDb.OPENMAIL
        End If

' set up mail document
        Set MailDoc = MailDb.createdocument
        MailDoc.Form = "Memo"
        MailDoc.Sendto = Recipient
        MailDoc.Subject = Subject
        MailDoc.Body = Bodytext

' send mail + confirm sending
        MailDoc.SEND 0, Recipient
        MsgBox "Offer was sent to " & Recipient
        
' clean Up
        Set Session = Nothing
        Set MailDb = Nothing
        Set MailDoc = Nothing
               
End Function

Works very simple, is reliable and easy to modify to fit your needs!

Hope this helps you

bye
jclaus

 

[brightstar]

marvelous, thank you very much!

http://www.agonyonline.co.uk

free, anonymous advice provided by the whole world