Raquel Penha

@Alyson Ronnan Martins Muito obrigada pela ajuda!! Me adiantou demaaais! Deu tudo certo e já estou rodando no meu computador. Uma dúvida, aqui você comentou que seria melhor fazer como tabela, isso seria possível?

Oi @Alyson Ronnan Martins tudo bem? Não, mas não estou anexando nada aos emails. O código já está puxando as informações do nº da nota, valor e link no corpo do email, o que preciso é que quando o campo "account" for igual ele puxe os dados e adicione no mesmo corpo de email. Por exemplo, na planilha tenho 2 accounts iguais, mas pelo meu código, o cliente vai receber 2 emails, 1 pra cada nota. Preciso que ele receba 1 emails pras 2 notas. E se um cliente tiver 30 notas, por exemplo, quero que ele receba 1 email com as informações (nº, valor e link) das 30 notas, e não 30 emails diferentes. Estou colocando em anexo como está o corpo do email com as informações desse código que criei. Me avise se precisar de mais alguma informação 🙂

Olá pessoal, tudo bem? Sou iniciante no vba e estou lançando um projeto na minha empresa de uma macro no excel que dispara emails em massa para mandar as notas fiscais em aberto dos clientes. Desenvolvi o código primário com as informações que eu preciso. O que acontece é que 1 cliente pode possuir mais de uma nota em aberto e eu não quero que ele receba 30/40 emails cada um com uma nota. Então gostaria de saber como posso juntar todas as notas em um email com a condição de que o campo "account" (coluna G) seja o mesmo. Ou seja, se o account for o mesmo da linha de cima, na coluna G, gostaria que ele juntasse as informações das notas no mesmo email. Se alguém puder me ajudar agradeço muito, vai garantir minha visibilidade com a minha chefe e quem sabe até um aumento haha As informações são essas (colunas B até G): Nome do cliente/fornecedor SerialNfSe Valor do Serviço email Link da NFse account adm servicos de informatica ltda 997 R$ 1.200,80 raqlast@gmail.com https://nfe.prefeitura.sp.gov.br/contribuinte/ adm adm servicos de informatica ltda 998 R$ 1.062,50 raqlast@gmail.com https://nfe.prefeitura.sp.gov.br/contribuinte/ adm ibd tecnologia da infomação ltda 994 R$ 1.516,89 raqlast@gmail.com https://nfe.prefeitura.sp.gov.br/contribuinte/ ibd mgh 991 R$ 3.458,33 raqlast@gmail.com https://nfe.prefeitura.sp.gov.br/contribuinte/ mgh syd comercio eletronico ltda 980 R$ 17.737,00 raqlast@gmail.com https://nfe.prefeitura.sp.gov.br/contribuinte/ syd O código até agora é esse aqui: Sub enviar_email() Set objeto_outlook = CreateObject("Outlook.Application") For linha = 11 To 15 Set Email = objeto_outlook.createitem(0) Email.display Email.To = Cells(linha, 5).Value Email.cc = "mcacft@hotmail.com" Email.Subject = "Pendência de pagamento - " & Cells(linha, 7).Value Email.Body = "Olá" & Space(1) & Cells(linha, 2).Value & "," & Chr(10) & Chr(10) _ & "Você possui a(s) seguinte(s) fatura(s) em aberto" & Chr(10) & Chr(10) _ & "SerialNfSe Valor do Serviço Link da NFse" & Chr(10) _ & Cells(linha, 3).Value & Space(18) & "R$" & Cells(linha, 4).Value & Space(12) & Cells(linha, 6) & Chr(10) _ & "Nesse caso, você mesmo pode atualizar seu boleto e atualizar o vencimento, é só acessar o seu Módulo Faturas" & Chr(10) _ & "Atenciosamente," & Chr(10) & "Financeiro" Email.send Next End Sub