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




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, 


Nenhum comentário:

Postar um comentário

diHITT - Notícias