VBA code text format

[CarlStephens]

Hello All,

The below code creates an email in Lotus Notes, and the text of the body of the email comes from a sheet in the work book. What do I need to add to the code so that the format of the text (colour, font type and size) in the sheet is the same as the body of the email? Thank you.

Public Sub Create_and_Display_Notes_Email2()

    Dim NUIWorkspace As Object
    Dim NUIDocument As Object
    Dim ToEmail As String, CCEmail As String, BCCEmail As String, Subject As String, BodyText As String
   
    With ActiveSheet
        ToEmail = .Range("C2").Value
        CCEmail = .Range("C3").Value
        BCCEmail = .Range("C4").Value
        Subject = .Range("C5").Value
        BodyText = Join(Application.Transpose(.Range("C7", .Cells(.Rows.Count, "C").End(xlUp)).Value), vbCrLf)
    End With
   
    Set NUIWorkspace = CreateObject("Notes.NotesUIWorkspace")
   
    'Create an email using the Notes UI
   
    NUIWorkspace.ComposeDocument , , "Memo"
   
    Do
        Set NUIDocument = NUIWorkspace.CurrentDocument
        DoEvents
    Loop While NUIDocument Is Nothing
   
    With NUIDocument
        .FieldSetText "EnterSendTo", ToEmail
        .FieldSetText "EnterCopyTo", CCEmail
        .FieldSetText "EnterBlindCopyTo", BCCEmail
        .FieldSetText "Subject", Subject
   
        .GoToField "Body"
        .InsertText BodyText
        .GoToField "Body"
        MsgBox "Go to your emails and you will see that a email has been created with all of the details."
    End With
   
End Sub

 

[mabbutt]

Possible answer here.