Ir para conteúdo

POWERED BY:

Arquivado

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

hostrl

cdods

Por , em ASP Clássico

Recommended Posts

hostrl    0

hostrl
Postado 

<%

if request("botao") = "enviar" then

Dim objNewMail

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

objNewMail.From = "rafaelsilva_dr@hotmail.com"

objNewMail.To = request("to")

objNewMail.Subject = request("subject")

objNewMail.Body = request("body")

e=objNewMail.Send

 

if e then

Response.Write "Mensagem não enviada"

else

Response.Write "Mensagem enviada com sucesso"

end if

response.end

end if

%>

 

<html>

<body>

<form method="POST" action="mail.asp">

<table border="0" width="43%">

<tr>

<td width="13%"><strong>Para:</strong></td>

<td width="87%"><input type="text" name="to" size="32"></td>

</tr>

<tr>

<td width="13%"><strong>Assunto:</strong></td>

<td width="87%"><input type="text" name="subject" size="32"></td>

</tr>

<tr>

<td width="13%"><strong>Mensagem:</strong></td>

<td width="87%"><textarea rows="7" name="body" cols="43"></textarea></td>

</tr>

<tr>

<td width="13%"></td>

<td width="87%"><input type="submit" value="enviar" name="botao"></td>

</tr>

</table>

</form>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

1)

 

10ª Regra

É proibido o post de mensagens com o objetivo de evidenciar o tópico, tornando-o primeiro da lista de tópicos (up), tal como mensagens repetitivas e/ou que não condizem com o assunto do tópico em questão (flood). Tais mensagens serão excluídas e o usuário advertido por MP.

Tome MUITO cuidado com isso.....

 

2) Voce tem um servidor de SMTP configurado na máquina onde você está realizando os testes ???

 

Abraços..

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Bom, então matamos a charada..

 

Se você NAO TEM um aservidor de SMTP na máquina, como o e-mail poderia ser enviado ?? ¬¬

 

De uma rapida pesquisada no Google, que você encontrará vários servers SMTP FREE's..

 

Eu recomento o ArgoSoft Mail Server

 

Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

1) você SABE oq é um SMTP Server ?

2) você deve BAIXAR o arquivo que te passei e instalar o mesmo na sua máquina. Feito isso, basta abrir o programa e configurar o DNS = "200.204.0.10". Só isso.

 

Abraços...

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