sending multiple emails with redemption in excel

Ok so I got redemption to send an email. But the problem is I have a list of emails and I need to send an email to each person on the list. I can't get redemtion to send an email when I use a variable to define the recipient.

VB Code:

Dim SafeItem, oItem 
Set SafeItem = CreateObject("Redemption.SafeMailItem")
Set oItem = CreateItem(0)
SafeItem.Item = oItem
SafeItem.Recipients.Add email
SafeItem.Recipients.ResolveAll
SafeItem.Subject = "Subject"
SafeItem.Send

The first time the loop runs, email will be [email protected], the second time, [email protected] and so on. Currently, no emails get sent at all. Any ideas what's wrong?

Thanks in advance.

EDIT: If redemption won't allow me to send multiple emails, is there any other method of doing so?