Boa tarde
Ao utilizar essa escrita para enviar apenas um email funcionou
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) = "GR_EMPRESARIAL SAO PAULO"
receptores(1) = "supro@banestes.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", "Resultado de Antecipação de Recebíveis - GPD")
Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
Set notesField = notesDocument.CreateRichTextItem("Body")
'Escreve o texto padrão no e-mail.
With notesField
.AppendText "Prezados, boa tarde."
.AddNewLine (2)
.AppendText "Devido um ajuste no GPD o pacote Antecipação de Recebiveis esta com o resultado zerado para todas agências."
.AddNewLine (2)
.AppendText "Por tanto estamos encaminhando este arquivo com o resultado para verificação do desvio do mesmo. Caso o mes de Dezembro esteja negativo elaborar o plano de açao como costume, caso esteja positivo
ignorar o relatorio 3G para este produto especifico."
.AddNewLine (2)
.AppendText "SUPRO"
.AddNewLine (2)
.AppendText Cells(1, 1).Value 'aqui faz referencia a uma variável ou a uma parte da planilha
End With
'Anexa o arquivo - COMENTAR SE NÃO FOR ENVIAR ANEXO
notesField = notesField.EmbedObject(1454, "", "D:\Enzo\Realizado de Ant. de Recebíveis\Realizado Ant - 0160.pdf")
'notesField = notesField.EmbedObject(1454, "", notesAttachment)
'Envia o e-mail
notesDocument.Send False
SaveMessageOnSend = True
'Limpa as variáveis
Set notesSession = Nothing
Set notesMailFile = Nothing
Set notesDocument = Nothing
Set notesField = Nothing
Porem ao repeti-la varias vezes para enviar vários email ao mesmo tempo esta gerando um erro: "Declaração Duplicada no escopo atual" ----> Dim notesSession As Object
Alguem sabe me explicar por que?