I've given up and written an alternative. Its Excel 2003 VBA that is creating the VBS file ready to send the email.
My sub receives a single string (Called 'Recipients') containing multiple email addresses and splits them out into individual ones..
Code:
'GET EMAIL ADDRESSES
EmailList = Recipients
For x = 0 To 10000
If InStr(EmailList, ";") = 0 Then 'if 0 then no more semi-colons meaning you are at last email address in list
x = 10000
Print #fnum, "objMailItem.Recipients.Add (""" & EmailList & """)"
Else
'Get position of semi-colin
SemiColPos = InStr(EmailList, ";")
'Get email address
EmailAddress = Mid(EmailList, 1, SemiColPos - 1)
Print #fnum, "objMailItem.Recipients.Add (""" & EmailAddress & """)"
'remove previous email address from list (by starting new string after first semiCol
EmailList = Mid(EmailList, SemiColPos + 1, 100)
End If
Next