' Get Contract End Date
Dim szContractEndDate
szContractEndDate = PropertyValues.SearchForProperty( 1306 ).TypedValue.DisplayValue
Dim szDate
szDate = DateSerial(Year(Now), Month(Now), Day(Now))
Dim szDate2
szDate2 = DateAdd("d",-135,szContractEndDate)
szDate = szDate2
I want to set szDate2 to be trigger date for email notification