✔ Programação GLOBAL®: VBA Access

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Insira todos os seus e-mail no seu banco de dados.

Private Sub ReadInboxInsertDB()



Dim TempRst As DAO.Recordset

Dim Rst As DAO.Recordset

Dim OlApp As Outlook.Application

Dim Inbox As Outlook.MAPIFolder

Dim InboxItems As Outlook.Items

Dim Mailobject As Object

Dim db As DAO.Database

Dim dealer As Integer

Set db = CurrentDb

Set OlApp = CreateObject("Outlook.Application")

Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)

Set TempRst = CurrentDb.OpenRecordset("TBL_MAIL")

With TempRst

.MoveFirst

End With



Set InboxItems = Inbox.Items

For Each Mailobject In InboxItems

If Mailobject.UnRead Then

With TempRst

If Mailobject.Subject = "A&A" Or Mailobject.Subject = "InAnyPlace" Then

.AddNew

Let !Subject = Mailobject.Subject

  Let !from = Mailobject.SenderName

  Let !To = Mailobject.To

  Let !Body = Mailobject.Body

  Let !DateSent = Mailobject.SentOn

.Update

  Let Mailobject.UnRead = False

End If

End With

End If

Next

Set OlApp = Nothing

Set Inbox = Nothing

Set InboxItems = Nothing

Set Mailobject = Nothing

Set TempRst = Nothing

End Sub