none
VBA OUTLOOK - SCRIPT EXECUTA APENAS UMA VEZ RRS feed

  • Pergunta

  • Boa noite, pessoa preciso de uma grande ajuda: Tenho um código em VBA que salva os arquivos anexados caso ele seja um XML, enfim o código funciona no Outlook 2010, ja no 2007 no qual ele ficará instalado e configurado ele executou apenas a primeira vez, ao reiniciar a máquina o código parou de funcionar: Fui em habilitar macro esta tudo ok, alguém passou por esta situação ou tem alguma solução para o problema?

    EU COLOQUEI O CÓDIGO EM MODO DE EXECUÇÃO AUTOMÁTICA AO RECEBER UMA E-MAIL : FERRAMENTAS > REGRAS E ALERTAS > NOVO EMAIL > EXECUTAR SCRIPT  

    Public Sub SalvarAnexo (Item as MailItem)

    Dim Atmt As Attachment
    Dim FileName As String

    For Each Atmt In Item.Attachements

    if Rigth (Atmt.FileName, 3) = "xml" Then

    FileName = "D:\" & Atmt.FileName
    Atmt.SaveAsFile FileName

    End if

    End Sub

    terça-feira, 30 de junho de 2015 00:20

Todas as Respostas