I meant to add the code but was side tracked:
Code:
'SET THE TABLE AND HEADERS strHTML = "<HTML><Body><table border='3' width='70%'><tr><th>Del To</th><th>Town</th><th>PostCode</th>" & _
"<th>MFG</th><th>SL</th><th>Qty</th><th>Date Added</th><th>Date Due</th><th>Days Remaining</tr>"
'LINK BODY WITH TABLE
strBody = strHTML
'SET THE RECORDS
Set rs = CurrentDb.OpenRecordset("Select * From tblStorage Order By DateDue;")
'START LOOP
Do While Not rs.EOF
'SET DATE NOW
dtNow = Format(Now(), "dd/mm/yyyy")
'ADD VARIABLE FIELDS
intDays = DateDiff("d", dtNow, rs.Fields("DateDue"))
Select Case intDays
Case Is > 7
strDays = "<font color='blue' size='3'>" & DateDiff("d", dtNow, rs.Fields("DateDue")) & "</font>"
Case Else
strDays = "<font color='red' size='3'>" & DateDiff("d", dtNow, rs.Fields("DateDue")) & "</font>"
End Select
'SET THE MAIL BODY
strBody = strBody & "<tr><td>" & rs.Fields("DelTo") & "</td><td>" & rs.Fields("Town") & "</td><td>" & rs.Fields("PostCode") & "</td><td>" & rs.Fields("MFG") & _
"</td><td>" & rs.Fields("SL") & "</td><td>" & rs.Fields("Qty") & "</td><td>" & Format(rs.Fields("DateAdded"), "dd/mm/yyyy") & "</td><td>" & _
Format(rs.Fields("DateDue"), "dd/mm/yyyy") & "</td><td>" & strDays & "</td></tr>" & "|"
'MOVE THROUGH RECORDS AND LOOP TOGETHER
rs.MoveNext
Loop
'SET THE MAIL UP NOW
Set olItem = olApp.CreateItem(olMailItem)
Set olAccount = olApp.Session.Accounts.Item(1)
With olItem
.To = strMailTo etc..........