Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Igor FV

Configurar o CDONTS do IIS XP p/ e-mail

Por , em ASP Clássico

Recommended Posts

Igor FV    0

Igor FV
Postado

beleza amigos.

 

Quando clico em enviar na página "email.asp", que é um formulario. Aparece a seguinte mensagem na página "envia_email.asp":

 

ERRO:

 

Tipo de erro:

Objeto Server, ASP 0177 (0x800401F3)

Seqüência de classe inválida

/email/envia_email.asp, line 9

 

Estou usando o IIS do xp, e configurei o SMTP a pasta "email", onde estão os dois arquivos citados acima.

 

Tenho que configuar o arquivo "cdonts.dll"? e não o SMTP do IIS?

 

beleza... amigos um abraço...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor FV    0

Igor FV
Postado

Esses são os códigos das duas páginas:

 

Página "email.asp":

 

<html>

<body>

<form action="envia_email.asp" method="post">

<table width="76%" border="1" cellspacing="0" cellpadding="0">

<tr>

<td width="12%"><div align="right"><strong>Nome:</strong></div></td>

<td width="88%"><input name="txt_nome" type="text" id="txt_nome" size="40"></td>

</tr>

<tr>

<td><div align="right"><strong>Email:</strong></div></td>

<td><input name="txt_email" type="text" id="txt_email" size="40"></td>

</tr>

<tr>

<td><div align="right"><strong>Assuunto:</strong></div></td>

<td><input name="txt_assunto" type="text" id="txt_assunto" size="60"></td>

</tr>

<tr>

<td><div align="right"><strong>Mensagem:</strong></div></td>

<td><textarea name="txt_mensagem" cols="60" rows="5" id="txt_mensagem"></textarea></td>

</tr>

<tr>

<td><input type="submit" name="Submit" value="Enviar"></td>

<td> </td>

</tr>

</table>

</form>

</body>

</html>

 

Página "envia_email.asp", as duas páginas estão na pasta "email":

 

<%

'Vamos recuperar os valores do formulário

nome = Request.Form("txt_nome")

email = Request.Form("txt_email")

assunto = Request.Form("txt_assunto")

mensagem = Request.Form("txt_mensagem")

 

'Agora vamos criar o objeto Cdonts e enviar a mensagem

Set msg = Server.CreateObject("CDONTS.NewMail")

msg.From = email

msg.To="igor.valle@click21.com.br"

msg.Subject = assunto

texto = "O usuário "&nome&" lhe envio a mensagem abaixo:"

texto = texto & mensagem

msg.Body = texto

msg.Send

Set msg = Nothing

 

'Avisamos ao usuário que sua mensagem foi enviada corretamente.

Response.Write "Mensagem enviada com sucesso!"

%>

 

Valeu pela atenção amigos....um abraço......

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito