0x80040220 CDO.Message.1 The SendUsing Configuration Value Is Invalid. NULL 0

Hi Friends,

I have the below procedure in my local system  for sending automatic mails in sql server 2005.

Create Procedure dbo.SendEmail1
@To VarChar(500), @From VarChar(100), @Subject VarChar(200), @Body VarChar(1000), @SMTPServer VarChar(50)
AS
Declare @Object int, @Hr int, @Src VarChar(255), @Desc VarChar(255)
--Create Message object
Exec @Hr = sp_OACreate 'CDO.Message', @Object OUT
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object, @Src OUT, @Desc OUT
SELECT hr=convert(varbinary(4),@Hr), Source=@Src, Description=@Desc
Return
End
--set sEndusing property
Exec @Hr = sp_OASetProperty @Object, 'Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sEndusing")', '1'
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End
--set port property
Exec @Hr = sp_OASetProperty @Object, 'Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/SEndUsingMethod")', '25'
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End
--set smtp server property
Exec @Hr = sp_OASetProperty @Object, 'Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")', @SMTPServer
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End
--Update the configuration
Exec @Hr = sp_OAMethod @Object, 'Configuration.Fields.Update', Null
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End
--set TO property
Exec @Hr = sp_OASetProperty @Object, 'To', @To
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End
--set FROM property
Exec @Hr = sp_OASetProperty @Object, 'From', @From
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End
--set Subject property
Exec @Hr = sp_OASetProperty @Object, 'Subject', @Subject
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End
--set HTMLBody property
Exec @Hr = sp_OASetProperty @Object, 'HTMLBody', @Body
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End
--SEnd the mail
Exec @Hr = sp_OAMethod @Object, 'SEnd', Null
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End
--No memory leaks!
Exec @Hr = sp_OADestroy @Object
If @Hr <> 0
Begin
Exec sp_OAGetErrorInfo @Object
Return
End


and executed as

SendEMail1 'x@x.com','a@a.com', 'Sending email through Stored Procedure', 'Body :  An Email can be sent through stored procedure... and this is SAMPLE', 'smtpservername' This is working fine when I excuted the above procedure in the local system.

Same procedure I have created in the developement machine and excute it the it is giving error as

0x80040220 CDO.Message.1 The "SendUsing" configuration value is invalid.   NULL 0

 

I need the suggestions on the above error  and how to solve this in our development server.

 

Thanks,