Por Favor

jntk · Julho 29, 2004

Olá,

Estou desenvolvendo um sistema de cartões virtuais, mas me barrei com um graaande problema.

Acontece que, usando o AspMail mando os dados, etc para o e-mail do destinatário, mas pelo meu código tenho que colocar o host do servidor de e-mail do destinatário, como o código abaixo:

Set Email = Server.CreateObject("Persits.MailSender") 
Email.Host="mail.ieqquitauna.com.br" 'Host, e agora????
Email.From = varEmail 
Email.ADDAddress varPara

Mas acontece que existem vários hosts name, cada servidor de e-mail tem um, e como arrumar isso?

No meu código existe um host individual, e se quiser mandar um cartão para um e-mail do yahoo, do hotmail, etc.

Tem como resolver isso, ou substituir meu código por um outro, ou somente o host?

Obs: já tentei apagar o host, mas não envia, com o host envia, sem da erro do servidor.

Por favor me ajudem!!!!

Desde já agradeço....

jissa · Julho 29, 2004

não precisa colocar para cada destinatario, ou seja é o do Remetente

Este Host é o do Server onde esta... o do seu Site.

um exemplo:

http://www.infinitehost.com.br/faqaspmail.htm

jntk · Julho 29, 2004

Mas se eu preencher com um e-mail de um dominio diferente da erro do servidor.

Olha ae: http://www.ieqquitauna.com.br/cartao_virtual/c1.htm

Estou testando ainda.....

Só funciona para os e-mails do servidor (ieqquitauna.com.br)

O que fazer?

jissa · Julho 29, 2004

Se possivel coloque seu codigo aqui

jntk · Julho 29, 2004

Ae vai ele, o da pg em ASp:

<%
Option Explicit
Dim varEmail, varPara, varAssunto, varTexto, Email, varNome
Dim TIT, TEXTO, FIM
Dim status

varEmail = trim(Request.Form("De"))
varPara = trim(Request.Form("Para"))
varAssunto = trim(Request.Form("Amigo")) & ", cartão de: " & Trim(Request.Form("Nome"))

status=""

If trim(Request.Form("Nome")) ="" then
  	%>
  	<script language="JavaScript">
    alert('\nCampo Nome em branco.  \n \nFavor digitar Texto.') 
    window.location.href = "javascript:history.go(-1)"
  	</script>
  	<%
status="Falha"
End IF

If trim(Request.Form("De")) ="" then
  	%>
  	<script language="JavaScript">
    alert('\nCampo Fone em branco.  \n \nFavor digitar Texto.') 
    window.location.href = "javascript:history.go(-1)"
  	</script>
  	<%
status="Falha"
End IF


If status="" then

'Composição do Cartão
TIT = "<p><b><font face=""Arial"" size=""3"" color=""#FF9900"">Olá " & Request.Form("Amigo") & "</font></b><br>"
TIT = TIT & "<b><font face=""Arial"" size=""2"" color=""#0066CC"">Você recebeu um cartão virtual de " & Request.Form("Nome") & "</font></b></p>"
	TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>" & Request.Form("Amigo") & "</b><br>"
	TEXTO = TEXTO & "<center><img src=http://www.ieqquitauna.com.br/cartao_virtual/cartao/" & Request.Form("ct") & "><br>"
	TEXTO = TEXTO & "<font face=""Arial"" size=""2"" color=""#0066CC""><i>" & Request.Form("Msg") & "</i><br><br>"
FIM = "<center>Para Mandar Cartões Virtuais IEQQ " & "<a href=http://www.ieqquitauna.com.br/cartoes>" & "Clique Aqui" & "</a>"
FIM = FIM & "<a href=http://www.ieqquitauna.com.br>" & "Igreja do Evangelho Quadrangular de Quitaúna - Osasco" & "</a>"

Set Email = Server.CreateObject("Persits.MailSender") 
Email.Host="mail.ieqquitauna.com.br"
Email.From = varEmail 
Email.ADDAddress varPara

Email.Subject =  varAssunto
Email.ishtml=true
Email.Body = TIT & TEXTO & FIM

Email.Send 

On Error Resume Next
Set Email = nothing

 If Err <> 0 Then
	Response.Write "Error encountered: " & Err.Description
 End If
End If
%>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center"><b><font color="#FF9900" face="Arial" size="3">Cart&atilde;o Virtual Enviado com Sucesso!</font></b></p>
<p align="center"><a href="http://www.ieqquitauna.com.br/cartoes">Enviar outro</a></p>

Tem o form. em htm:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body>
<p>Cart&otilde;es</p>
<form name="ctfrm" method="post" action="envia_cartao.asp">
  <table width="32%"  border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td colspan="2"><div align="center">Cartao 1 </div></td>
    </tr>
    <tr>
      <td width="18%"><div align="left"><img src="c1.gif" width="57" height="66"></div></td>
      <td width="82%">Mensagem:<br>
      <textarea name="Msg" rows="5" id="Msg"></textarea></td>
    </tr>
    <tr>
      <td>Nome:</td>
      <td><input name="Nome" type="text" id="Nome"></td>
    </tr>
    <tr>
      <td><div align="left">E-mail:
          
      </div></td>
      <td><input name="De" type="text" id="De"></td>
    </tr>
    <tr>
      <td><div align="left">Para:
          
      </div></td>
      <td><input name="Amigo" type="text" id="Amigo"></td>
    </tr>
    <tr>
      <td>E-mail:</td>
      <td><input name="Para" type="text" id="Para3"></td>
    </tr>
    <tr>
      <td colspan="2"><input name="ct" type="text" id="ct" value="c1.gif"></td>
    </tr>
    <tr>
      <td colspan="2"><div align="center">
        <input type="submit" name="Submit" value="Enviar">
      </div></td>
    </tr>
  </table>
</form>
<p>&nbsp; </p>
</body>
</html>

Falta acertar algumas coisas (muitas....rs)

jissa · Julho 29, 2004

Parece estar certo.. sem problemas na parte de envio..

muito estranho não sair para outro server,

Editando..

eu criei um teste e funcionou no meu Server.. teste ai.. coloque dois email´s validos, e só rode no seu server e veja se recebe..

<%
sNameFrom = "Nome"
sEmailFrom = "umemail@teste.com.br"
sText = "Texto da mensagem"
sAssunto = "Assunto da mensagem"

'Cria o objeto
   strHost = "mail.ieqquitauna.com.br"
   Set Mail = Server.CreateObject("Persits.MailSender")
   Mail.Host = strHost
   Mail.From = sEmailFrom
   Mail.FromName = sNameFrom
   Mail.AddAddress "outroemail@teste.com.br"   
   Mail.Subject = "Fale Conosco" & " / " & SEmailFrom & " / " & sNameFrom


  'Monta a texto para o envio
  strMsgHeader = "IP: " & Request.ServerVariables("REMOTE_ADDR") & " - Data/Horario do Envio :" & date() & " /  " & time() & vbCrLf
     
  strMsgFooter = vbCrLf & "Mensagem: "  & vbCrLf &sText
  Mail.Body = strMsgHeader & strMsgFooter

  Mail.Send

%>

Editado Julho 29, 2004 por jissa

jntk · Julho 29, 2004

Vou tentar esse código, mas sera que pode ser problemas no servidor?

Entrar

Por Favor

Pergunta

jntk

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

jissa

Link para o comentário

Compartilhar em outros sites

jntk

Link para o comentário

Compartilhar em outros sites

jissa

Link para o comentário

Compartilhar em outros sites

jntk

Link para o comentário

Compartilhar em outros sites

jissa

Link para o comentário

Compartilhar em outros sites

jntk

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades