Ir para conteúdo

POWERED BY:

Arquivado

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

efremb

AspEmail

Por , em ASP Clássico

Recommended Posts

efremb    0

efremb
Postado

pessoal estou com um probleminha bem básico, só que não consigo resolver, o envio do email está tudo corretinho o problema e na hora da recepção dos dados no email gostaria que ficasse assim

Nome: nome da pessoal

Endereço: enderco

Cidade:. .. ....

....

...

bom assim por diante cada um em sua linha, porém estou recebendo ele assim

 

Nome: meu nom<br>Endereço: meu enderecoEmail: Cidade: minha cidadeEstado: meu estadoTelefone: meu telfoneMensagem: minha mesange

 

Alguem poderia me ajudar estou enviando o codigo para analisarem

 

<%

'

strHost = "meuserver.com.br"

 

If Request("Send") <> "" Then

 

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

 

Mail.Host = strHost

Mail.Username = ""

Mail.Password = ""

 

Mail.From = Request("From")

Mail.FromName = Request("FromName")

Mail.AddAddress Request("To")

 

 

Mail.Subject = Request("Subject")

Mail.Body = "Nome: "&request.form("FromName")&"<br>"

mail.body = Mail.body & "Endereço: "& request.form("endereco")

mail.body = Mail.body & "Email: "& request.form("email")

mail.body = Mail.body & "Cidade: "& request.form("cidade")

mail.body = Mail.body & "Estado: "& request.form("estado")

mail.body = Mail.body & "Telefone: "& request.form("telefone")

mail.body = Mail.body & "Mensagem: "& request.form("Body")

 

 

 

strErr = ""

bSuccess = False

On Error Resume Next

Mail.Send

If Err <> 0 Then

strErr = Err.Description

else

bSuccess = True

End If

End If

%>

 

<HTML>

<HEAD>

<TITLE>AspEmail</TITLE>

 

<link href="estilo.css" rel="stylesheet" type="text/css">

<style type="text/css">

<!--

.style1 {font-size: 18px}

-->

</style>

</HEAD>

<BODY BGCOLOR="#FFFFFF">

 

 

 

 

 

 

 

<FORM METHOD="POST" ACTION="Default.asp">

 

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td align="center"><TABLE width="654" align="center" CELLPADDING=4 CELLSPACING=1 BGCOLOR="#CCCCCC">

<TR bgcolor="#FFFFFF">

<TD colspan="2" align="center" class="titulopagina1"><span class="tituloAlert"><b>

<input name="hidden" type="hidden" value=<% = strHost %> size="50">

</b>

<input type="hidden" name="To" value="meuemail@mmm.com" size="50">

</span>

<% If strErr <> "" Then %>

Error occurred:

<% = strErr %>

<% End If %>

</TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD colspan="2" align="center" class="tituloAlert"><% If bSuccess Then %>

Success! Message sent to

 

<% End If %></TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD width="207" align="right" class="TextoN"> </TD>

<TD width="426" class="TextoN"><B> </B></TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD height="31" align="right" class="TextoN">E-mail: </TD>

<TD><INPUT NAME="From" TYPE="TEXT" size="50"></TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD align="right" class="TextoN">Nome : </TD>

<TD><INPUT NAME="FromName" TYPE="TEXT" size="50"></TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD align="right" class="TextoN">Endereço:</TD>

<TD><label>

<input name="endereco" type="text" id="endereco">

</label></TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD align="right" class="TextoN">Cidade:</TD>

<TD><label>

<input name="cidade" type="text" id="cidade">

</label></TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD align="right" class="TextoN">Estado:</TD>

<TD><label>

<input name="estado" type="text" id="estado">

</label></TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD align="right" class="TextoN">Telefone:</TD>

<TD><label>

<input name="telefone" type="text" id="telefone">

</label></TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD align="right" class="TextoN">Assunto:</TD>

<TD><INPUT NAME="Subject" TYPE="TEXT" size="50"></TD>

</TR>

<TR bgcolor="#FFFFFF">

<TD align="right" class="TextoN">Mensagem::</TD>

<TD><TEXTAREA NAME="Body" cols="50"></TEXTAREA></TD>

</TR>

<TR align="center" bgcolor="#FFFFFF">

<TD COLSPAN=2><INPUT NAME="Send" TYPE="SUBMIT" class="botao" VALUE="Send Message"></TD>

</TR>

</TABLE></td>

</tr>

</table>

</FORM>

 

</BODY>

</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

buenoweb    7

buenoweb
Postado

