Ir para conteúdo
Fórum Script Brasil
  • 0

Enviar Com Cópia para meu e-mail


miltonbarreto

Pergunta

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>

&nbsp;</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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...