Estou usando o código abaixo para envio de email do access pelo L.Notes. O código funciona porém ele não salva no notes o email enviado. Gostaria também de anexar um arquivo pdf, seria possível. agradeço a ajuda.
Sub EnviarEmailViaNotes()
Dim notesSession As Object
Dim notesMailFile As Object
Dim notesDocument As Object
Dim notesRtf As Object
Dim notesField As Object
Dim receptores(2) As Variant
Dim attach1 As String
'Cria Uma lista de destinatários
receptores(0) = "yyyyyyyyyy@yyyy.org.br"
'receptores(1) = "xxxxxxxxxxx@xxxx.com"
'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...")
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. "
.AddNewLine (1)
.AppendText "Chegou? Tudo Certo?"
.AddNewLine (3)
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
Sub EnviarEmailViaNotes()
Dim notesSession As Object
Dim notesMailFile As Object
Dim notesDocument As Object
Dim notesRtf As Object
Dim notesField As Object
Dim receptores(2) As Variant
Dim attach1 As String
'Cria Uma lista de destinatários
receptores(0) = "yyyyyyyyyy@yyyy.org.br"
'receptores(1) = "xxxxxxxxxxx@xxxx.com"
'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...")
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. "
.AddNewLine (1)
.AppendText "Chegou? Tudo Certo?"
.AddNewLine (3)
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