Ir para conteúdo

POWERED BY:

Arquivado

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

kaplan

enviando e-mail

Por , em ASP Clássico

Recommended Posts

kaplan    0

kaplan
Postado

so esta recebendo a primeira pessoa e a copia oculta e naum apareçe nenhum erro, eu to usando o cdonts

 

ASP

[*]

 

[*]<%

 

[*]

 

[*]'Validando os campos dos formulários

 

[*]

 

[*]Rnome =  TRIM (Request.Form("Rnome"))

 

[*]Remail  =  TRIM (Request.Form("Remail"))

 

[*]Demail  =  TRIM (Request.Form("Demail"))

 

[*]Demail1 =  TRIM (Request.Form("Demail1"))

 

[*]Demail2 =  TRIM (Request.Form("Demail2"))

 

[*]Demail3 =  TRIM (Request.Form("Demail3"))

 

[*]Demail4 =  TRIM (Request.Form("Demail4"))

 

[*]Demail5 =  TRIM (Request.Form("Demail5"))

 

[*]comentario =  TRIM (Request.Form("comentario"))

 

[*]

 

[*]

 

[*]

 

[*]Set Mailer = CreateObject("CDONTS.NewMail")

 

[*]

 

[*]'E-mail de quem esta enviando a mensagem 

 

[*]Mailer.From = Request.Form("Remail")

 

[*]

 

[*]'E-mail de quem vai receber a mensagem

 

[*]Mailer.To = Request.Form("Demail") 

 

[*]

 

[*]'Com Cópia 

 

[*]Mailer.CC = Request.Form("Demail2")

 

[*]Mailer.CC = Request.Form("Demail3")

 

[*]Mailer.CC = Request.Form("Demail4")

 

[*]Mailer.CC = Request.Form("Demail5")

 

[*]

 

[*]'Copia Oculta

 

[*]Mailer.Bcc = "tiagossj4@terra.com.br"

 

[*]'Mailer.Bcc = "mentesabertas@gmail.com"

 

[*]

 

[*]Mailer.BodyFormat = 1 ' parametro de formatação 

 

[*]Mailer.MailFormat = cdoMailFormatText ' parametro de formatação 

 

[*]'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail

 

[*]Mailer.Subject = "Recomende" 

 

[*]

 

[*]'Mailer.Body = "<html><body>Revista <span style=""color:#ff0000;text-weight:bold"">www.com.br</span>" & _

 

[*]'"<br><a href=""http://www.superasp.com.br/"">SuperASP</a></body></html>"

 

[*]

 

[*]strBody = strBody & "Ola o seu amigo " & Rnome & " - " & Remail & " indicou você para conheçer o site" & "<br>"

 

[*]strBody = strBody & "http://www.blitz-bar.com " & "<br>"

 

[*]strBody = strBody & "Veja só o comentário dele: " & "<br><br>"

 

[*]strBody = strBody & Request.Form("comentario") & "<br><br>"

 

[*]strBody = strBody & "Atenciosamente" & "<br><br>"

 

[*]strBody = strBody & "Equipe Blitz Bar.Com"

 

[*]

 

[*]Mailer.Body = strBody

 

[*]

 

[*]Mailer.BodyFormat = 0

 

[*]

 

[*]Mailer.MailFormat = 0

 

[*]

 

[*]Mailer.Send

 

[*]

 

[*]

 

[*]Response.Write("Mensagem Enviada")

 

[*]

 

[*]Set Mailer = Nothing 

 

[*]%>

 

[*]

 

me ajudem

Compartilhar este post

Link para o post
Compartilhar em outros sites

Public2004    79

Public2004
Postado

Olá Amigo, porque você não faz um LOOP. Veja no exemplo abaixo, muito simples.

 

<%

I=0

Do While True

Demail = Request.Form("Demail" & I)

If Len(Demail) = 0 Then

Exit Do

Else

Set Mailer = CreateObject("CDONTS.NewMail")

Mailer.From = "seuemail@seudominio.com.br"

Mailer.Subject = "Titulo do email"

Mailer.BodyFormat = 0

Mailer.MailFormat = 0

Mailer.Body = strBody

Mailer.To = Demail

Mailer.Send()

End If

