{"id":148,"date":"2021-10-20T16:54:14","date_gmt":"2021-10-20T16:54:14","guid":{"rendered":"https:\/\/ouritsource.com\/blog\/?p=148"},"modified":"2021-10-20T16:54:14","modified_gmt":"2021-10-20T16:54:14","slug":"provide-history-of-emails-received","status":"publish","type":"post","link":"https:\/\/ouritsource.com\/blog\/provide-history-of-emails-received\/","title":{"rendered":"Provide History of Emails Received"},"content":{"rendered":"\n
\"\"<\/figure>\n\n\n\n
\n\/\/ index.php\n\/\/ Last Modified: 09\/30\/2021\n\/\/ Page to show email count of Shared Mailboxes\n\/\/ Author: Dennis DeOcampo\n\n<?php\n\n?> \n<HTML>\n<html>\n\n<HEAD>\n    <STYLE>\n    \n    .Row1\n    {\n        font-family: arial,helvetica,sans-serif; \n        font-size: 16px; \n        padding: 2px;\n    }\n    \n    .Row2\n    {\n        font-family: arial,helvetica,sans-serif; \n        font-size: 16px; \n        background-color:#90ee90;\n        padding: 2px;\n\n    }\n    \n    .Header1\n    {\n\t    font-family: arial,helvetica,sans-serif; \n\t    font-size: 16px; \n\t    font-weight:bold;\n        padding: 2px;\n\n    }\n    .Data1\n    {\n        font-family: arial,helvetica,sans-serif; \n\t    font-size: 16px; \n        padding: 2px;\n\n    }\n    .columnH1 \n    {\n     text-align: center; \n    background-color: #0000cc;\n    color: #ffffff;\n    padding: 8px;\n \n    }\n    \n    .columnH \n    {\n     text-align: right; \n     border-bottom: 1px #333333 solid;\n    }\n    .totalH \n    {\n     text-align: right; \n    background-color:yellow;\n      font-weight: bold;    \n    }\n     <\/STYLE>\n <link rel=\"stylesheet\" href=\"https:\/\/stackpath.bootstrapcdn.com\/bootstrap\/4.3.1\/css\/bootstrap.min.css\" integrity=\"sha384-ggOyR0iXCbMQv3Xipma34MD+dH\/1fQ784\/j6cY\/iJTQUOhcWr7x9JvoRxT2MZw1T\" crossorigin=\"anonymous\">\n <script src=\"https:\/\/code.jquery.com\/jquery-3.3.1.slim.min.js\" integrity=\"sha384-q8i\/X+965DzO0rT7abK41JStQIAqVgRVzpbzo5smXKp4YfRvH+8abtTE1Pi6jizo\" crossorigin=\"anonymous\"><\/script>\n<script src=\"https:\/\/cdnjs.cloudflare.com\/ajax\/libs\/popper.js\/1.14.7\/umd\/popper.min.js\" integrity=\"sha384-UO2eT0CpHqdSJQ6hJty5KVphtPhzWj9WO1clHTMGa3JDZwrnQq4sF86dIHNDz0W1\" crossorigin=\"anonymous\"><\/script>\n<script src=\"https:\/\/stackpath.bootstrapcdn.com\/bootstrap\/4.3.1\/js\/bootstrap.min.js\" integrity=\"sha384-JjSmVgyd0p3pXB1rRibZUAYoIIy6OrQ6VrjIEaFf\/nJGzIxFDsf4x0xIM+B07jRM\" crossorigin=\"anonymous\"><\/script>\n\n<\/HEAD>       \n<BODY>\n\n<H3 style='text-align:center;'>Shared Mailbox Count History<\/H3>\n\n<?php\n\n\n$dateM = date('m');\n$dateD = date('d');\n$dateY = date('Y'); \n$dateL = date('l');\n\n\necho \"<div class='container'>\";\necho \"<table id='main' border=0>\";\necho \"<tr>\";\necho \"<td>\";\n\n\n#############################\n\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>&nbsp;<br>&nbsp;<\/td><\/tr>\";\n\ngetRowName();\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n\n\n###############################\n\/\/-14\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-14 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-13 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n##################################\n\/\/-13\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-13 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-12 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-12\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-12 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-11 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-11\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-11 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-10 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-10\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-10 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-9 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-9\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-9 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-8 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-8\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-8 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-7 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-7\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-7 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-6 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-6\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-6 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-5 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-5\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-5 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-4 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-4\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-4 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-3 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n#################################\n\/\/-3\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-3 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-2 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n###################################\n\/\/-2\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-2 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-1 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n####################################\n\/\/-1\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-1 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('-0 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n####################################\n\/\/0\n$currentdate = date('Y-m-d');\n$dateRangeFrom = strtotime('-0 day', strtotime($currentdate));\n$dateRangeFrom = date('Y-m-d', $dateRangeFrom);\n$dateRangeTo = strtotime('+1 day', strtotime($currentdate));\n$dateRangeTo = date('Y-m-d', $dateRangeTo);\n$newDate = date(\"m\/d\", strtotime($dateRangeFrom));  \n$day = date(\"l\",strtotime($dateRangeFrom));\n$day = substr($day,0,3);\necho \"<table>\";\necho \"<tr><td valign='top' class='columnH1'>$day <br> $newDate<\/td><\/tr>\";\ngetDD($dateRangeFrom,$dateRangeTo);\necho \"<\/table>\";\necho \"<\/td><td valign='top'>\";\n\n####################################\n\n\/\/row names\nfunction getRowName()\n{\n\n\/\/orders\necho \"<tr><td class='columnH'>ordersNE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>ordersFSWest<\/td><\/tr>\";\necho \"<tr><td class='totalH'>Orders Total:<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/samples\necho \"<tr><td class='columnH'>samplesMW<\/td><\/tr>\";\necho \"<tr><td class='columnH'>samplesWest<\/td><\/tr>\";\necho \"<tr><td class='columnH'>samplesNE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>samplesSE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>samplesCentral<\/td><\/tr>\";\necho \"<tr><td class='totalH'>Samples Total:<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/clientsBB\n\/\/echo \"<tr><td class='columnH'>clientBillingCentral<\/td><\/tr>\";\n\/\/echo \"<tr><td class='columnH'>clientBillingMW<\/td><\/tr>\";\n\/\/echo \"<tr><td class='columnH'>clientBillingNE<\/td><\/tr>\";\n\/\/echo \"<tr><td class='columnH'>clientBillingSE<\/td><\/tr>\";\n\/\/echo \"<tr><td class='columnH'>clientBillingWest<\/td><\/tr>\";\n\/\/echo \"<tr><td class='totalH'>Client Billing Total: <\/td><\/tr>\";\n\/\/echo \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/BBacks\necho \"<tr><td class='columnH'>BillBacksFSNE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>BillBacksFSSE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>BillBacks_MidWest_FS<\/td><\/tr>\";\necho \"<tr><td class='columnH'>BillBacksFSWest<\/td><\/tr>\";\necho \"<tr><td class='columnH'>BillBacksFSCentral<\/td><\/tr>\";\necho \"<tr><td class='totalH'>Billbacks Total <\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/Programss\necho \"<tr><td class='columnH'>ProgramsFSSE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>ProgramsFSNE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>ProgramsFSMidWest<\/td><\/tr>\";\necho \"<tr><td class='columnH'>ProgramsFSCentral<\/td><\/tr>\";\necho \"<tr><td class='columnH'>ProgramsFSWest<\/td><\/tr>\";\necho \"<tr><td class='totalH'>Programs Total: <\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/FSComm\necho \"<tr><td class='columnH'>FSCommWest<\/td><\/tr>\";\necho \"<tr><td class='columnH'>FSCommEast<\/td><\/tr>\";\necho \"<tr><td class='columnH'>FoodServiceCommunications<\/td><\/tr>\";\necho \"<tr><td class='totalH'>Comm Total: <\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/fax\necho \"<tr><td class='columnH'>AcostaFSFaxWest<\/td><\/tr>\";\necho \"<tr><td class='columnH'>AcostaFSFaxCentral<\/td><\/tr>\";\necho \"<tr><td class='columnH'>AcostaFSFax<\/td><\/tr>\";\necho \"<tr><td class='columnH'>AcostaFSFaxMW<\/td><\/tr>\";\necho \"<tr><td class='columnH'>AcostaFSFaxNE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>AcostaFSFaxSE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>AcostaCStoneFax<\/td><\/tr>\";\necho \"<tr><td class='totalH'>Faxes Total: <\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/Misc\necho \"<tr><td class='columnH'>DeductionsFS<\/td><\/tr>\";\necho \"<tr><td class='columnH'>PricingFS<\/td><\/tr>\";\necho \"<tr><td class='columnH'>BidsSE<\/td><\/tr>\";\necho \"<tr><td class='columnH'>DocLibrary<\/td><\/tr>\";\necho \"<tr><td class='columnH'>FSMDM<\/td><\/tr>\";\necho \"<tr><td class='columnH'>FSSampleBillBacks<\/td><\/tr>\";\necho \"<tr><td class='columnH'>QualityFS<\/td><\/tr>\";\necho \"<tr><td class='totalH'>Misc Total: <\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/Cornerstone\necho \"<tr><td class='columnH'>CornerstoneSamples<\/td><\/tr>\";\necho \"<tr><td class='columnH'>CornerstoneCS<\/td><\/tr>\";\necho \"<tr><td class='totalH'>Cornerstone Total: <\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\n\n} \n\nfunction getDD($from,$to)\n{\n\n$orders = array(\"ordersNE\",\"ordersFSWest\");\n$samples = array(\"samplesMW\",\"samplesWest\",\"samplesNE\",\"samplesSE\",\"samplesCentral\");\n$clientBill = array(\"clientBillingCentral\",\"clientBillingMW\",\"clientBillingNE\",\"clientBillingSE\",\"clientBillingWest\");\n$billBacks = array(\"BillBacksFSNE\",\"BillBacksFSSE\",\"BillBacks_MidWest_FS\",\"BillBacksFSWest\",\"BillBacksFSCentral\");\n$programs = array(\"ProgramsFSSE\",\"ProgramsFSNE\",\"ProgramsFSMidWest\",\"ProgramsFSCentral\",\"ProgramsFSWest\");\n$fscomm = array(\"FSCommWest\",\"FSCommEast\",\"FoodServiceCommunications\");\n$fax = array(\"AcostaFSFaxWest\",\"AcostaFSFaxCentral\",\"AcostaFSFax\",\"AcostaFSFaxMW\",\"AcostaFSFaxNE\",\"AcostaFSFaxSE\",\"AcostaCStoneFax\");\n$misc = array(\"DeductionsFS\",\"PricingFS\",\"BidsSE\",\"DocLibrary\",\"FSMDM\",\"FSSampleBillBacks\",\"QualityFS\");\n$cornerstone = array(\"CornerstoneSamples\",\"CornerstoneCS\");\n\/\/----------\n    foreach($orders as $value) {\n        $val = getDay($from,$to,\"$daynum\",\"$value@acosta.com\");\n        $$value = $val;\n        echo \"<tr style='text-align:right; border-bottom:1px solid #333333;'><td>\" . $$value . \"<\/td><\/tr>\";\n        $orderTotal = $orderTotal + $$value++;\n    }\necho \"<tr style='text-align:right;'><td class='totalH'>$orderTotal<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/-------------------\n    foreach($samples as $value) {\n        $val = getDay($from,$to,\"$daynum\",\"$value@acosta.com\");\n        $$value = $val;\n        echo \"<tr style='text-align:right; border-bottom:1px solid #333333;'><td>\" . $$value . \"<\/td><\/tr>\";\n        $sampleTotal = $sampleTotal + $$value++;\n    }\necho \"<tr style='text-align:right'><td class='totalH'>$sampleTotal<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\n\/\/----------------------\n\/\/  foreach($clientBill as $value) {\n\/\/       $val = getDay($from,$to,\"$daynum\",\"$value@acosta.com\");\n\/\/        $$value = $val;\n\/\/        echo \"<tr style='text-align:right; border-bottom:1px solid #333333;'><td>\" . $$value . \"<\/td><\/tr>\";\n\/\/        $cbTotal = $cbTotal + $$value++;\n\/\/    }\n\/\/ echo \"<tr style='text-align:right'><td class='totalH'>$cbTotal<\/td><\/tr>\";\n\/\/ echo \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/------------------------------------\n    foreach($billBacks as $value) {\n        $val = getDay($from,$to,\"$daynum\",\"$value@acosta.com\");\n        $$value = $val;\n        echo \"<tr style='text-align:right; border-bottom:1px solid #333333;'><td>\" . $$value . \"<\/td><\/tr>\";\n        $bbTotal = $bbTotal + $$value++;\n    }\necho \"<tr style='text-align:right'><td class='totalH'>$bbTotal<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/------------------------------\n    foreach($programs as $value) {\n        $val = getDay($from,$to,\"$daynum\",\"$value@acosta.com\");\n        $$value = $val;\n        echo \"<tr style='text-align:right; border-bottom:1px solid #333333;'><td>\" . $$value . \"<\/td><\/tr>\";\n        $pgTotal = $pgTotal + $$value++;\n    }\necho \"<tr style='text-align:right'><td class='totalH'>$pgTotal<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/------------------------------------\n    foreach($fscomm as $value) {\n        $val = getDay($from,$to,\"$daynum\",\"$value@acosta.com\");\n        $$value = $val;\n        echo \"<tr style='text-align:right; border-bottom:1px solid #333333;'><td>\" . $$value . \"<\/td><\/tr>\";\n        $fscTotal = $fscTotal + $$value++;\n    }\necho \"<tr style='text-align:right'><td class='totalH'>$fscTotal<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/---------------------\n    foreach($fax as $value) {\n        $val = getDay($from,$to,\"$daynum\",\"$value@acosta.com\");\n        $$value = $val;\n        echo \"<tr style='text-align:right; border-bottom:1px solid #333333;'><td>\" . $$value . \"<\/td><\/tr>\";\n        $fxTotal = $fxTotal + $$value++;\n    }\necho \"<tr style='text-align:right' class='totalH'><td>$fxTotal<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/-------------------------\n    foreach($misc as $value) {\n        $val = getDay($from,$to,\"$daynum\",\"$value@acosta.com\");\n        $$value = $val;\n        echo \"<tr style='text-align:right; border-bottom:1px solid #333333;'><td>\" . $$value . \"<\/td><\/tr>\";\n        $miscTotal = $miscTotal + $$value++;\n    }\necho \"<tr style='text-align:right'><td class='totalH'>$miscTotal<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\/\/----------------------\n    foreach($cornerstone as $value) {\n        $val = getDay($from,$to,\"$daynum\",\"$value@acosta.com\");\n        $$value = $val;\n        echo \"<tr style='text-align:right; border-bottom:1px solid #333333;'><td>\" . $$value . \"<\/td><\/tr>\";\n        $csTotal = $csTotal + $$value++;\n    }\necho \"<tr style='text-align:right'><td class='totalH'>$csTotal<\/td><\/tr>\";\necho \"<tr><td>&nbsp;<\/td><\/tr>\";\n\n\n}\n\n\nfunction getDay($from,$to,$daynum,$em)\n{\n    $newdformat = strtotime(\"$from\");\n    $dformat = date('m\/d\/y',$newdformat);\n    $day = date('D',$newdformat);\n    include(\"connect.php\");\n    $strSQL = \"SELECT count(pid) as total from emailHistory where transdate between '$from' AND '$to' AND toField = '$em';\";\n   \n    \/\/Initiates SQL query\n    $Total = 0;\n    $result = mysqli_query($connect,$strSQL);\n\n    if (mysqli_num_rows($result) > 0)\n    {\n        while ($row = mysqli_fetch_array($result))\n        {\n            $Total = $row['total'];\n        }   \n    }\n    return $Total;\n\n}\n\necho \"<\/td>\";\necho \"<\/tr>\";\necho \"<\/table>\";\necho \"<\/div>\";\n\n\n?>\n\n\n        \n            <\/BODY>\n<\/HTML>\n\n\nVBScript to icrement email count as email is received on each mailbox:\n<\/code><\/pre>\n\n\n\n
' Dennis DeOcampo\r\n' dennis@ourITSource.com\r\n' Date: 12\/22\/2019\r\n' Latest Update: 01\/08\/2020\r\n' Summary: This program counts the number of email that arrives on each mailbox by sending email information to an online mySQL database.\r\n\r\nOption Explicit\r\n \r\nPrivate Monitor1 As Outlook.MAPIFolder\r\nPrivate Monitor2 As Outlook.MAPIFolder\r\nPrivate Monitor3 As Outlook.MAPIFolder\r\nPrivate Monitor4 As Outlook.MAPIFolder\r\nPrivate Monitor5 As Outlook.MAPIFolder\r\nPrivate Monitor6 As Outlook.MAPIFolder\r\nPrivate Monitor7 As Outlook.MAPIFolder\r\nPrivate Monitor8 As Outlook.MAPIFolder\r\nPrivate Monitor9 As Outlook.MAPIFolder\r\nPrivate Monitor10 As Outlook.MAPIFolder\r\nPrivate Monitor11 As Outlook.MAPIFolder\r\nPrivate Monitor12 As Outlook.MAPIFolder\r\nPrivate Monitor13 As Outlook.MAPIFolder\r\nPrivate Monitor14 As Outlook.MAPIFolder\r\nPrivate Monitor15 As Outlook.MAPIFolder\r\nPrivate Monitor16 As Outlook.MAPIFolder\r\nPrivate Monitor17 As Outlook.MAPIFolder\r\nPrivate Monitor18 As Outlook.MAPIFolder\r\nPrivate Monitor19 As Outlook.MAPIFolder\r\nPrivate Monitor20 As Outlook.MAPIFolder\r\nPrivate Monitor21 As Outlook.MAPIFolder\r\nPrivate Monitor22 As Outlook.MAPIFolder\r\nPrivate Monitor23 As Outlook.MAPIFolder\r\nPrivate Monitor24 As Outlook.MAPIFolder\r\nPrivate Monitor25 As Outlook.MAPIFolder\r\nPrivate Monitor26 As Outlook.MAPIFolder\r\nPrivate Monitor27 As Outlook.MAPIFolder\r\nPrivate Monitor28 As Outlook.MAPIFolder\r\nPrivate Monitor29 As Outlook.MAPIFolder\r\nPrivate Monitor30 As Outlook.MAPIFolder\r\nPrivate Monitor31 As Outlook.MAPIFolder\r\nPrivate Monitor32 As Outlook.MAPIFolder\r\nPrivate Monitor33 As Outlook.MAPIFolder\r\nPrivate Monitor34 As Outlook.MAPIFolder\r\nPrivate Monitor35 As Outlook.MAPIFolder\r\nPrivate Monitor36 As Outlook.MAPIFolder\r\nPrivate Monitor37 As Outlook.MAPIFolder\r\nPrivate Monitor38 As Outlook.MAPIFolder\r\nPrivate Monitor39 As Outlook.MAPIFolder\r\nPrivate Monitor40 As Outlook.MAPIFolder\r\nPrivate Monitor41 As Outlook.MAPIFolder\r\nPrivate Monitor42 As Outlook.MAPIFolder\r\nPrivate Monitor43 As Outlook.MAPIFolder\r\nPrivate Monitor44 As Outlook.MAPIFolder\r\nPrivate Monitor45 As Outlook.MAPIFolder\r\n'Private Monitor46 As Outlook.MAPIFolder\r\nPrivate Monitor47 As Outlook.MAPIFolder\r\nPrivate Monitor48 As Outlook.MAPIFolder\r\nPrivate Monitor49 As Outlook.MAPIFolder\r\nPrivate Monitor50 As Outlook.MAPIFolder\r\nPrivate Monitor51 As Outlook.MAPIFolder\r\n\r\n\r\nPrivate WithEvents Received1 As Outlook.Items\r\nPrivate WithEvents Received2 As Outlook.Items\r\nPrivate WithEvents Received3 As Outlook.Items\r\nPrivate WithEvents Received4 As Outlook.Items\r\nPrivate WithEvents Received5 As Outlook.Items\r\nPrivate WithEvents Received6 As Outlook.Items\r\nPrivate WithEvents Received7 As Outlook.Items\r\nPrivate WithEvents Received8 As Outlook.Items\r\nPrivate WithEvents Received9 As Outlook.Items\r\nPrivate WithEvents Received10 As Outlook.Items\r\nPrivate WithEvents Received11 As Outlook.Items\r\nPrivate WithEvents Received12 As Outlook.Items\r\nPrivate WithEvents Received13 As Outlook.Items\r\nPrivate WithEvents Received14 As Outlook.Items\r\nPrivate WithEvents Received15 As Outlook.Items\r\nPrivate WithEvents Received16 As Outlook.Items\r\nPrivate WithEvents Received17 As Outlook.Items\r\nPrivate WithEvents Received18 As Outlook.Items\r\nPrivate WithEvents Received19 As Outlook.Items\r\nPrivate WithEvents Received20 As Outlook.Items\r\nPrivate WithEvents Received21 As Outlook.Items\r\nPrivate WithEvents Received22 As Outlook.Items\r\nPrivate WithEvents Received23 As Outlook.Items\r\nPrivate WithEvents Received24 As Outlook.Items\r\nPrivate WithEvents Received25 As Outlook.Items\r\nPrivate WithEvents Received26 As Outlook.Items\r\nPrivate WithEvents Received27 As Outlook.Items\r\nPrivate WithEvents Received28 As Outlook.Items\r\nPrivate WithEvents Received29 As Outlook.Items\r\nPrivate WithEvents Received30 As Outlook.Items\r\nPrivate WithEvents Received31 As Outlook.Items\r\nPrivate WithEvents Received32 As Outlook.Items\r\nPrivate WithEvents Received33 As Outlook.Items\r\nPrivate WithEvents Received34 As Outlook.Items\r\nPrivate WithEvents Received35 As Outlook.Items\r\nPrivate WithEvents Received36 As Outlook.Items\r\nPrivate WithEvents Received37 As Outlook.Items\r\nPrivate WithEvents Received38 As Outlook.Items\r\nPrivate WithEvents Received39 As Outlook.Items\r\nPrivate WithEvents Received40 As Outlook.Items\r\nPrivate WithEvents Received41 As Outlook.Items\r\nPrivate WithEvents Received42 As Outlook.Items\r\nPrivate WithEvents Received43 As Outlook.Items\r\nPrivate WithEvents Received44 As Outlook.Items\r\nPrivate WithEvents Received45 As Outlook.Items\r\n'Private WithEvents Received46 As Outlook.Items\r\nPrivate WithEvents Received47 As Outlook.Items\r\nPrivate WithEvents Received48 As Outlook.Items\r\nPrivate WithEvents Received49 As Outlook.Items\r\nPrivate WithEvents Received50 As Outlook.Items\r\nPrivate WithEvents Received51 As Outlook.Items\r\n\r\nPrivate Sub Application_Startup()\r\n\r\n        Set Monitor1 = Application.GetNamespace(\"MAPI\").Folders(\"dvdeocampo@outlook.com\").Folders(\"Inbox\")\r\n        \r\n        Set Monitor2 = Application.GetNamespace(\"MAPI\").Folders(\"BillbacksFSSE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor3 = Application.GetNamespace(\"MAPI\").Folders(\"FSSampleBillBacks@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor4 = Application.GetNamespace(\"MAPI\").Folders(\"BillBacks_Midwest_FS@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor5 = Application.GetNamespace(\"MAPI\").Folders(\"BillbacksFSWest@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor6 = Application.GetNamespace(\"MAPI\").Folders(\"BillbacksFSCentral@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor7 = Application.GetNamespace(\"MAPI\").Folders(\"FSCommWest@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor8 = Application.GetNamespace(\"MAPI\").Folders(\"FSCommEast@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor9 = Application.GetNamespace(\"MAPI\").Folders(\"AcostaFSFaxWest@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor10 = Application.GetNamespace(\"MAPI\").Folders(\"AcostaFSFaxCentral@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor11 = Application.GetNamespace(\"MAPI\").Folders(\"AcostaFSFax@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor12 = Application.GetNamespace(\"MAPI\").Folders(\"AcostaFSFaxMW@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor13 = Application.GetNamespace(\"MAPI\").Folders(\"AcostaFSFaxNE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor14 = Application.GetNamespace(\"MAPI\").Folders(\"AcostaFSFaxSE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor15 = Application.GetNamespace(\"MAPI\").Folders(\"DeductionsFS@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor16 = Application.GetNamespace(\"MAPI\").Folders(\"PricingFS@acosta.com\").Folders(\"Inbox\")\r\n       \r\n        Set Monitor17 = Application.GetNamespace(\"MAPI\").Folders(\"ordersSE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor18 = Application.GetNamespace(\"MAPI\").Folders(\"ordersNE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor19 = Application.GetNamespace(\"MAPI\").Folders(\"ordersFSWest@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor20 = Application.GetNamespace(\"MAPI\").Folders(\"ordersFSMW@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor21 = Application.GetNamespace(\"MAPI\").Folders(\"ordersFSCentral@acosta.com\").Folders(\"Inbox\")\r\n\r\n        Set Monitor22 = Application.GetNamespace(\"MAPI\").Folders(\"samplesFL@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor23 = Application.GetNamespace(\"MAPI\").Folders(\"samplesMW@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor24 = Application.GetNamespace(\"MAPI\").Folders(\"samplesWest@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor25 = Application.GetNamespace(\"MAPI\").Folders(\"samplesNE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor26 = Application.GetNamespace(\"MAPI\").Folders(\"samplesSE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor27 = Application.GetNamespace(\"MAPI\").Folders(\"SamplesCentral@acosta.com\").Folders(\"Inbox\")\r\n \r\n        Set Monitor28 = Application.GetNamespace(\"MAPI\").Folders(\"Clientbillingcentral@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor29 = Application.GetNamespace(\"MAPI\").Folders(\"ClientbillingMW@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor30 = Application.GetNamespace(\"MAPI\").Folders(\"ClientbillingNE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor31 = Application.GetNamespace(\"MAPI\").Folders(\"ClientbillingSE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor32 = Application.GetNamespace(\"MAPI\").Folders(\"ClientbillingWest@acosta.com\").Folders(\"Inbox\")\r\n     \r\n        Set Monitor33 = Application.GetNamespace(\"MAPI\").Folders(\"ProgramsFSSE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor34 = Application.GetNamespace(\"MAPI\").Folders(\"ProgramsFSNE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor35 = Application.GetNamespace(\"MAPI\").Folders(\"ProgramsFSMidwest@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor36 = Application.GetNamespace(\"MAPI\").Folders(\"ProgramsFSCentral@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor37 = Application.GetNamespace(\"MAPI\").Folders(\"ProgramsFSWest@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor38 = Application.GetNamespace(\"MAPI\").Folders(\"BidsSE@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor39 = Application.GetNamespace(\"MAPI\").Folders(\"CornerStoneSamples@acosta.com\").Folders(\"Inbox\")\r\n        \r\n        Set Monitor40 = Application.GetNamespace(\"MAPI\").Folders(\"FoodServiceCommunications@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor41 = Application.GetNamespace(\"MAPI\").Folders(\"CornerStoneOPS@acosta.com\").Folders(\"Inbox\")\r\n       \r\n        Set Monitor42 = Application.GetNamespace(\"MAPI\").Folders(\"CornerStoneSales@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor43 = Application.GetNamespace(\"MAPI\").Folders(\"CornerStoneBids@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor44 = Application.GetNamespace(\"MAPI\").Folders(\"CornerStoneLC@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor45 = Application.GetNamespace(\"MAPI\").Folders(\"CornerStoneSamples@acosta.com\").Folders(\"Inbox\")\r\n        'Set Monitor46 = Application.GetNamespace(\"MAPI\").Folders(\"CornerStoneCS@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor47 = Application.GetNamespace(\"MAPI\").Folders(\"DocLibrary@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor48 = Application.GetNamespace(\"MAPI\").Folders(\"FSMDM@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor49 = Application.GetNamespace(\"MAPI\").Folders(\"acostacstonefax@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor50 = Application.GetNamespace(\"MAPI\").Folders(\"QualityFS@acosta.com\").Folders(\"Inbox\")\r\n        Set Monitor51 = Application.GetNamespace(\"MAPI\").Folders(\"BillbacksFSNE@acosta.com\").Folders(\"Inbox\")\r\n        \r\n       \r\n        Set Received1 = Monitor1.Items\r\n        Set Received2 = Monitor2.Items\r\n        Set Received3 = Monitor3.Items\r\n        Set Received4 = Monitor4.Items\r\n        Set Received5 = Monitor5.Items\r\n        Set Received6 = Monitor6.Items\r\n        Set Received7 = Monitor7.Items\r\n        Set Received8 = Monitor8.Items\r\n        Set Received9 = Monitor9.Items\r\n        Set Received10 = Monitor10.Items\r\n        Set Received11 = Monitor11.Items\r\n        Set Received12 = Monitor12.Items\r\n        Set Received13 = Monitor13.Items\r\n        Set Received14 = Monitor14.Items\r\n        Set Received15 = Monitor15.Items\r\n        Set Received16 = Monitor16.Items\r\n        Set Received17 = Monitor17.Items\r\n        Set Received18 = Monitor18.Items\r\n        Set Received19 = Monitor19.Items\r\n        Set Received20 = Monitor20.Items\r\n        Set Received21 = Monitor21.Items\r\n        Set Received22 = Monitor22.Items\r\n        Set Received23 = Monitor23.Items\r\n        Set Received24 = Monitor24.Items\r\n        Set Received25 = Monitor25.Items\r\n        Set Received26 = Monitor26.Items\r\n        Set Received27 = Monitor27.Items\r\n        Set Received28 = Monitor28.Items\r\n        Set Received29 = Monitor29.Items\r\n        Set Received30 = Monitor30.Items\r\n        Set Received31 = Monitor31.Items\r\n        Set Received32 = Monitor32.Items\r\n        Set Received33 = Monitor33.Items\r\n        Set Received34 = Monitor34.Items\r\n        Set Received35 = Monitor35.Items\r\n        Set Received36 = Monitor36.Items\r\n        Set Received37 = Monitor37.Items\r\n        Set Received38 = Monitor38.Items\r\n        Set Received39 = Monitor39.Items\r\n        Set Received40 = Monitor40.Items\r\n        Set Received41 = Monitor41.Items\r\n        Set Received42 = Monitor42.Items\r\n        Set Received43 = Monitor43.Items\r\n        Set Received44 = Monitor44.Items\r\n        Set Received45 = Monitor45.Items\r\n        'Set Received46 = Monitor46.Items\r\n        Set Received47 = Monitor47.Items\r\n        Set Received48 = Monitor48.Items\r\n        Set Received49 = Monitor49.Items\r\n        Set Received50 = Monitor50.Items\r\n        Set Received51 = Monitor51.Items\r\n   End Sub\r\n\r\n'----------------------------------\r\nPrivate Sub Received1_ItemAdd(ByVal Item As Object)\r\n   ' Dim Sender As String\r\n   ' Sender = Item.SenderEmailAddress\r\n   ' Dim Subject As String\r\n   ' Subject = Item.Subject\r\n   ' Subject = Replace(Subject, \"\\'\", \"\")\r\n   ' Subject = Replace(Subject, \"'\", \"\")\r\n\r\n    'MsgBox \"New mail from \" & Item.SenderName & \" in \" & Monitor1.Parent.Name\r\n    'Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"dvdeocampo@outlook.com\")\r\nEnd Sub\r\n \r\n'----------------------------------\r\n Private Sub Received2_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"BillBacksFSSE@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received3_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"FSSampleBillBacks@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received4_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"BillBacks_Midwest_FS@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received5_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"BillBacksFSWest@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received6_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"BillBacksFSCentral@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received7_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"FSCommWest@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received8_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"FSCommEast@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received9_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"AcostaFSFaxWest@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received10_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"AcostaFSFaxCentral@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received11_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"AcostaFSFax@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received12_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"AcostaFSFaxMW@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received13_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"AcostaFSFaxNE@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received14_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"AcostaFSFaxSE@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received15_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n    Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"DeductionsFS@acosta.com\")\r\n End Sub\r\n'----------------------------------\r\n Private Sub Received16_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"PricingFS@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received17_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"OrdersSE@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received18_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"OrdersNE@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received19_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"OrdersFSWest@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received20_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"OrdersFSMW@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received21_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"OrdersFSCentral@acosta.com\")\r\n End Sub\r\n  \r\n  Private Sub Received22_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"samplesFL@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received23_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"samplesMW@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received24_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"samplesWest@acosta.com\")\r\n End Sub\r\n  \r\n  Private Sub Received25_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"samplesNE@acosta.com\")\r\n End Sub\r\n \r\n  Private Sub Received26_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"samplesSE@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received27_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"samplesCentral@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received28_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ClientBillingCentral@acosta.com\")\r\n End Sub\r\n \r\n  Private Sub Received29_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ClientBillingMW@acosta.com\")\r\n End Sub\r\n \r\n  Private Sub Received30_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ClientBillingNE@acosta.com\")\r\n End Sub\r\n \r\n  \r\n  Private Sub Received31_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ClientBillingSE@acosta.com\")\r\n End Sub\r\n \r\n  Private Sub Received32_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ClientBillingWest@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received33_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ProgramsFSSE@acosta.com\")\r\n End Sub\r\n  \r\n  Private Sub Received34_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ProgramsFSNE@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received35_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ProgramsFSMidWest@acosta.com\")\r\n End Sub\r\n \r\n  Private Sub Received36_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ProgramsFSCentral@acosta.com\")\r\n End Sub\r\n\r\n Private Sub Received37_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"ProgramsFSWest@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received38_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"BidsSE@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received39_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"CornerStoneSamples@acosta.com\")\r\n End Sub\r\n \r\nPrivate Sub Received40_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"FoodServiceCommunications@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received41_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"CornerStoneOPS@acosta.com\")\r\n End Sub\r\n \r\n\r\n Private Sub Received42_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"CornerStoneSales@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received43_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"CornerStoneBids@acosta.com\")\r\n End Sub\r\n \r\nPrivate Sub Received44_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"CornerStoneLC@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received45_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"CornerStoneSamples@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received46_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"CornerStoneCS@acosta.com\")\r\n End Sub\r\n \r\n  Private Sub Received47_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"DocLibrary@acosta.com\")\r\n End Sub\r\n \r\n   Private Sub Received48_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"FSMDM@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received49_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n     Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"acostacstonefax@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received50_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n      Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"QualityFS@acosta.com\")\r\n End Sub\r\n \r\n Private Sub Received51_ItemAdd(ByVal Item As Object)\r\n    On Error Resume Next\r\n      Call ProcessItem2(Item.Subject, Item.SenderEmailAddress, \"BillbacksFSNE@acosta.com\")\r\n End Sub\r\n \r\n \r\n  \r\nPrivate Sub Application_Quit()\r\n   'Perform Clean Up\r\n   Set Monitor1 = Nothing\r\n   Set Monitor2 = Nothing\r\n   Set Monitor3 = Nothing\r\n   Set Monitor4 = Nothing\r\n   Set Monitor5 = Nothing\r\n   Set Monitor6 = Nothing\r\n   Set Monitor7 = Nothing\r\n   Set Monitor8 = Nothing\r\n   Set Monitor9 = Nothing\r\n   Set Monitor10 = Nothing\r\n   Set Monitor11 = Nothing\r\n   Set Monitor12 = Nothing\r\n   Set Monitor13 = Nothing\r\n   Set Monitor14 = Nothing\r\n   Set Monitor15 = Nothing\r\n   Set Monitor16 = Nothing\r\n   Set Monitor17 = Nothing\r\n   Set Monitor18 = Nothing\r\n   Set Monitor19 = Nothing\r\n   Set Monitor20 = Nothing\r\n   Set Monitor21 = Nothing\r\n   Set Monitor22 = Nothing\r\n   Set Monitor23 = Nothing\r\n   Set Monitor24 = Nothing\r\n   Set Monitor25 = Nothing\r\n   Set Monitor26 = Nothing\r\n   Set Monitor27 = Nothing\r\n   Set Monitor28 = Nothing\r\n   Set Monitor29 = Nothing\r\n   Set Monitor30 = Nothing\r\n   Set Monitor31 = Nothing\r\n   Set Monitor32 = Nothing\r\n   Set Monitor33 = Nothing\r\n   Set Monitor34 = Nothing\r\n   Set Monitor35 = Nothing\r\n   Set Monitor36 = Nothing\r\n   Set Monitor37 = Nothing\r\n   Set Monitor38 = Nothing\r\n   Set Monitor39 = Nothing\r\n   Set Monitor40 = Nothing\r\n   Set Monitor41 = Nothing\r\n   Set Monitor42 = Nothing\r\n   Set Monitor43 = Nothing\r\n   Set Monitor44 = Nothing\r\n   Set Monitor45 = Nothing\r\n   'Set Monitor46 = Nothing\r\n   Set Monitor47 = Nothing\r\n   Set Monitor48 = Nothing\r\n   Set Monitor49 = Nothing\r\n   Set Monitor50 = Nothing\r\n   Set Monitor51 = Nothing\r\n   \r\n      \r\n   Set Received1 = Nothing\r\n   Set Received2 = Nothing\r\n   Set Received3 = Nothing\r\n   Set Received4 = Nothing\r\n   Set Received5 = Nothing\r\n   Set Received6 = Nothing\r\n   Set Received7 = Nothing\r\n   Set Received8 = Nothing\r\n   Set Received9 = Nothing\r\n   Set Received10 = Nothing\r\n   Set Received11 = Nothing\r\n   Set Received12 = Nothing\r\n   Set Received13 = Nothing\r\n   Set Received14 = Nothing\r\n   Set Received15 = Nothing\r\n   Set Received16 = Nothing\r\n   Set Received17 = Nothing\r\n   Set Received18 = Nothing\r\n   Set Received19 = Nothing\r\n   Set Received20 = Nothing\r\n   Set Received21 = Nothing\r\n   Set Received22 = Nothing\r\n   Set Received23 = Nothing\r\n   Set Received24 = Nothing\r\n   Set Received25 = Nothing\r\n   Set Received26 = Nothing\r\n   Set Received27 = Nothing\r\n   Set Received28 = Nothing\r\n   Set Received29 = Nothing\r\n   Set Received30 = Nothing\r\n   Set Received31 = Nothing\r\n   Set Received32 = Nothing\r\n   Set Received33 = Nothing\r\n   Set Received34 = Nothing\r\n   Set Received35 = Nothing\r\n   Set Received36 = Nothing\r\n   Set Received37 = Nothing\r\n   Set Received38 = Nothing\r\n   Set Received39 = Nothing\r\n   Set Received40 = Nothing\r\n   Set Received41 = Nothing\r\n   Set Received42 = Nothing\r\n   Set Received43 = Nothing\r\n   Set Received44 = Nothing\r\n   Set Received45 = Nothing\r\n   'Set Received46 = Nothing\r\n   Set Received47 = Nothing\r\n   Set Received48 = Nothing\r\n   Set Received49 = Nothing\r\n   Set Received50 = Nothing\r\n   Set Received51 = Nothing\r\nEnd Sub\r\n \r\n\r\nPrivate Sub ProcessItem2(eSubject As String, FromEmail As String, ToEmail As String)\r\n        On Error Resume Next\r\n        Dim conn As ADODB.Connection\r\n        Dim rs As ADODB.Recordset\r\n        Dim sqlstr As String\r\n\r\n        Dim server_name As String\r\n        Dim database_name As String\r\n        Dim user_id As String\r\n        Dim Password As String\r\n        Dim mailbox As String\r\n        Dim dateTime As String\r\n        \r\n\r\n        eSubject = Replace(eSubject, \"\\'\", \"\")\r\n        eSubject = Replace(eSubject, \"'\", \"\")\r\n\r\n        '----------------------------------------------------------------------\r\n        ' Establish connection to the database\r\n        server_name = \"www.ouritsource.com\"\r\n        database_name = \"ourit_fito\"\r\n        user_id = \"ourit_fito\"\r\n        Password = \"afmit1954!!!\"\r\n\r\n        Set conn = New ADODB.Connection\r\n        conn.Open \"DRIVER={MySQL ODBC 8.0 ANSI Driver}\" _\r\n        & \";SERVER=\" & server_name _\r\n        & \";DATABASE=\" & database_name _\r\n        & \";UID=\" & user_id _\r\n        & \";PWD=\" & Password _\r\n        & \";OPTION=16427\" ' Option 16427 = Convert LongLong to Int: This just helps makes sure that large numeric results get properly interpreted\r\n\r\n        '---------------------------------------------\r\n        ' Extract MySQL table data to first worksheet in the workbook\r\n        dateTime = Year(Date) & \"-\" & Month(Date) & \"-\" & Day(Date) & \" \" & Hour(Time) & \":\" & Minute(Time) & \":\" & Second(Time)\r\n       \r\n        Set rs = New ADODB.Recordset\r\n        sqlstr = \"insert into emailHistory (transdate,toField,fromField,subject) values ('\" & dateTime & \"','\" + ToEmail + \"','\" + FromEmail + \"','\" + eSubject + \"')\"\r\n        rs.Open sqlstr, conn, adOpenStatic\r\n\r\n        '-----------------------------------------------------------------------\r\n        ' Close connections\r\n         rs.Close\r\n         conn.Close\r\n         Set conn = Nothing\r\n         Set rs = Nothing\r\n         \r\n         'Log\r\n            Const ForAppending = 8\r\n            Dim strLogFile, strDate, objFSO, objLogFile\r\n            strDate = Date\r\n            strLogFile = \"c:\\Logs\\\" & Year(strDate) & Month(strDate) & Day(strDate) & \".log\"\r\n\r\n            Set objFSO = CreateObject(\"Scripting.FileSystemObject\")\r\n            Set objLogFile = objFSO.OpenTextFile(strLogFile, ForAppending, True)\r\n\r\n\r\n            objLogFile.WriteLine sqlstr & \";\"\r\n            objLogFile.Close\r\n\r\n         \r\n        \r\nEnd Sub\r\n\r\n\r\n<\/code><\/pre>\n<\/body>","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[1],"tags":[],"class_list":["post-148","post","type-post","status-publish","format-standard","hentry","category-miscellaneous","no-thumbnail"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/posts\/148","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/comments?post=148"}],"version-history":[{"count":1,"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/posts\/148\/revisions"}],"predecessor-version":[{"id":150,"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/posts\/148\/revisions\/150"}],"wp:attachment":[{"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/media?parent=148"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/categories?post=148"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ouritsource.com\/blog\/wp-json\/wp\/v2\/tags?post=148"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}