#region **** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker #endregion **** Directives created by AutoIt3Wrapper_GUI **** #include #include #include #include #include #include #include #include #include #include #include #include #include #Include #include #include #include #include Dim $oneDarray Dim $ParNum Dim $PhoneNum $sMessage = "Please select CSV Spreadsheet file with Participant Numbers." $sFilePath1 = FileOpenDialog($sMessage, @DesktopDir, "CSV (*.csv)", 1) _FileReadToArray($sFilePath1, $oneDarray) $columnsCounter = stringsplit($oneDarray[1],",") Dim $twoDarray[$oneDarray[0]+1][$columnsCounter[0]+1] For $x = 1 to ($oneDarray[0]) $oneRow = stringsplit($oneDarray[$x],",") For $y = 1 to ($columnsCounter[0]) $twoDarray[$x-1][$y-1] = $oneRow[$y] Next Next Global $DeptNum[UBound($twoDarray)] Global $CRStatus[UBound($twoDarray)] $aArray2 = $twoDarray $l2 = 0 For $l = 1 To UBound($twoDarray) - 1 $l2 = $l2 + 1 $DeptNum[$l] = $twoDarray[$l][2] $CRStatus[$l] = $twoDarray[$l][12] If $DeptNum[$l] <> 52 Or String($CRStatus[$l]) <> "PRI" Then _ArrayDelete($aArray2, $l2) $l2 = $l2 - 1 EndIf Next $NumRows = UBound($aArray2) Local $hFile = FileOpen("C:\Users\" & @USERNAME & "\Desktop\CourtReminder" & @MON & @MDAY & StringRight(@YEAR, 2) & ".csv", 1 + 8) ; 1 = append _FileWriteFromArray($hFile, $aArray2, 0, UBound($aArray2) - 1, ",") FileClose($hFile) $oExcel = _ExcelBookOpen("C:\Users\" & @USERNAME & "\Desktop\CourtReminder" & @MON & @MDAY & StringRight(@YEAR, 2) & ".csv", 0) _ExcelNumberFormat($oExcel, "0000000000000", ("F2:F" & $NumRows)) $oExcel.Selection.NumberFormat = "0000000000000" $oExcel.ActiveSheet.Columns("A:Q").AutoFit _ExcelBookSaveAs($oExcel, "C:\Users\" & @USERNAME & "\Desktop\CourtReminder" & @MON & @MDAY & StringRight(@YEAR, 2), "xlsx") _ExcelBookClose($oExcel) FileDelete ("C:\Users\" & @USERNAME & "\Desktop\CourtReminder" & @MON & @MDAY & StringRight(@YEAR, 2) & ".csv") Global $oOutlook = _OL_Open() Global $Confirm_Message = "Attached spreadsheet. Contact with questions." Sleep(500) $oItem2 = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=Court Reminder Spreadsheet") $oItem2.BodyFormat = $olFormatHTML $oItem2.GetInspector $sBody2 = $oItem2.HTMLBody $oItem2.HTMLBody = '

' & $Confirm_Message & $sBody2 _OL_ItemRecipientAdd($oOutlook, $oItem2, Default, $olCC, "Jennifer Su") _OL_ItemRecipientAdd($oOutlook, $oItem2, Default, $olTo, "Jennifer Marin") _OL_ItemRecipientAdd($oOutlook, $oItem2, Default, $olTo, "Monica Collard") _OL_ItemAttachmentAdd($oOutlook, $oItem2, Default, "C:\Users\" & @USERNAME & "\Desktop\CourtReminder" & @MON & @MDAY & StringRight(@YEAR, 2) & ".xlsx") $oItem2.Display Sleep(500)