Ir para conteúdo

POWERED BY:

Arquivado

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

Mosquitinho

cdonts

Por , em ASP Clássico

Recommended Posts

Mosquitinho    0

Mosquitinho
Postado

komo faço pra mandar um cdonts pra mias de um e-mail?

 

 

to usandu o "prara" komo uma variavel

 

 

ASP

[*]var_to = "c.rodrigues@mb1.com.br"

 

 

E só por ponto e virgula que ele manda para os dois?

 

 

Obrigadu

Compartilhar este post

Link para o post
Compartilhar em outros sites

Generation    0

Generation
Postado

Sim so com ponto e virgula...pelo meno ja fiz assim

 

 

ASP

[*]EMAIL.To = "email@dominio.com.br;outroemail@outrodominio.com.br"

 

 

T+

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mosquitinho    0

Mosquitinho
Postado

aew ta indu nao olha o código, ajuda aew plz.

 

 

 

ASP

[*]<%@LANGUAGE="vb script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]

 

[*]'verifica se o campo fone esta preenchido

 

[*]If trim(Request.Form("Fone")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Fone em branco. \n \nFavor digitar o Telefone.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]

 

[*]If trim(Request.Form("Senha")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Senha em branco. \n \nFavor digitar a Senha.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]

 

[*]If trim(Request.Form("Fone")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Login em branco. \n \nFavor digitar o Login.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]'você pode fazer verificações para todos os campos....

 

[*]

 

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

 

[*]EnviarMail.To = var_to

 

[*]EnviarMail.From = var_email

 

[*]EnviarMail.Subject = "Meu Site - Contatos"

 

[*]MsgBody = "<html>" _

 

[*]& "<head>" _

 

[*]& "</head>" _

 

[*]& "<body bgcolor=""#FFFFFF"">" _

 

[*]& "<p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu o cadástro de: <b>" & var_nome & "</b> <br>Email: <b>" & var_email & "</b><br>Nascimento: <b>" & var_nasc & "</b><br>Rua: <b>" & var_rua & "</b><br>Bairro: <b>" & var_bairro & "</b><br>Cidade: <b>" & var_cidade & "</b><br>Estado: <b>" & var_estado & "</b><br>País: <b>" & var_pais & "</b><br>Cep: <b>" & var_cep & "</b><br>Fone: <b>" & var_fone & "</b><br>Login: <b>" & var_login & "</b><br>Senha: <b>" & var_senha & "</b></font>" _

 

[*]& "</body>" _

 

[*]& "</html>"

 

[*]EnviarMail.Body = MsgBody

 

[*]EnviarMail.Importance = 1

 

[*]EnviarMail.BodyFormat = 0

 

[*]EnviarMail.MailFormat = 0

 

[*]EnviarMail.Send

 

[*]

 

[*]Set EnviarMail = Nothing

 

[*]

 

[*]End If

 

[*]Response.redirect "http://www.anacont.com.br"

 

[*]%>

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Generation    0

Generation
Postado

Opa beleza?

 

Era pra funcionar, estranho.... ja que é para voce mesmo o email use a propriedade com copia..

 

ASP

[*]EnviarMail.To = "alex@mb1.com.br"

 

[*]EnviarMail.CC = "c.rodrigues@mb1.com.br"

 

Ou Veja a sintaxe completa..

http://msdn.microsoft.com/library/default....ts_library_.asp

 

Pode ser seu server....

 

 

T+

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você pode colocar em um loop a parte que envia o email ai só muda o destino antes...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

poe em loopEnviarMail.To = var_toEnviarMail.Sendmuda o email e o resto fica igual

Compartilhar este post

Link para o post
Compartilhar em outros sites

Generation    0

Generation
Postado

Mario me permite?

 

seria isso que você sugeriu? ...

 

ASP

[*]<%

 

[*]var_to = "c.rodrigues@mb1.com.br;alex@mb1.com.br"

 

[*]email = Split(var_to,";")

 

[*]

 

[*]For i=0 to 1 

 

[*]  EnviarMail.To = email(i)

 

[*]  EnviarMail.Send

 

[*]Next

 

[*]%>

 

rs corrigido ! daki a poko to colocando Wend rs

 

 

T+

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

esse Then ai no FOR ta certo????????Eu vi um Then Ali eu naum sou louko!!!!! hahahahaahhaahahahahahahaTiro rapidinho!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

algo assim mesmo Generationse os emails estiverem em db é possivel usar um loop while pra mandar pra todos

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Pessoal, não precisa de nenhum loop nisso, pois você trocando a virgula por ; e colocando no email.to a var_to ele ja vai enviar para todos, quando colocamos no campo para de um email, colocamos assim, email1@provedor.com.br;email2@provedor.com.br, etcc

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fernando_Bittencourt    0

Fernando_Bittencourt
Postado

mas cabral, nao tem um limite se fizer desse modo?tipo qro mandar uma mala direta pros clienteseu uso o for tb...porem se fizer assim eh mais rapido...qtos caracteres a string do .To suporta? Sera q tem essa limitacao?uma vez eu li a documentacao do CDOSYS e parece q tem limite de envio simse alguem souber por favor poste ai

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Ah sim, eu não tenhu essa informação, neste ponto você pode estar correto, mas desde que entenda a lógica que eu disse é válido, mas não tenhu essa informação sobre limite desculpe

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