Boa tarde amigos,
Gostaria de saber como faço para enviar uma mensagem via Lotus Notes, através do Access utilizando programação VBA.
Aqui no fórum eu encontrei um post onde o colega Benjamim ofereceu o seguinte código:
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) = "benjamim.carvalho@ccee.org.br"
receptores(1) = "jcabreu@ccee.org.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", "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
.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
Entretanto, o código supracitado envia diretamente a mensagem (gostei muito disso), mas eu precisava de um código que permita que a mensagem seja primeiramente visualizada no Lotus Notes, para depois clicarmos o botão SEND (no Lotus Notes), ou seja, o envio não deveria ser automático.
Alguém pode me ajudar?
Desde já, muito grato.
