khai-ts

Sub CarparkReportTemplate()

    Dim mail As MailItem
    Dim today As Date
    Dim start As Date
    Dim rangeStr As String
    
    today = Date
    start = DateAdd("d", -3, today)