Boa noite, pessoa preciso de uma grande ajuda: Tenho um código em VBA que salva os arquivos anexados caso ele seja um XML, enfim o código funciona no Outlook 2010, ja no 2007 no qual ele ficará instalado e configurado ele executou apenas a primeira vez,
ao reiniciar a máquina o código parou de funcionar: Fui em habilitar macro esta tudo ok, alguém passou por esta situação ou tem alguma solução para o problema?
EU COLOQUEI O CÓDIGO EM MODO DE EXECUÇÃO AUTOMÁTICA AO RECEBER UMA E-MAIL : FERRAMENTAS > REGRAS E ALERTAS > NOVO EMAIL > EXECUTAR SCRIPT
Public Sub SalvarAnexo (Item as MailItem)
Dim Atmt As Attachment
Dim FileName As String
For Each Atmt In Item.Attachements
if Rigth (Atmt.FileName, 3) = "xml" Then
FileName = "D:\" & Atmt.FileName
Atmt.SaveAsFile FileName
End if
End Sub