Ir ao conteúdo
  • Cadastre-se

Excel Anexando Arquivo na Letter do Excel via VBA


Posts recomendados

Prezados bom dia,

 

Eu consegui criar uma macro para enviar e-mail ao termino da execução, porém houve uma nova demanda e irei precisar Anexar um Arquivo neste E-mail Conforme Código a Seguir:

Sub EnviarEmail()
    Dim X As Integer
    Dim Z, xData1, G, Arq  As String
    Dim Data As Date
    
    G = ActiveWorkbook.Name
    Arq = "c:\Temp" & G
    ata = Date
    xData = Format(Data, "DD") & "-" & Format(Data, "MM")
    ActiveSheet.Range("A1:G180").Select
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
      .Introduction = ""
      .Item.To = "Fulano@hotmail.com"
      .Item.CC = "Beltrano@Yahoo.com.br"
      .Item.Subject = "Captação - " & xData
      .Item.Display
    End With
End Sub

só que o Arquivo que eu preciso "Anexar" é o Arquivo aberto, que ao termino da Execução irá em anexo ao E-mail,

 

Devo fazer isso adicionando um " .Attachments.Add (Arq) "? 

já tentei de diversas formas, e não obtive sucesso.

 

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora


Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: ebook Redes Wi-Fi

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!