Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
tenho doi forms p/ envio de email, usando o aspemail...mas ñ estou recebendo o email....vejam os códigos: se alguem puder me dar uma dica agradesso...ñ sei oq estou fazendo de errado...FormularioEmail.asp
<html><head> <META NAME="Language" CONTENT="PT-BR"></head><body><div> <div align="center"> <table width="530" border="0" cellspacing="0" cellpadding="0" class="legenda"> <form action="http://www.leadsnet.com.br/Imagens/EnviaMailFormulario.asp" name="envioemail" method="post"> <tr> <td width="10" rowspan="6"> </td> <td height="25" valign="top"> </td> <td width="10" rowspan="6"> </td> </tr> <tr> <td height="10" align="center"class="titulo style1">Teste de Envio de Email. Leads Transporte. </td> </tr> <tr> <td height="15" align="center"><span id="verm10" style="text-align:center"><%=request.QueryString("erro")%></span></td> </tr> <tr> <td> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Nome: <br> <input name="nome" type="text" id="nome" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: 1px #000000 solid" size="45" maxlength="50"> <br> E-mail:<br> <input name="email" type="text" id="email" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: 1px #000000 solid" size="45" maxlength="50"> <br> Assunto:<br> <input name="assunto" type="text" id="assunto" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: 1px #000000 solid" size="45" maxlength="50"> <br> Mensagem:<br> <textarea name="msg" cols="45" rows="5" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: #000000; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px"> </textarea> </font> </div> </td> </tr> <tr> <td height="20" align="center"><p> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"> <input type="submit" name="Submit" value="Enviar" style="background-color: #CCCCCC; border: 1px #000000 solid; margin-bottom:10px;"> <input name="Submit2" type="reset" style="background-color: #CCCCCC; border: 1px #000000 solid; margin-bottom:10px;" value="Limpar"> </font></p> </td> </tr> </form> </table> </div></div></body></html>
EnviaMailFormulario.asp
<% Const SMTP = "SMTP.LEADSNET.COM.BR" Const ComponenteEmail = "ASPEMAIL"%><%Function EnviaEmail(nome_remetente, email_remetente, nome_destinatario, email_destinatario, email_destinatarioCC, email_destinatarioBCC, Tipo_de_Email, Assunto_do_Email, Mensagem_Email) On Error Resume Next If ComponenteEmail = "ASPEMAIL" Then Dim objASPEMail Set objASPEMail = Server.CreateObject ("Persits.MailSender") objASPEMail.FromName = nome_remetente objASPEMail.From = email_remetente objASPEMail.Host = ServidorSMTP objASPEMail.AddAddress email_destinatario, nome_destinatario If Not email_destinatarioCC = "" Then objASPEMail.AddCc email_destinatarioCC, "" End If If Not email_destinatarioBCC = "" Then objASPEMail.AddBcc email_destinatarioBCC, "" End If objASPEMail.Subject = Assunto_do_Email objASPEMail.Body = Mensagem_Email If Tipo_de_Email = "HTML" Then objASPEMail.IsHTML = True End If If objASPEMail.Send Then EnviaEmail = "OK" Else EnviaEmail = "NoOK" End If Set objASPEMail = Nothing If Err.Number <> 0 Then EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description End If Exit Function End IfEnd Function %><%Dim Resultado nome = request.Form("nome") email = request.Form("email") assunto = request.form("assunto") mensagem = request.form("msg") data = Day(Date)&"/"&Month(Date)&"/"&Year(Date) hora = hour(now)&":"&minute(now) msg = replace(mensagem, chr(13), "<br>") mensagem = "<html><head><title>Mensagem via site</title></head>" mensagem = mensagem & "<body bgcolor='#FFFFFF'>" mensagem = mensagem & "<strong>data: </strong>"&data&"<strong> hora: </strong>"&hora&" <br><strong>Assunto: " mensagem = mensagem & "</strong>"&assunto&"<br><strong>Nome: </strong>"&nome&"<br><strong>E-mail: </strong>"&email&"<br>" mensagem = mensagem & "</strong>"&msg&"<br>" Resultado = EnviaEmail(nome, email, "Nome do Destinatario", "fer_nando_809@hotmail.com", "", "", "HTML", assunto, mensagem) If Resultado = "OK" Then response.Redirect ("FormularioEmail.asp?erro=<br>Sua mensagem foi enviada com sucesso!") else response.Redirect ("FormularioEmail.asp?op=0&erro=Ocorreu um Erro durante o envio do e-mail.<br> Favor Tentar novamente mais tarde !<BR>Erro:"&err.description&"") End If %>
Carregando comentários...
