Que tal, al tratar de enviar un email desde un ASP me genera el siguiente error:
Tipo de error:
(0x8004020E)
No se puede modificar o suprimir un objeto que fue añadido usando el SDK Admin COM+
/hd/test/enviax.asp, línea 19
Ya habia logrado que funcionara este codigo, pero resulta ser que cambie de servidor de correo, puse mi nuevo servidor de correo en la linea correspondiente del codigo y me da este problema, podrían ayudarme....
El codigo es el siguiente:
<%
if (Request.Form()<>"") then
Dim Mail, Config
Set Mail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.yahoo.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Mail.From="Sistemas"
Mail.To = Request.Form("email")
Mail.Subject = Request.Form("asunto")
Mail.HTMLBody = Request.Form("mensaje")
Mail.Send()
Response.Write("E-mail enviado a: "&Request.Form("email"))
Set Mail = Nothing
else %>
<form name="formail" method="post" action="enviax.asp">
<table align="center" cellpadding="3" cellspacing="1">
<tr><td>Para (Email): </td>
<td><input type="text" name="email" /></td> </tr>
<tr><td>Asunto: </td>
<td><input type="text" name="asunto" /></td> </tr>
<tr><td>Mensaje: </td>
<td><textarea name="mensaje"></textarea></td> </tr>
<tr><td colspan="2" align="center">
<input type="submit" value=" Enviar " name="ok"> </td> </tr>
</table>
</form>
<% end if %>
Estoy trabajando con WXP, IIS 5.1
Por el momento gracias.