stevehenderson

Sub SendResults()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim currentPath As String
    currentPath = Application.ActiveWorkbook.Path
    currentPath = "\\se\ABETWorking\SEN0_CapstoneDA"
    Dim csvPath As String
    
    Dim emailBody As String

stevehenderson

Function writeCSV(csvPath As String) As String
    
    'Create a CSV
    Dim i As Integer
    Dim lastUsedColumn As Integer
    Dim done As Boolean
    lastUsedColumn = 9
    i = 1
    done = False
    While Not done