Sending formatted Lotus Notes rich text email from Excel VBA

by

The short answer is Yes. The long answer is painful. There aren’t any great classes exposed to manipulate rich text items in Notes. However a few that you can research are the NotesRichTextStyle, NotesRichTextParagraphStyle, and NotesRichTextTable to name a few. These classes help you define some rich text elements and add them programmatically to your rich text field.

Another approach, since you’re sending email, is to use the NotesMIMEEntity classes and build the email using HTML (way way easier). Here’s some sample code:

Set s = New NotesSession
Dim docMail As NotesDocument
Dim body As NotesMIMEEntity
Dim stream As NotesStream

Set db = s.CurrentDatabase
s.ConvertMIME = False ' Do not convert MIME to rich text

'Create email to be sent
Set docMail = db.CreateDocument

With docMail
        .SendTo = SEND TO ADDRESS
        .From = FROM ADDRESS
        .Principal = FROM ADDRESS
        .ReplyTo = REPLY TO ADDRESS
        .Subject = SUBJECT
        .Form = "Memo"
End With

  Set stream = s.CreateStream
Set body = docMail.CreateMIMEEntity
Call stream.WriteText ("YOUR HTML CODE GOES HERE")

'ENC_IDENTITY_8BIT used because of technote found on notes.net
'http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/aeedaf28e47546ad85256f6a000a4b48?OpenDocument
Call body.SetContentFromText (stream, "text/html;charset=iso-8859-1",ENC_IDENTITY_8BIT) 

Call docMail.Send(False)
Set docMail = Nothing
Set body = Nothing
Set stream = Nothing

s.ConvertMIME = True ' Restore conversion

Essentially you’ll need to turn the ConvertMIME setting off in the NotesSession. Then create a new document, set the mail properties, etc. That part is already in your VBA code. Next, create the MIMEEntity and a stream to hold your HTML text. Finally call the SetContentFromText method on your MIMEEntity object. Then send your email. Note the last call is to turn the ConvertMIME feature back on for the NotesSession.

I’m not sure if this will all work via COM, but it does work well in LotusScript agents in Notes.

I hope this helps!

More Related Contents:

  1. Loop through files in a folder using VBA?
  2. How to error handle 1004 Error with WorksheetFunction.VLookup?
  3. How can Excel VBA open file using default application
  4. How to compare two entire rows in a sheet
  5. Run same excel macro on multiple excel files
  6. VBA : save a file with UTF-8 without BOM
  7. Saving a Excel File into .txt format without quotes
  8. Excel VBA “Method ‘Document’ of object ‘IWebBrowser2’ failed”
  9. Determine if cell contains data validation
  10. VBA – Range to jpg picture
  11. Fastest way to delete rows which cannot be grabbed with SpecialCells
  12. Combine multiple Excel workbooks into a single workbook
  13. Excel Macro, inserting internationally valid formula during run-time
  14. VBScript – How to make program wait until process has finished?
  15. Making VBA Form TextBox accept Numbers only (including +, – and .)
  16. VBA Convert date to week number
  17. Inserting an Online Picture to Excel with VBA
  18. Change length of For loop while in the loop
  19. VBA – Run Time Error 1004 ‘Application Defined or Object Defined Error’
  20. Consolidating worksheets into one
  21. Copy filtered data to another sheet using VBA
  22. Range.Find on a Date That is a Formula
  23. mac excel vba loop : from list & then export as pdf
  24. Can Advanced Filter criteria be in the VBA rather than a range?
  25. In Excel VBA, what is the way to check if the web page is fully loaded?
  26. Excel Useform: How to hide application but have icon in the taskbar
  27. Reading Web Pages using Excel VBA
  28. Excel VBA: auto click and open file from website
  29. How to have vba execute every 10 minutes?
  30. Read and write from/to registry in VBA

Leave a Comment