You don't need those Outlook references enabled because we're using "generic" objects. Enabling them let's you specifically use Outlook objects and gain increased functionality which we don't need here.
For looping through the dates in column A - set a range variable for the whole list. Then you can evaluate each cell using IF (or SELECT CASE can be easier if you have multiple scenarios). Use OFFSET to refer to the other cells in the same row as the particular date you're looking at.
Code:
Dim myRange as Range
Dim r as Range
Dim sEmail as String
Set myRange = Range("A2", Range("A2").End(xlDown))
For Each r in myRange
If r - Date < 7 Then
sEmail = r.OFFSET(0,1)
'code for sending mail here
End If
Next r
Whoa code tags don't work on the forum app?