HI,
I have a function worked before in DTS, but I got error
recently:

DTSStep_DTSActiveScriptTask_1, Error = -2147220482
(800403FE) Error string: Error Code: 0 Error
Source= jmail.SMTPMail Error Description: The message
was undeliverable. All servers failed to receive the
message Error on Line 178 Error source:
Microsoft Data Transformation Services (DTS) Package
Help file: sqldts.hlp Help context: 1100 Error
Detail Records: Error: -2147220482 (800403FE);
Provider Error: 0 (0) Error string: Error Code: 0
Error Source= jmail.SMTPMail Error Description: The
message was undeliverable. All servers failed to receive
the message Error on Line 178 Error source:
Microsoft Data Transforma... Process Exit Code 1. The
step failed.


function sendEMail(sRecip, sSender, sSub, sMsg)
dim objMail
dim sReceive
dim sResponse
dim j

Set objMail = CreateObject("JMail.SMTPMail")
objMail.ServerAddress = "mail.imsns.com"
objMail.Sender = sSender
objMail.Subject = sSub
objMail.Body = sMsg
sReceive = Split(sRecip, "|")
For j = LBound(sReceive, 1) To UBound(sReceive, 1)
objMail.AddRecipient sReceive(j)
Next
'WriteText sMsg
If Not objMail.Execute Then
sResponse = sResponse & "ERROR MESSAGE: " &
objMail.ErrorMessage & vbCrLf
sResponse = sResponse & "ERROR SOURCE: " &
objMail.ErrorSource & vbCrLf
sResponse = sResponse & "LOG: " & objMail.Log &
vbCrLf
WriteText sResponse
End If
Set objMail = Nothing
end function

But in the log file:
errNumb=0: ErrorDesc= :ErrorSource=

In article <0e7f01c3a2fc$53d9b220$a601280a (AT) phx (DOT) gbl>, Jen
<anonymous (AT) discussions (DOT) microsoft.com> writes
I would find out exactly what the error means from Dimac.

Best guess would be name resolution of the SMTP server Fqdn or perhaps a
relay restriction, although I would have expected the error to mention
that if so.


--
Darren Green (SQL Server MVP)
DTS - http://www.sqldts.com

PASS - the definitive, global community for SQL Server professionals
http://www.sqlpass.org