[vba]

Sub SendMail()
Dim oOutlook As Object
Dim oMailItem As Object
Dim oRecipient As Object
Dim oNameSpace As Object
Dim lastrow As Long
Dim i As Long

Set oOutlook = CreateObject("Outlook.Application")
Set oNameSpace = oOutlook.GetNameSpace("MAPI")
oNameSpace.Logon , , True

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lastrow

Set oMailItem = oOutlook.CreateItem(0)

With oMailItem

Set oRecipient = .Recipients.Add(Cells(i, "B").Value2)
oRecipient.Type = 1 '1 = To, use 2 for cc
.Subject = Cells(i, "A").Value2 & " your score for the quiz is " & Cells(i, "C").Value
.Display
End With
Next i
End Sub[/vba]