Ir para conteúdo

POWERED BY:

Arquivado

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

Nando Leads

Tentando enviar email!

Por , em ASP Clássico

Recommended Posts

Nando Leads    0

Nando Leads
Postado

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  %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Anderson Roberto    0

Anderson Roberto
Postado

Tenta isso:

<%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 GoTo TrataErro 'Manda pra rotina de erroIf ComponenteEmail = "ASPEMAIL" ThenDim objASPEMailSet objASPEMail = Server.CreateObject ("Persits.MailSender")objASPEMail.FromName = nome_remetenteobjASPEMail.From = email_remetenteobjASPEMail.Host = ServidorSMTPobjASPEMail.AddAddress email_destinatario, nome_destinatarioIf Not email_destinatarioCC = "" ThenobjASPEMail.AddCc email_destinatarioCC, ""End IfIf Not email_destinatarioBCC = "" ThenobjASPEMail.AddBcc email_destinatarioBCC, ""End IfobjASPEMail.Subject = Assunto_do_EmailobjASPEMail.Body = Mensagem_EmailIf Tipo_de_Email = "HTML" ThenobjASPEMail.IsHTML = TrueEnd IfIf objASPEMail.Send ThenEnviaEmail = "OK"ElseEnviaEmail = "NoOK"End IfSet objASPEMail = NothingEnd IfExit FunctionTrataErro:   If Err.Number <> 0 Then      EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description      Exit Function   End IfEnd FunctionDim Resultadonome = 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" Thenresponse.Redirect ("FormularioEmail.asp?erro=<br>Sua mensagem foi enviada com sucesso!")elseresponse.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%>

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