mail.Body = "Nome: "&request.form("FromName")&"<br>"mail.body = Mail.body & "Endereço: "& request.form("endereco")&"<br>"mail.body = Mail.body & "Email: "& request.form("email")&"<br>"mail.body = Mail.body & "Cidade: "& request.form("cidade")&"<br>"mail.body = Mail.body & "Estado: "& request.form("estado")&"<br>"mail.body = Mail.body & "Telefone: "& request.form("telefone")&"<br>"mail.body = Mail.body & "Mensagem: "& request.form("Body")mail.isTML = trueIsso resolverá seu problema.

Compartilhar este post

Link para o post
Compartilhar em outros sites

efremb    0

efremb
Postado

Pessoal agora nem envia não tá enviando ta dando erro, não consegue enviar alguem pode me ajudar?

<% ' strHost = "meuserver.com.br" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.Username = "" Mail.Password = "" Mail.From = Request("From") Mail.FromName = Request("FromName") Mail.AddAddress Request("To") Mail.Subject = Request("Subject") mail.Body = "Nome: "&request.form("FromName")&"<br>" mail.body = Mail.body & "Endereço: "& request.form("endereco")&"<br>" mail.body = Mail.body & "Email: "& request.form("email")&"<br>" mail.body = Mail.body & "Cidade: "& request.form("cidade")&"<br>" mail.body = Mail.body & "Estado: "& request.form("estado")&"<br>" mail.body = Mail.body & "Telefone: "& request.form("telefone")&"<br>" mail.body = Mail.body & "Mensagem: "& request.form("Body") mail.isTML = true strErr = "" bSuccess = False On Error Resume Next Mail.Send If Err <> 0 Then strErr = Err.Description else bSuccess = True End If End If%><HTML><HEAD><TITLE>AspEmail</TITLE><link href="estilo.css" rel="stylesheet" type="text/css"><style type="text/css"><!--.style1 {font-size: 18px}--></style></HEAD><BODY BGCOLOR="#FFFFFF"><FORM METHOD="POST" ACTION="Default.asp"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center"><TABLE width="654" align="center" CELLPADDING=4 CELLSPACING=1 BGCOLOR="#CCCCCC"> <TR bgcolor="#FFFFFF"> <TD colspan="2" align="center" class="titulopagina1"><span class="tituloAlert"><b> <input name="hidden" type="hidden" value=<% = strHost %> size="50"> </b> <input type="hidden" name="To" value="meu@mail.com" size="50"> </span> <% If strErr <> "" Then %> Error occurred: <% = strErr %> <% End If %> </TD> </TR> <TR bgcolor="#FFFFFF"> <TD colspan="2" align="center" class="tituloAlert"><% If bSuccess Then %> Success! Message sent to <% End If %></TD> </TR> <TR bgcolor="#FFFFFF"> <TD width="207" align="right" class="TextoN"> </TD> <TD width="426" class="TextoN"><B> </B></TD> </TR> <TR bgcolor="#FFFFFF"> <TD height="31" align="right" class="TextoN">E-mail: </TD> <TD><INPUT NAME="From" TYPE="TEXT" size="50"></TD> </TR> <TR bgcolor="#FFFFFF"> <TD align="right" class="TextoN">Nome : </TD> <TD><INPUT NAME="FromName" TYPE="TEXT" size="50"></TD> </TR> <TR bgcolor="#FFFFFF"> <TD align="right" class="TextoN">Endereço:</TD> <TD><label> <input name="endereco" type="text" id="endereco"> </label></TD> </TR> <TR bgcolor="#FFFFFF"> <TD align="right" class="TextoN">Cidade:</TD> <TD><label> <input name="cidade" type="text" id="cidade"> </label></TD> </TR> <TR bgcolor="#FFFFFF"> <TD align="right" class="TextoN">Estado:</TD> <TD><label> <input name="estado" type="text" id="estado"> </label></TD> </TR> <TR bgcolor="#FFFFFF"> <TD align="right" class="TextoN">Telefone:</TD> <TD><label> <input name="telefone" type="text" id="telefone"> </label></TD> </TR> <TR bgcolor="#FFFFFF"> <TD align="right" class="TextoN">Assunto:</TD> <TD><INPUT NAME="Subject" TYPE="TEXT" size="50"></TD> </TR> <TR bgcolor="#FFFFFF"> <TD align="right" class="TextoN">Mensagem::</TD> <TD><TEXTAREA NAME="Body" cols="50"></TEXTAREA></TD> </TR> <TR align="center" bgcolor="#FFFFFF"> <TD COLSPAN=2><INPUT NAME="Send" TYPE="SUBMIT" class="botao" VALUE="Send Message"></TD> </TR> </TABLE></td> </tr> </table></FORM></BODY></HTML>

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