Create mail message - save in drafts - select in drafts - Alt F11 - F5

Sub SendIndividually()   

Dim objItem As MailItem
Set objItem = Application.ActiveExplorer.Selection.Item(1)

Dim objTo As Recipient
Dim objClonedMail As MailItem

On Local Error Resume Next

For Each objTo In objItem.Recipients

Set objClonedMail = objItem.Copy()
objClonedMail.To = ""
objClonedMail.Recipients.Add objTo
objClonedMail.Send

Next

End Sub