I=I+1

Loop

Set Mailer = Nothing

%>

 

O nome dos campos de formulário continuam: Demail1, Demail2, Demail3, etc...

 

Valew !++! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

O exemplo do colega aí em cima é bom, mas vamos analizar o seu código.

 

Presta atenção:

 

Mailer.CC = Request.Form("Demail2")

Mailer.CC = Request.Form("Demail3")

Mailer.CC = Request.Form("Demail4") ' tudo isso aqui é inutil.

 

Mailer.CC = Request.Form("Demail5") ' pois vai ter esse valor aqui

 

A cada linha você está setando um novo valor para a propriedade.

 

O correto seria algo assim separando por vírgulas se não me engano

Mailer.CC = Request.Form("Demail2") & "," & Request.Form("Demail3") & "," & Request.Form("Demail4") & "," & Request.Form("Demail5")

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaplan    0

kaplan
Postado

vai fikar assim entao

 

ASP

[*]

 

[*]<%

 

[*]

 

[*]'Validando os campos dos formulários

 

[*]

 

[*]Rnome =  TRIM (Request.Form("Rnome"))

 

[*]Remail  =  TRIM (Request.Form("Remail"))

 

[*]Demail  =  TRIM (Request.Form("Demail"))

 

[*]Demail1 =  TRIM (Request.Form("Demail1"))

 

[*]Demail2 =  TRIM (Request.Form("Demail2"))

 

[*]Demail3 =  TRIM (Request.Form("Demail3"))

 

[*]Demail4 =  TRIM (Request.Form("Demail4"))

 

[*]Demail5 =  TRIM (Request.Form("Demail5"))

 

[*]comentario =  TRIM (Request.Form("comentario"))

 

[*]

 

[*]I=0

 

[*]Do While True

 

[*]  Demail = Request.Form("Demail" & I)

 

[*]  If Len(Demail) = 0 Then

 

[*]  Exit Do

 

[*]  Else

 

[*]

 

[*]  Set Mailer = CreateObject("CDONTS.NewMail")

 

[*]

 

[*]'E-mail de quem esta enviando a mensagem 

 

[*] Mailer.From = Request.Form("Remail")

 

[*]

 

[*]'E-mail de quem vai receber a mensagem

 

[*] Mailer.To = Request.Form("Demail") 

 

[*]

 

[*]'Com Cópia 

 

[*] Mailer.CC = Request.Form("Demail2") & "," & Request.Form("Demail3") & "," & Request.Form("Demail4") & "," & Request.Form("Demail5")

 

[*]

 

[*]'Copia Oculta

 

[*] Mailer.Bcc = "tiagossj4@terra.com.br"

 

[*]'Mailer.Bcc = "mentesabertas@gmail.com"

 

[*]

 

[*]'Parametro de formatação

 

[*] Mailer.BodyFormat = 1

 

[*]'Parametro de formatação

 

[*] Mailer.MailFormat = cdoMailFormatText 

 

[*]  

 

[*]'caso queira anexar algum arquivo ao seu e-mail

 

[*]  'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 

 

[*]

 

[*] Mailer.Subject = "Recomende" 

 

[*]

 

[*] strBody = strBody & "Ola o seu amigo " & Rnome & " - " & Remail & " indicou você para conheçer o site" & "<br>"

 

[*] strBody = strBody & "http://www.blitz-bar.com " & "<br>"

 

[*] strBody = strBody & "Veja só o comentário dele: " & "<br><br>"

 

[*] strBody = strBody & Request.Form("comentario") & "<br><br>"

 

[*] strBody = strBody & "Atenciosamente" & "<br><br>"

 

[*] strBody = strBody & "Equipe Blitz Bar.Com"

 

[*]

 

[*] Mailer.Body = strBody

 

[*]

 

[*] Mailer.BodyFormat = 0

 

[*]

 

[*] Mailer.MailFormat = 0

 

[*]

 

[*] Mailer.Send()

 

[*]

 

[*]  End If

 

[*]I=I+1

 

[*]Loop

 

[*]

 

[*]Set Mailer = Nothing 

 

[*]%>

 

[*]

 

mais naum ta funcionando ninguem ta recebendo, o q eu estou fazendo de errado?

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