Настройеа SMTP в IIS

<% 
var msg; 
msg = Server.CreateObject("CDONTS.NewMail"); 
msg.From = "<some>@yandex.ru"; 
msg.To = "<some>@yandex.ru"; 
msg.Subject = "Test"; 
msg.Body = "This is a sample message."; 
msg.Send();
Response.Write("Message was sent");
%>

function sendmail_cdo(message)
 consid_ = Request.QueryString("consid")
 sql = "SELECT ...."
 set rs = conn2.Execute(sql)
 if not rs.EOF then id = ...
 Set cdoConfig = CreateObject("CDO.Configuration")  
 With cdoConfig.Fields  
  .Item(cdoSendUsingMethod) = cdoSendUsingPort  
  .Item(cdoSMTPServer) = "smtp.newmail.ru"  
  .Item(cdoSMTPAuthenticate) = 1  
  .Item(cdoSendUsername) = "tcolonel@hotmail.ru"  
  .Item(cdoSendPassword) = "dfktynby"  
  .Update  
 End With 
 Set cdoMessage = CreateObject("CDO.Message")  
 With cdoMessage 
 Set .Configuration = cdoConfig 
  .BodyPart.Charset = "windows-1251"
  .From = "..."
  .To = "..."
  .Subject = "..."
  .TextBody = message
  .Send 
 End With 
 Set cdoMessage = Nothing
 Set cdoConfig = Nothing
end function

<!--METADATA TYPE="typelib"  UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"  NAME="CDO for Windows 2000 Library" -->

 Set cdoConfig = CreateObject("CDO.Configuration")  
 With cdoConfig.Fields  
  .Item(cdoSendUsingMethod) = cdoSendUsingPort
  .Item(cdoSMTPServer) = "smtp.newmail.ru"
  .Item(cdoSMTPAuthenticate) = 1
  .Item(cdoSendUsername) = "<profile>"
  .Item(cdoSendPassword) = "<password>"
  .Update
 End With
 Set cdoMessage = CreateObject("CDO.Message")
 With cdoMessage 
  Set .Configuration = cdoConfig 
  .BodyPart.Charset = "windows-1251"
  .From = "<email>"
   .To = "<email>"
   .Subject = ""
   .TextBody = ""
   .Send 
  End With 
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing

.Item(cdoSendUsingMethod) = 1

[bold]Тип ошибки:[/bold]
(0x8004020E)
Не удается изменить или удалить объект, добавленный с использованием COM+ Admin SDK