Boa Tarde,

Sou completamente iniciado em VBA, mas atravez de pesquisas aqui no site e em outros já consegui fazer corte e costura do código para conseguir enviar e mails em Lotus.

No entanto á uma coisa que não estou mesmo a conseguir que é fazer com que a tabela que vai ser o corpo do e mail saia em htlm.

Dim noSession As Object, noDatabase As Object, noDocument As Object
Dim obAttachment As Object, EmbedObject As Object
Dim stSubject As Variant, stAttachment As String
Dim vaRecipient As Variant, vaMsg As Variant
Dim noDocumentTemp As Object

Set noSession = CreateObject("Notes.NotesSession")
Set noDatabase = noSession.GETDATABASE("", "")

If noDatabase.IsOpen = False Then noDatabase.OPENMAIL

Set noDocument = noDatabase.CreateDocument

Set obAttachment = noDocument.CreateRichTextItem("Body")

texto1 = "Boa tarde "
texto2 = "Vimos informar que no dia iremos proceder à cobrança"

PS: o código não está todo se for preciso todo é só dizer

No texto 3 viria uma uma pequena tabela com dados da folha de execel. E era esta tabela que eu necessitava que passasse em htlm.

Se alguem conseguir agradeço.