Hi,
I am developing an emailing form in which i am restricting the sender only to mail on a specific domain. user can send a message to multiple recipients.
It works fine for 3 emails and sometimes 4 email addresses, but as the number of emails increased in oMail.To it give me error '8004020f' on oMail.send line.

Here is my code:

eml=Request.Form("eml")
	Set oMail = Server.CreateObject("CDO.Message")
	oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
	oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="202.163.104.198"
	'Server port
	oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
	oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
	' If your server requires outgoing authentication uncomment the lines below and use a valid email address and password.
	oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
	oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="email@expressnews.tv"
	oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="*************"

	Dim emlArray
	Dim arraysize, emlloop
	emlArray = split (eml,";")
	arraysize = UBound(emlArray) 

	'Start of emailing loop
	For emlloop = 0 to arraysize
	emlArray(emlloop) = trim(emlArray(emlloop))

	oMail.Configuration.Fields.Update
	oMail.To = ""& emlArray(emlloop) &"@expressnews.tv"		  
	oMail.From = "shift.report@expressnews.tv"
	oMail.Subject = "Shift Activity Report"
	oMail.TextBody = "text body" //uncomment for using
	oMail.Send
	If Err.number <> 0 Then
					  Response.Write(Err.description)
	End if
	Next
	'end of emailing loop

	Set oMail = Nothing