none
Erro no e-mail não salva o anexo RRS feed

  • Pergunta

  • 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

    quarta-feira, 19 de agosto de 2015 18:09

Todas as Respostas