Lotus Notes Automation Problem

[MikeC14081972]

I have a module in Access (2000) that is building an email in Lotus Notes (ver 6.5) but I'm having a couple of problems.

1. The email is being produced in the draft folder of the user who is logged into to Notes on the PC. The requirement is for the email to be produced in the draft folder of a group mailbox which they have open.

2. I'm appending data to the body of the email using

objNotesRTF.AppendText "Required Text"

Is there anyway of formatting the text that appears in the mail body i.e. underline, bold, font size etc from within the VBA code.

Many Thanks

Mike.

If you make something idiot proof - They'll Only make a better idiot!!!

 

[HughLerwill]

wiglaer's contibution to thread222-766157 may help you but I fear you need more. It is written in VB6 but should not take much conversion.

 

[MikeC14081972]

Right got the text formatting sorted now

Set bodytext = objSession.CreateRichTextStyle

With bodytext
     .NotesFont = FONT_COURIER
     .FontSize = 10
     .Bold = 0
     .Underline = 0
     .NotesColor = COLOR_BLACK
End With

With objNotesRTF
     .AppendStyle (bodytext)
     .AppendText "Required Text"
     .Addnewline2
End With

etc  etc  etc

Just need help telling the procedure which dratf folder to send the email to.

Any help appreciated

Thanks

Mike

If you make something idiot proof - They'll Only make a better idiot!!!