Este fórum está sendo desativado

[jreynaldo]

Bom dia,preciso de ajuda para finalizar um código.
Sou iniciante no VB e estou tendo uma dificuldade que nao to conseguindo andar.

Preciso criar uma macro que envie uma tabela no corpo do e-mail que deve ser filtrada pela dinamica de acordo com o envio.
E o envio deve ser para e-mail distintos de arco com a filial
E ainda no final de tudo anexar o arquivo no corpo do e-mail, de preferencia ocultando ou excluindo a "aba" onde estão os e-mails.

Pra exemplificar.

Na aba "Capa_email" vão estar as informações à serem enviadas
Na aba "Email" vão estar as informações das filiais, e-mail (para e cc), assunto e introdução
Na aba "Base" vai estar a base de toda informação que vai ser gerada na Capa_email

Então o envio dos e-mails precisa ser de acordo com a filial que vai estar na "E-mail" por filial e filtrando de acordo com a "Capa_email" e no final anexar a planilha em na mensagem.


Conseguir fazer o codigo pela metade, ele só copia a área que quero, cola no e-mail e anexa a planilha, mas nao consigo fazer o filtro dinamico no VBA e nem para que seja automatizado por filial.

Segue codigo

Código: Selecionar todos

Sub divulgacao_corpo_anexo()
      
' o ("E-mail") deveria ir descendo de acordo com o envio anterior'
' o ("Capa_email") precisaria ir sendo filtrado conforme mudando fosse sendo enviado de acorodo com a filial no ("e-mail)

   ' Emvia e-mail para o RIO'
    
   '---Copia a área para ser enviada da filial'
    Sheets("CAPA_EMAIL").Activate
    ActiveSheet.Range("A1:L28").Select
    ActiveWorkbook.EnvelopeVisible = True
    
   '---Anexa e envia a planilha no e-mail'
   With ActiveSheet.MailEnvelope
    
      .Item.Attachments.Add ActiveWorkbook.FullName
      .Introduction = ActiveWorkbook.Sheets("EMAIL").Range("F2") 
      .Item.To = ActiveWorkbook.Sheets("EMAIL").Range("C2")
      .Item.CC = ActiveWorkbook.Sheets("EMAIL").Range("D2")
      .Item.Subject = ActiveWorkbook.Sheets("EMAIL").Range("E2")
      .Item.Send
      
   End With
End Sub

Não sei se conseguir me explicar bem mas acho que da pra entender.
Em anexo a planilha.