Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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">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>"<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></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>Carregando comentários...