VBA Outlook - Acompanhando Projeto em Dashboard no Excel - Tracking Outlook emails in Excel dashboard

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Estou desenvolvendo um Dashboard no MS Excel que monitora as atividades operacionais diárias do meu Time.

Cada uma das tarefas desenvolvidas enviam uma série de e-mails por dia com um cabeçalho específico e alguns documentos anexados.

Ao receber cada um destes e-mails preciso checar a minha pasta "Business Management\MI" que criei no Outlook. Fiz uma regra que captura todos os e-mais recebidos e os coloca na pasta.

Todavia, preciso que o meu Dashboard, no MS Excel, mostre-me em tempo real, um resumo das atividades que vem sendo implementadas, atualizando-me regularmente.

Por examplo, os emails na minha pasta MI podem ser:

Subject: Email A - Received: Qui 15/07/2013 10:12

Subject: Email B - Received: Qui 15/07/2013 09:36

Subject: Email C - Received: Qua 14/07/2013 14:57

Subject: Email A - Received: Qua 14/07/2013 14:30

Subject: Email D - Received: Qua 14/07/2013 13:52

Preciso que o meu Dashboard sumarize tudo, mostrando-me assim:

Quinta 15 Julho 2013

Email A: Enviado as 10:12

Email B: Enviado as 9:36

Email C: Não enviou nada ainda

Email D: Não enviou nada ainda

Desse modo, posso apenas bater os olhos no meu Dashboard e identificar quem desenvolveu as atividades, e quem não desenvolveu nada.

Sub Check_emails() 

    Dim objNS As NameSpace 

    Dim objInbox As MAPIFolder 

    Dim objMyFolder As MAPIFolder 

    Dim objItem As MailItem      

     

    Set objNS = objOL.GetNamespace("MAPI") 

     

     ' Encontra a pasta correta

    Set objInbox = objNS.GetDefaultFolder(olFolderInbox) 

    Set objMyFolder = objInbox.Folders("Business Management") 

    Set objMyFolder = objMyFolder.Folders("MI") 

     

    For Each objItem In objMyFolder.Items 

        With objItem 

             ' O email foi enviado hj?

            If Format(.SentOn, "yyyymmdd") = Format(Date, "yyyymmdd") Then 

                 ' Testa a linha Subject.

                 ' you have not indicated what you want to have happen in Excel, or provided

                 ' a sample workbook, so this just displays a message

                Select Case .Subject 

                Case "Sinalizando Término da MI - " & Text(WORKDAY(TODAY(), -1), "dd/mm/yy") 

                    MsgBox .Subject & "Enviado as " & Format (.ReceivedTime, "hh:mm") 

                     

                Case "Acompanhando as Notas de Serviço " & Text(WORKDAY(TODAY(), -1), "dd/mm/yy") 

                    MsgBox .Subject & "Enviado as " & Format (.ReceivedTime, "hh:mm") 

                     

                Case "Acompanhamento da Performance " & Text(WORKDAY(TODAY(), -1), "dd/mm/yy") 

                    MsgBox .Subject & "Enviado as " & Format (.ReceivedTime, "hh:mm") 

                     

                End Select 

            End If 

        End With 

    Next objItem 

End Sub 

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Outlook, schedule, dashboard, excel,