Inserir imagem no corpo do e-mail do lotus notes utilizando access

Amigos,

Preciso de uma ajuda para resolver um problema que tenho na empresa que trabalho.

Tem um vba do access que funciona corretamente para enviar e-mail com o Lotus Notes com arquivo em anexo.

Estou precisando colocar uma imagem no corpo do e-mail. Alguém pode me ajudar??

Boa Noite Beto,
Só assim sem código, nem exemplos é impossível dar qualquer ajuda. Mostra o código existente, com isso será mais fácil ajudar.

Amigo,

Segue o vba.

Sub EnviarEmailViaNotes()
Dim notesSession As Object
Dim notesMailFile As Object
Dim notesDocument As Object
Dim notesField As Object
Dim receptores(2) As Variant
Dim oEmail As IPictureDisp



'Cria Uma lista de destinatários
receptores(0) = "****.*****@****.com.br"
receptores(1) = "*******@*****.com.br"
receptores(2) = "******@******.com.br"


'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", "Sinistros para revisão")
Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
Set notesField = notesDocument.CreateRichTextItem("Body")



'Escreve o texto padrão no e-mail.
With notesField
.AppendText "********, "
.AddNewLine (2)
.AppendText "*********. "
.AddNewLine (1)
.AppendText "Att."
.AddNewLine (3)
.AppendText "*****."
.AddNewLine (4)
End With

'Anexa o arquivo
notesField = notesField.Embe(1454, "", "C:\Rotina\SINISTRO DUPLICADO\Base para revisão.xls")
notesField = notesField.EmbedObject(1454, "", notesAttachment)

'Imagem Corpo do email



'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

Beto,
Veja este link Inserting Images into Lotus Notes Email

Amigo,

Não conseguir entender os codigos. Você consegue me ajudar a incluir os codigos no meu vba acima?

No aguardo.