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

  • Pergunta

  • 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?

    • Movido welington jr quinta-feira, 18 de janeiro de 2018 14:44 forum mais especifico
    quarta-feira, 17 de janeiro de 2018 19:55

Todas as Respostas

  • 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 diniabr2011@gmail.com

    sábado, 20 de janeiro de 2018 10:18