Use DTS Send Auto Email To Distribution Lists

Hi,
I wrote the following function in an ActiveX script task in the database transformation. When I sent it to my own email address, it sent out the message fine, but when I change it to "SP Directors" which is a distribution list, and execute this step, it gave the error stated: "ActiveX Scripting encountered a Run Time Error during the execution of the script." Any one can help me on this problem, thank you so much in advance.


Function Main()
dim eMailString
eMailString = "xxxxxxxxx test"
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Test " & Time()
objMessage.Sender = "js@comcast.com"
objMessage.To = "SP Directors"
objMessage.TextBody = eMailString
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.iparty.com"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

Main = DTSTaskExecResult_Success
End Function