Ir para conteúdo

POWERED BY:

Arquivado

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

Rspina

ASPMAIL erro.....

Recommended Posts

olá pessoal.....

 

Seguinte, estou tentando enviar a mensagem com copia para um outro e-mail, mas ja tentei e so da erro, pq??

 

 

<% Destino = "rafael@terra.com.br"DestinoCC = "carlos@terra.com.br"servidor = "mail.terra.com.br"titulo = "Formulário Online"'Retirar dados do formulárionome = Request("vorname")email = Request("email")telefone = Request("telefon")monitorar = Request("uberwachen")mensagem = Request("botschaft")visita = Request("besuch")'Criar objetoSet Mail = Server.CreateObject("Persits.MailSender")' Criar corpo da mensagemstrBody = strBody & "<b><font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#26416A'>"strBody = strBody & "Dados do Usuário <br><br>"strBody = strBody & "</font></b>"strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#26416A'>"strBody = strBody & "Nome: "strBody = strBody & "<b>" & nome & "</b><br><br>"strBody = strBody & "E-mail: "strBody = strBody & "<b>" & email & "</b><br><br>"strBody = strBody & "Telefone: "strBody = strBody & "<b>" & telefone & "</b><br><br>"strBody = strBody & "Desejo monitorar: "strBody = strBody & "<b>" & monitorar & "</b><br><br>"strBody = strBody & "Mensagem: "strBody = strBody & "<b>" & mensagem & "</b><br><br>"strBody = strBody & "Solicito a Visita: "strBody = strBody & "<b>" & visita & "</b><br><br>"strBody = strBody & "</font>" 'Propriedades do ASPMAILMail.Host = servidorMail.Port = 25 ' Valor opcional. 25 é a porta de erroMail.From = "rafael@terra.com.br"Mailer.CC = "carlos@terra.com.br"Mail.FromName = email ' OpcionalMail.Subject = tituloMail.Body = strBodyMail.IsHTML = TrueMail.AddAddress DestinoMail.AddAddress DestinoCCMail.Send' Controlar erros do ASPMAILIf Err <> 0 Then	  Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.DescriptionElse		Response.Redirect("erfolg.asp")End If'Destruir o  aspmailSet Mail = Nothing%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estava funcionando normal, mas quando tentei fazer com que enviase com copia ai fodeu, não sei se o que eu fiz para poder enviar com copia esta correto....

Compartilhar este post


Link para o post
Compartilhar em outros sites
mailer.CC ?????? nao seria mail.CC

Olhos de LINCE. hehehehehehe

Compartilhar este post


Link para o post
Compartilhar em outros sites

NADA, NÃO RECEBO NADA.......

 

<%Destino = "arquivos@terra.com.br"DestinoCC = "rafael.spina@terra.com.br"servidor = "mail.terra.com.br"titulo = "CONSERVE :: Formulário Online"'Retirar dados do formulárionome = Request("vorname")email = Request("email")telefone = Request("telefon")monitorar = Request("uberwachen")mensagem = Request("botschaft")visita = Request("besuch")'Criar objetoSet Mail = Server.CreateObject("Persits.MailSender")' Criar corpo da mensagemstrBody = strBody & "<b><font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#26416A'>"strBody = strBody & "Dados do Usuário <br><br>"strBody = strBody & "</font></b>"strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#26416A'>"strBody = strBody & "Nome: "strBody = strBody & "<b>" & nome & "</b><br><br>"strBody = strBody & "E-mail: "strBody = strBody & "<b>" & email & "</b><br><br>"strBody = strBody & "Telefone: "strBody = strBody & "<b>" & telefone & "</b><br><br>"strBody = strBody & "Desejo monitorar: "strBody = strBody & "<b>" & monitorar & "</b><br><br>"strBody = strBody & "Mensagem: "strBody = strBody & "<b>" & mensagem & "</b><br><br>"strBody = strBody & "Solicito a Visita: "strBody = strBody & "<b>" & visita & "</b><br><br>"strBody = strBody & "</font>" 'Propriedades do ASPMAILMail.Host = servidorMail.Port = 25 ' Valor opcional. 25 é a porta de erroMail.From = "arquivos@terra.com.br"Mail.CC = "rafael.spina@terra.com.br"Mail.FromName = email ' OpcionalMail.Subject = tituloMail.Body = strBodyMail.IsHTML = TrueMail.AddAddress DestinoMail.AddAddress DestinoCCMail.Send' Controlar erros do ASPMAILIf Err <> 0 ThenResponse.Write "popup.mensaje=Error, envíelo mas tarde " & Err.DescriptionElseResponse.Redirect("erfolg.asp")End If'Destruir o aspmailSet Mail = Nothing%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ai Rspina voce ta so esquecendo de uma coisa

você chamo o objeto de mail

e tem uma linha que tah usando mailer

 

Mail.From = "rafael@terra.com.br"
-->Mailer.CC = "carlos@terra.com.br"

muda Mail.CC que deve funciona

Compartilhar este post


Link para o post
Compartilhar em outros sites

Muito boa sua intenção, mas você ressucitou um tópico de 2004...

Compartilhar este post


Link para o post
Compartilhar em outros sites

com certeza foi um bela ressuscitada

 

o membro ja deve ter resolvido ou desistido

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.