erroce cdo con invio mail ed array

[yro]

ciao a tutti.

per inviare una mailing list uso un semplice array:

arr_strEmail = split(strML, ";")
for xx = 0 to UBound(arr_strEmail)


'invio email
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = strEmailda
MiaMail.To =""& trim(arr_strEmail(xx)) &""
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = strOggetto
MiaMail.HTMLBody = sValue&strTestoNO
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing


next

ma nonostante le mail vengano mandate ricevo questo errore:

CDO.Message.1 error '8004020c'
At least one recipient is required, but none were found.

Ma se le mail vengono mandate perche mi scrive che non trova destinatari?

che faccia un ciclo a vuoto alla fine? ma come risolvo?

[yro]

if not arr_strEmail(xx) = "" then
'invio email
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = strEmailda
MiaMail.To =""& trim(arr_strEmail(xx)) &""
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = strOggetto
MiaMail.HTMLBody = sValue&strTestoNO
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
end if