Erro no e-mail não salva o anexo

Question

Boa Tarde.

Meu e-mail não está mais salvando os arquivos XML que vem anexo, na pasta.

o que eu devo fazer.

segue meu script.

Public Sub ProcessarAnexo(Email As MailItem)
     Dim DiretorioAnexos As String
    
     DiretorioAnexos = "G:\ctr\Fretes pendentes importação"
    
     Dim MailID As String
     Dim Mail As Outlook.MailItem
    
     MailID = Email.EntryID
     Set Mail = Application.Session.GetItemFromID(MailID)
        
     For Each Anexo In Mail.Attachments
         If Right(Anexo.FileName, 3) = "xml" Then
         Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName
        
         End If
     Next
    
     Set Mail = Nothing
    
 End Sub

Answer 1

Aparece alguma mensagem de erro ?