Enviar varios e-mails ao mesmo tempo pelo Notes - via VBA

Question

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) = "[e-mail]"
   
    '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?

Answer 1

Tente o fórum "Planilhando". Lá é possível anexar arquivo e também há mais pessoas para responder.

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]