A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub cmdRefresh_click() Dim olApp As Outlook.Application Dim olNs As Outlook.NameSpace Dim strFolderPath As String DoCmd.SetWarnings (False) DoCmd.RunSQL "Delete * from LastWeek" DoCmd.SetWarnings (True) Dim RS As New ADODB.Recordset RS.Open "Emails", CurrentProject.Connection, adOpenDynamic, adLockOptimistic Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Dim olFldr As Outlook.MAPIFolder Set olFldr = olNs.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Transactions") Call ProcessFolder(olFldr) End Sub Sub ProcessFolder(StartFolder As MAPIFolder) Dim objFolder As Outlook.MAPIFolder Dim objItem As Object Dim objEmail As MailItem Dim mailObject As Object Dim dtReceived As Date Dim strSubject As String On Error Resume Next Set objApp1 = Outlook.Application Set objNS1 = objApp1.GetNamespace("MAPI") Dim RS As New ADODB.Recordset RS.Open "LastWeek", CurrentProject.Connection, adOpenDynamic, adLockOptimistic For Each objItem In StartFolder.Items '.Folders strSubject = objItem.Subject dtReceived = CDate(objItem.Received) If (InStr(1, strSubject, "Clothes;") > 0) Or _ (InStr(1, strSubject, "Shoes") > 0) Then With RS .AddNew !Importance = objItem.Importance !Subject = objItem.Subject !from = objItem.SenderName !To = objItem.To ' ![Normalized Subject] = objItem.[Normalized Subject] !Received = objItem.Received .Update End With End If Next For Each objFolder In StartFolder.Folders Call ProcessFolder(objFolder) Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|split data by day||21||35|
|Merge two Google Chrome Bookmark files or convert Excel list into an HTML file||3||35|
|Create simple VB.net Add-in for Excel in Office 365||2||26|