Macro email lotus notes

[rizzatto]

Boa Tarde Galera,

Tenho o código a baixo, para enviar um e-mail com Lotus Notes pelo Excel .

Entretanto, preciso ajustar ainda:

1 - Quero formatar o corpo do e-mail (Colorir algumas palavras), ou encaminhar o texto copiado do excel como imagem no corpo do e-mail.

 

Sub EnviarEmailViaNotes()
    Dim notesSession As Object
    Dim notesMailFile As Object
    Dim notesDocument As Object
    Dim notesField As Object
    Dim receptores(2) As Variant
        
    'Cria Uma lista de destinatários
    receptores(0) = "[email protected]"
    receptores(1) = ""
    
    'Abre uma sessão do notes, abre a base de dados e cria um documento.
    Set notesSession = CreateObject("Notes.NotesSession")
    Set notesMailFile = notesSession.GetDataBase("", "names.nsf")  '- *.nsf = arq. com lista de contatos
    Set notesDocument = notesMailFile.CreateDocument
    
    'Configura Subject, SendTo e Abre um nomo corpo de e-mail
    Set notesField = notesDocument.AppendItemValue("Subject", "Teste de Envio via Excel...")
    Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
    Set notesField = notesDocument.CreateRichTextItem("Body")
        
    'Escreve o texto padrão no e-mail.
    With notesField
        .AddNewLine (1)
        .AppendText .Range("B3:L25").Select
        
        
        .AddNewLine (2)
        .AppendText Cells(1, 1).Value   'aqui faz referencia a uma variável ou a uma parte da planilha
    End With
    
    'Envia o e-mail
    notesDocument.Send False
    
    'Limpa as variáveis
    Set notesSession = Nothing
    Set notesMailFile = Nothing
    Set notesDocument = Nothing
    Set notesField = Nothing
End Sub