I am trying to send email thro DTS using Activex Script.
Here is the code :
'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
const SMTP_SERVER = "MPBAKOREX01.corp.mphasis.com"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_SERVER
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 90
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "ausrg@yahoo.com"
.From = "shanmuga.r@mphasis.com"
.Subject = "TEST"
.HTMLBody = "jfldsajfldk;sajf ;lksadjf;lkasdjlfkjasdlkfjlasdkj flkdsajflsadjf ljasdlf a"
.Send
End With
Main = DTSTaskExecResult_Success
End Function
When i am executing this , i am getting the following error :
Error Source : Microsoft Data Transformation Services (DTS) Package
Error Description : Error Code: 0
Error Source= CDO.Message.1
Error Description: The "SendUsing" configuration value is invalid.
Error on Line 27
How to solve it ?
