I don't get the fact that you declare an object of type IPM.Note and try to send it, declare a mailitem instead.
this should work
'Loop through the records
For i = 0 To intNumRecords
Set olMailItem = olFolder.Items.Add
'Subject
olMailItem.Subject = "Mailing List Test"
'Recipient/s
olMailItem.To = fld.Value
'Body of email
olMailItem.Body = strBodyText
'Automatically send the email
olMailItem.Send
'Release new mailitem
Set olMailItem = Nothing
'Move to the next record
rcdSet.MoveNext
Next
Checkout http://msdn.microsoft.com/en-us/library/office/bb220348(v=office.12).aspx for more info on the add method.
EDIT: see full loop