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)?

Bom dia! estou desenvolvendo um projeto no meu trabalho, onde eu preciso excluir contratos com mais de 30 dias. desenvolvi esse codigo, porém não to conseguindo criar uma logica para isso. segue o codigo: Sub excluir_linhas Dim Linha As Long Application.ScreenUpdating = False Whit Planilha 3 (que é a planilha que estou trabalhando) For Linha = .Ceels (.Rows.count, "i").End(xlUp).Row to 2 step -1 (aqui que esta a dificuldade) If .Cells(Linha, "i") (como eu colocaria, se tem mais que 30 dias excluir?) .Rows(linha) .Delete End If Next Linha End With Application.ScreenUpdating = True End Sub

Você precisaria do código completo ou somente da parte do anexo?

Quem puder me ajudar ficarei eternamente agradecida, estou quase finalizando um VBA, ele faz o email anexa tudo como eu preciso, porém são emails diferentes para clientes diferentes então eu precisaria que a macro fosse programada para enviar anexo do cliente 1 para o cliente 1 cliente 2 para o 2 e assim sucessivamente. Ate o momento eu consegui ate colocar o anexo no email porém o anexo do cleinte 1 ta subindo para todos os outros 40 clientes e eu queria achar uma forma de mudar isso, como eu faço para que o cliente 2 receba o anexo 2 e o cliente 40 receba o anexo 40?