Boa Tarde, Pessoal
Estou tentando rodar uma macro no Outlook 2013 para mandar anexos de email de possuam arquivos XML para um pasta na rede ou local, porém nas primeiras tentativas a macro estava dando erro de execução 424, creio que era as linhas em branco que deixei nas
linhas de comando, agora ele esta apresentado o erro tempo de execução 91. Esta maquina já tinha esta macro mas acabou dando erro pois acho que perdeu o caminha apontado, e a pessoal ainda foi e apagou a macro inteira estou tentando refazer-la.
Alguém pode me ajudar com essa macro, segue abaixo.
Public Sub SalvarAnexo(Item As MailItem)
Dim Atmt As Attachment
Dim FileName As String
For Each Atmt In Item.Attachments
If Right(Atmt.FileName, 3) = "xml" Then
FileName = "C:\Users\Julio\Documents\SALVANDO_XML\" & Format(Item.CreationTime, "dd-mm-yyyy") & Atmt.FileName
Atmt.SaveAsFile FileName
End If
If Right(Atmt.FileName, 3) = "XML" Then
FileName = "\\192.168.1.12\publica\XML\SALVANDO_XML\" & Format(Item.CreationTime, "dd-mm-yyyy") & Atmt.FileName
Atmt.SaveAsFile FileName
End If
Next Atmt
End Sub
Obrigado.