miltonbarreto Postado Setembro 15, 2008 Denunciar Share Postado Setembro 15, 2008 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, MessageURL = Request.QueryString("URL")If Len(URL) = 0 Then URL = "http://www.siteindicadopelointernauta.com.br" If Len(Request.Form("SendersEmail")) > 0 ThenDim objMail,FriendEmailsBody = "Olá, visite o site " & URL & " recomendado por " & Request.Form("SendersEmail") & vbCrLf & "Messagem:" & vbcrlf & Request.Form("Message")I=0 Do While TrueFriendEmail = Request.Form("FriendEmail" & I)If Len(FriendEmail) = 0 ThenExit DoElseSet objMail = CreateObject("CDONTS.NewMail")objMail.From = "email@email.com.br"objMail.Subject = "Visite o site"objMail.Importance=1objMail.Body = sBodyobjMail.To = FriendEmailobjMail.Send()End IfI=I+1LoopSet objMail = NothingResponse.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>"ElseEnd 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> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Rafael Spilki Postado Setembro 15, 2008 Denunciar Share Postado Setembro 15, 2008 Boa tarde.logo abaixo desta parte:objMail.To = FriendEmail você adiciona esta parte: objMail.Cc = seu e-mailAcho que é isso! qualquer. coisa postaí![]'s Rafael Spilki Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
miltonbarreto
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>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.