A principio tenho esse codigo que funciona, porem não sei configura-lo da forma que eu preciso.

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]"

'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", "Alerta, Certidão, Licença ou Regime a Vencer ou Vencido")
Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
Set notesField = notesDocument.CreateRichTextItem("Body")

'Escreve o texto padrão no e-mail.
With notesField
.AppendText "Este é um modelo que copiei da ferramenta, "
.AddNewLine (2)
.AppendText "Para um possível uso no arquivo do GSAM. "
.AddNewLine (1)
.AppendText "Chegou? Tudo Certo?"
.AddNewLine (3)
.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