none
Script não funciona com duas ou mais contas de Email no Outlook RRS feed

  • Pergunta

  • Tenho um scrip(macro) que criei para salvar automaticamente arquivos Excel em uma pasta do computador, isso funciona corretamente quando tem só uma conta de Email configurado no Outlook, mas quando tenho mais de uma conta configurada o script(macro) não é executado, alguém sabe me dizer o que pode ser ?

    Public Sub SalvarAnexo(Item As MailItem)
    
    
      Const arrayTam = 1 'Alterar o tamanho do array
      
      Dim tam As Integer
      Dim Atmt As Attachment
      
      tam = arrayTam
      Dim Filtro(arrayTam, 3) As String
        
      
      'Não esqueça de colocar '\' no final
      Filtro(4, 1) = "C:\Users\f513093\Documents\FLOG ADM\Produção Agências\"
      Filtro(4, 2) = "*FLOG Administrativo"
      Filtro(4, 3) = "*.xl*"
      
      
      For i = 1 To tam Step 1
      
      'MsgBox LCase(Item.Subject) & "=>" & LCase(Filtro(i, 2))
      
        If LCase(Item.Subject) Like LCase(Filtro(i, 2)) Then
        
        'MsgBox Filtro(i, 2)
        
          For Each Atmt In Item.Attachments
          
          'MsgBox Atmt.FileName
          
            If LCase(Atmt.FileName) Like LCase(Filtro(i, 3)) Then
              If Len(Dir(Filtro(i, 1), vbDirectory) & "") = 0 Then
                  MkDir Filtro(i, 1)
              End If
              'MsgBox Filtro(i, 1) & Atmt.FileName
              Atmt.SaveAsFile Filtro(i, 1) & Atmt.FileName
              
            End If
            
          Next Atmt
          
        End If
      
      Next i
      
    End Sub
    
    

    quinta-feira, 8 de junho de 2017 13:55