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.siteindic...ernauta.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>
Enviar Com Cópia Para Meu E-mail
Started By Milton José Barreto Filho, 15/09/2008, 14:37
1 reply to this topic
#2
Ted k'
-
- Usuários
-
- 64 posts
Normal
- Sexo:Masculino
- Localidade:Salvador - {BA}
Posted 15/09/2008, 16:13
tente usar o objMail.BCC = "seu email"
+++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ ++
: Ted k' não responde por MP e nem por MSN ou Skype, use o Fórum WMOnline :
::::::::::::::::::::::::::::::::::: ASP + XML + DOM :::::::::::::::::::::::::::::::::::
::: Acesse meu BLOG e confira dicas de ASP :::::::: http://tedk.com.br/blog ::::::
+++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ ++
: Ted k' não responde por MP e nem por MSN ou Skype, use o Fórum WMOnline :
::::::::::::::::::::::::::::::::::: ASP + XML + DOM :::::::::::::::::::::::::::::::::::
::: Acesse meu BLOG e confira dicas de ASP :::::::: http://tedk.com.br/blog ::::::
+++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ ++
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)
