Anexo não carrega

[ivinnas]

Bom dia!

 

estou desenvolvendo uma macro que faz o envio de uma planilha

porém a macro chega ate anexar o arquivo mas da falha no download, o que pode ser?

segue codigo:

Sub enviar e-mail()

Set objeto_outlook = CreateObject ("Outlook.Application")

Set Email = objeto_outlook.createitem(o)

email.display

email.to = Cells(2,2) .value

email.cc = Cells (5,2) .value

Email. Subject = "Controle de Novas Locadoras Acima de US$K"

Dim CaminhoArquivo As String

CaminhoArquivo = ThisWorkbook.Path & "\\INATACSN\Frotista_Single\ Controle Clientes Locadoras_vFinal2023.xlsm"

End Sub 

 

(adendo: é possivel criar uma programação para que a macro envie isso sozinha? sem ter que apertar botão? meio que programar ela para por exemplo toda segunda as 17 enviar essa planilha)?