Ir para conteúdo

POWERED BY:

Arquivado

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

miltonbarreto

Enviar Com Cópia para meu e-mail

Por , em ASP Clássico

Recommended Posts

miltonbarreto    0

miltonbarreto
Postado

Olá,

 

O que preciso mudar neste código para enviar uma cópia para meu endereço de e-mail também?

 

Desde já agradeço e aguardo

 

 

 

 

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Indique essa página para um amigo</title>
<style type="text/css">
<!--
.textblack
{
font-family: Arial;
font-size: 16px;
text-align: center;
color: red;
}
-->
</style>
</head>

<%
Dim URL, SenderEmail, Message
URL = Request.QueryString("URL")
If Len(URL) = 0 Then URL = "http://www.siteindicadopelointernauta.com.br" 
If Len(Request.Form("SendersEmail")) > 0 Then
Dim objMail,FriendEmail
sBody = "Olá, visite o site " & URL & " recomendado por " & Request.Form("SendersEmail") & vbCrLf & "Messagem:" & vbcrlf & Request.Form("Message")
I=0 
Do While True
FriendEmail = Request.Form("FriendEmail" & I)
If Len(FriendEmail) = 0 Then
Exit Do
Else
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "email@email.com.br"
objMail.Subject = "Visite o site"
objMail.Importance=1
objMail.Body = sBody
objMail.To = FriendEmail
objMail.Send()
End If
I=I+1
Loop
Set objMail = Nothing
Response.write "<p class='textblack'>Obrigado por indicar o site www.siteindicadopelointernauta.com.br"
'Response.write "<p class='textblack'><a href=""" & URL & """>Voltar para " & URL & "</a>"
Else
End If
%> 

<body>

<form method="POST" action="indique.asp?URL=<%= URL %>">
<p align="center">
<font face="Tahoma" size="2"><br>
Recomendar o site <%= URL %></font></p>
<p align="center">
<font face="Tahoma"><font size="2">Seu E-mail<br>
</font>
<input type="text" name="SendersEmail" size="42"></font><p align="center"> 
<font face="Tahoma"><font size="2">E-mail de quem vai receber<br>
1.
</font>
<input type="text" name="FriendEmail0" size="33"><font size="2"><br>
2. </font>
<input type="text" name="FriendEmail1" size="33"><font size="2"><br>
3. </font>
<input type="text" name="FriendEmail2" size="33"><font size="2"><br>
4. </font>
<input type="text" name="FriendEmail3" size="33"></font><p align="center"> 
<font face="Tahoma"><font size="2">Comentários<br>
</font>
<textarea rows="6" name="Message" cols="41"></textarea></font><p align="center">
<font face="Tahoma">
<input type="submit" value="Recomendar"><font size="2"> <br>
 </font></font></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