Excel Anexando Arquivo na Letter do Excel via VBA

[R de Freitas]

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 = "[email protected]"
      .Item.CC = "[email protected]"
      .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.