✔ Programação GLOBAL®: VBA Outlook - Acompanhando Projeto em Dashboard no Excel - Tracking Outlook emails in Excel dashboard

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