none
Alterar Script VBA para mover o e-mail para outra pasta. OUTLOOK 2010 RRS feed

  • Pergunta

  • Olá,

    Estou com o seguinte problema, tenho um script que salva arquivos xml e encaminha esse email automaticamente caso houver um arquivo xml e pdf.

    Gostaria que neste mesmo script, após enviar o e-mail ele move-se este email para uma pasta chamada "arquivado".

    Coloquei um trecho de código para isso mas não esta funcionando.

    Alguem pode me ajudar?

    Segue os anexos

    Public Sub ProcessarAnexo(email As MailItem)
        Dim DiretorioAnexos As String
        DiretorioAnexos = "C:\Users\gabriel\Documents\xmlepdf\"
    
        Dim MailID As String
        Dim Mail As Outlook.MailItem
         
        MailID = email.EntryID
        Set Mail = Application.Session.GetItemFromID(MailID)
     
        flagXML = False
        flagPDF = False
       'SALVAR ANEXO XML
       'ENVIAR SE HOUVER PDF E XML
        For Each anexo In Mail.Attachments
        
            If Right(anexo.FileName, 3) = "xml" Or Right(anexo.FileName, 3) = "XML" Then
                flagXML = True
                anexo.SaveAsFile DiretorioAnexos & anexo.FileName
            End If
            
            If Right(anexo.FileName, 3) = "pdf" Or Right(anexo.FileName, 3) = "PDF" Then
                flagPDF = True
            End If
            
        Next
        
        'in case that there are multiple pdf attachemnts in the mail
        'use a flag to mark to forward the mails istead of forwarding the mail directly
        Dim ForWardMail As Outlook.MailItem
        If (flagXML And flagPDF) Then
            Set ForWardMail = Mail.Forward
            With ForWardMail
            .Recipients.Add "gabriel.alvesferreira@gmail.com"
            .Recipients.Add "gabriel@acosvic.com.br"
            .Display
            'send with send the mail directly
            '
            .Send
            End With
    'MOVER O EMAIL DE PASTA
        Mail.Move (Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Arquivado"))
        
        End If
    
        
        Set Mail = Nothing
    End Sub
    

    segunda-feira, 11 de junho de 2018 12:45

Respostas

  • Já não sei como ajudar. Se ninguém o puder, você poderia tentar criar uma thread  no fórum de língua inglesa (em inglês, é claro). As chances de esbarrar num especialista, por lá, será bem maior.


    https://inframicrosoft.wordpress.com/


    terça-feira, 12 de junho de 2018 11:44

Todas as Respostas