Este fórum está sendo desativado

[norival]

Pessoal,
Estou precisando enviar vários e-mails, porém para cada e-mail eu terei que mostrar os números de chaves de acesso e sua respectiva NFe contidos na planilha (anexa), estive procurando mas não sei como fazer via excel ou se é se tem como, andei pesquisando também que possa ser possível via Word juntamente com Excel, mas preciso que conste nesse e-mail o número da NFe com sua respectiva chave de acesso.

Anexo planilha teste

Obrigado!!!!

[Strogonoff]

Boa tarde!!
Veja se era isso que você procurava.
Qualquer coisa estou a disposição
Abraço

[norival]

Desculpe estar respondendo somente agora, seria isso mesmo, mas teria como ao invés de eu enviar um a um, tipo quando contiver várias notas e chaves de acesso de um mesmo e-mail eu colocar todas as notas com suas respectivas chaves de acesso igual voce fez e enviar para o destinatário?

Obrigado!!

[Strogonoff]

Boa noite...
Sim é muito mais fácil ainda...
Agrupar as notas e enviar tudo num único email...
Aguarde até sexta esta semana está muito corrida para mim..
Abraço

[norival]

ok fico no aguardo, se precisar te envio a planilha original

Obrigado

[osvaldomp]

... quando contiver várias notas e chaves de acesso de um mesmo e-mail eu colocar todas as notas com suas respectivas chaves de acesso ...

Veja se aproveita.
#

Código: Selecionar todos

Sub EnviaEmails()
 Dim objOutlook As Object, objOutlookMsg As Object, email As Long, k As Long, v As Long, bod As String
  Set objOutlook = CreateObject("Outlook.Application")
  Application.ScreenUpdating = False
  Range("A2:F" & Cells(Rows.Count, 6).End(3).Row).Sort Key1:=[F1], Order1:=xlAscending
  For email = 2 To Cells(Rows.Count, 6).End(3).Row
   k = Application.CountIf([F:F], Cells(email, 6))
    Set objOutlookMsg = objOutlook.CreateItem(0)
     With objOutlookMsg
      .To = Cells(email, 6)
      .cc = ""
      .Subject = "coloque aqui o assunto"
      For v = email To email + k - 1
       bod = bod & vbLf & "NFe - " & Cells(v, 1) & "  |  CHAVE DE ACESSO - " & Cells(v, 2)
      Next v
      Cells(email, 1).Resize(k, 6).Interior.Color = vbYellow
      .Body = bod
      '.display
      .send
     End With
    email = email + k - 1: bod = ""
  Next email
End Sub

#

obs.
1. requer Outlook instalado na máquina
2. na coluna F se houver célula vazia no meio dos endereços ou endereço inválido de email o código irá travar
3. para facilitar a execução, o código irá ordenar os dados com base na coluna F
4. o assunto bem como cc: poderão ser colocados em células para serem lidos pelo código, retorne se houver interesse
5. o código irá pintar de amarelo as linhas correspondentes aos emails enviados
6. funciona para qualquer quantidade de emails, repetidos ou não

[norival]

Perfeito, não abusando "mas já abusando" kkkkkkkkk, preciso também que para cada nota fiscal enviada, eu tenha que anexar dois documentos em pdf´s, ou seja se um destinatário possuir 10 notas fiscais terei que anexar 10 documentos

[osvaldomp]

Sugiro que você abra um tópico para essa nova demanda.