Visual Basic Código VBA para anexar o próprio arquivo

[Douglas ianes]

Bom dia Pessoal.

 

estou colocando um código em uma planilha para enviar email ao final de outra sequencia de código.

porém eu quero que anexe o mesmo arquivo que esta rodando a macro, e não estou conseguindo.

 

segue o código

 

<Sub Enviar_email()

Set objeto_outlook = CreateObject("outlook.application")
Set Email = objeto_outlook.createitem(0)

Email.display

Email.to = Cells(2, 1).Value
Email.cc = "[email protected]"

Email.Subject = "Segue notificação de falha"

Email.body = Cells(2, 1).Value & "\venda -" & Chr(10) & Cells(2, 3).Value _
  & "Atenciosamente"
  
Email.attachments.Add ThisWorkbook.Name

Email.send

 

End Sub>

 

a principio havia conseguido enviar, porém quando mudei o arquivo de pasta esta dando erro na hora de anexar.

este arquivio será dinamico com nome e local diferente todos os dias.