Change
.Subject = Range("A2") & " needs looking at"
to
.Subject = Range("A" & i) & " needs looking at"
I think the code opens up a new instance of outlook anyway. It shouldn't matter if outlook is open or not.

add
Range("F" & i) = "SENT"
and put an if statement along the lines of:

if not Range("F" & i) = "SENT" then
   'code here
end if