Assuntos que não estiverem relacionados as categorias acima. Se não souber em qual categoria sua mensagem se encaixa, envie aqui.
  • Avatar do usuário
#60607
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!!!!
Você não está autorizado a ver ou baixar esse anexo.
#60927
norival escreveu: 30 Nov 2020 às 16:32 ... 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

Boa noite. Sou novo no VBA, veja se resolve o seu […]

Top, asism ficou bem melhor, Muito Obrigado

Erro em tempo de Execução...

Bom dia amigos, neste código abaixo esta da[…]

Boa tarde. Segue uma opção. At&ea[…]

Leitura de planilha fechada

Consegui explicar :) :shock: :?: :?: N&at[…]

Bom-dia! Numa pasta do servidor [ D:\Server\BemVi[…]

Enviando email outlook

Boa tarde! Estou usando o codigo abaixo e esta fun[…]

Soma de valores por escalões.

Faça como na primeira postagem acima, forne[…]