Pesquisar na Comunidade

Olá, bom dia Gente! Eu tenho um código VBA que verifica os anexos dos e-mail e dependendo dos títulos do arquivo ele salva em uma pasta específica, essa macro era ativada através de uma regra de filtro do Próprio Outlook. ele funcionava perfeitamente até formatar meu computador, depois de reinstalar o Outlook ele não permite mais eu adicionar uma macro na regra de chegada do E-mail. Todas as vezes que tento adicionar a regra ele da o aviso "Esta regra não está disponível no modo atual". Já alterei os níveis de permissão de macros do Outlook e nada. Vendo em outros Foruns vi pessoas tendo o mesmo problema e não conseguindo resolver. Queria saber se alguém sabe como mudar essa configuração do outLook ou ao menos sabe uma forma de adicionar uma acionamento automática para cada e-mail que chega sem precisar usar as regras nativas no outlook.

Estou com um problema, eu estou com um código que guarda os arquivos anexados do Outlook, XML, PDF e outras extensões se quiser, mas preciso de uma outra coisa; No momento que chega um XML eu preciso que ele antes do arquivo chegue a pasta designada ele seja convertido em TXT Consegue me ajudar??? Resumindo Quando o XML chega no e-mail o codigo vai converter ele para TXT e salva o txt na pasta e não consegui resolver, irei partilhar meu codigo. Este Codigo pega os Anexos que recebemos no Outlook e guarda em uma pasta da Rede; Public Sub SalvaAnexos(Email As MailItem) Dim DiretorioAnexos As String 'aqui voce altera o diretorio que vai salvar os anexos DiretorioAnexos = "\\111.111.111.111\NFE\XML" Dim MailID As String Dim Mail As Outlook.MailItem MailID = Email.EntryID Set Mail = Application.Session.GetItemFromID(MailID) For Each Anexo In Mail.Attachments 'Para adicionar outra extenção so colocar mais um if If Right(Anexo.FileName, 3) = "xml" Then Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName End If If Right(Anexo.FileName, 3) = "pdf" Then Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName End If 'Creditos Wandarley Pereira © Next Set Mail = Nothing End Sub Se Alguém puder me ajudar agradeço