You probably want something like the following - note that this uses code from Ron's web site to start Outlook - http://www.rondebruin.nl/win/s1/outlook/openclose.htm and assumes that the worksheet illustrated is the active sheet.
Sub SendWithAttachments()
Dim olApp As Object
Dim olMail As Object
Dim xlSheet As Worksheet
Dim fso As Object
Dim LastRow As Long, lngRow As Long
Set fso = CreateObject("Scripting.FileSystemObject")
Set xlSheet = ActiveSheet
With xlSheet
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
Set olApp = OutlookApp()
Set olMail = olApp.createitem(0)
With olMail
.Subject = "Please find fies attached"
.display
For lngRow = 9 To LastRow
If InStr(1, xlSheet.Cells(lngRow, 3), "*") > 0 Then
If fso.FileExists(xlSheet.Cells(lngRow, 2)) = True Then
.attachments.Add xlSheet.Cells(lngRow, 2)
End If
End If
Next lngRow
End With
On Error GoTo 0
lbl_Exit:
Set fso = Nothing
Set olApp = Nothing
Set olMail = Nothing
Exit Sub
End Sub