Ir para conteúdo

POWERED BY:

Arquivado

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

julio render

[Resolvido] problemas no envio de mensagem para e-mail via asp

Recommended Posts

Olá pessoal!

Estou com problemas pra enviar a mensagem da textarea para minha caixa de e-mail.Tipo assim,criei o arquivo asp e no aquivo html redirecionei em action para email.asp.Qnado abro a caixa de mensagem do meu e-mail,não tem mensagem alguma,apenas a mensagem do arquivo asp,acho que o asp não ta pegando o valor de dentro da caixa por isso ocorre o erro,aqui estão os scripts:

 

CONTATO.HTML

<form name="formulario" method="post" action="email.asp">
<table width="100%" border="0" cellspacing="7" cellpadding="0">
  <tr>
	<td colspan="2"><span class="style6">::DEIXE UMA MENSAGEM</span></td>
  </tr>
  <tr>
	<td colspan="2"><span class="style7">Nome:
	  </span>
	  <input type="text" name="nome" id="nome" />
	  <br />
	  <br />
	  <span class="style7">E-mail:</span>
	  <input type="text" name="email" id="email" />
	  <br />
	  <br />
	  <span class="style7">Assunto:	  </span>
	  <input type="text" name="assunto" id="assunto" /></td>
  </tr>
  <tr>
	<td width="46%"><textarea name="msg" id="msg" cols="25" rows="5"></textarea></td>
	<td width="54%"><input name="button" type="submit" class="botao" id="button" value="Enviar" onclick="envia()"/></td>
  </tr>
</table>
</form>



EMAIL.ASP

<%

Set Mail = Server.CreateObject("Persits.MailSender") 

'Servidor de SMTP
Mail.Host = "mail.jdesignsolution.com.br"
Mail.Username = "juliograffin@jdesignsolution.com.br"
Mail.Password = "123"


'E-mail do remetente
Mail.From = "juliograffin@jdesignsolution.com.br"

'Remetente
Mail.FromName = "E-mail via Web"

Mail.AddAddress "jdesign20@hotmail.com", "Julio"

'Assunto da mensagem
Mail.Subject = "Assunto da Mensagem"

'Corpo da mensagem
Mail.Body = "<font color=red size=6>MENSAGEM PROPRIAMENTE DITA"
Mail.IsHTML = True

On Error Resume Next
Mail.Send
response.write("Mensagem enviada com Sucesso")
If Err <> 0 Then
 Response.Write "Error encountered: " & Err.Description
End If
Set Mail = Nothing
%>
Se puderem ajudar agradeço!

Abrasssssss

Compartilhar este post


Link para o post
Compartilhar em outros sites

no

Mail.Body , você deve atribuir a sua variavel onde, recupera a mensagem...

varmensagem = request.form("msg")

 

dá uma pesquisada no forum, k existem varios exemplos, pode te ajudar

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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