sSubject = "The Following Contracts are going to expire in the next 30 days: "
sMessageBody = "The Following Contracts are going to expire in the next 30 days." & vbCrLf & "Please initiate the Addendum Process" & vbCrLf & _
"Contract No: " & .Fields(0) & vbCr & vbCrLf & _
"Project Name: " & .Fields(1) & vbCr & _
"Company: " & .Fields(2) & vbCr & vbCr & _
"Regards" & vbCrLf & "Contract Management Team"
DoCmd.SendObject acSendNoObject, , , _
sToName, , , sSubject, sMessageBody, False, False