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