Ir para conteúdo

POWERED BY:

Arquivado

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

zanelati2002

[Resolvido] Enviar mensagem para aniversariante

Por , em ASP Clássico

Recommended Posts

Mário Monteiro    179

Mário Monteiro
Postado

Que bom que resolveu

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

Amigos vejam só quiz fazer uma graça para enviar os e-mails mais acontece que não percebi ele manda tipo tem 8 aniversarios ta mandando as mensagem para todos os users não somente para aquele

 

olha o codigo

 

<% 
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dados.mdb")
Set rs = Server.CreateObject("ADODB.Recordset") 
'SELECIONE Nome e a Data de Nascimento DA Tabela Usuarios ONDE o MES de Nascimento seja Igual ao MES 
'Atual e a DIA seja Igual ao DIA de Hoje, ORDENADOS por ANO de Nascimento
SQL = "SELECT username, email, dob FROM users WHERE MONTH(dob)="
SQL = SQL & "MONTH(NOW()) AND DAY(dob)=DAY(NOW()) ORDER BY YEAR(dob)"
rs.Open SQL, Conexao,3,3
  If rs.EOF Then ' Se não encontrou registros escreva
	  Response.Write("<p align=center><b>Não há Aniversáriantes Para o Dia de Hoje.</B>")
  Else 'Se encontrou registros escreva
do while not rs.eof
   response.write("Nome: <b>"& rs("username" )&" </b><br>Idade: <b>"  & DateDiff("yyyy",rs("dob"),Now) & "</b> anos <br>")

Set Mail = Server.CreateObject("JMail.SMTPMail")
corpo = corpo & "<head>" & vbcrlf
corpo = corpo & "<LINK href='http://www.onemasters.com/images/estilos.css' rel=stylesheet type=text/css>" & vbcrlf
corpo = corpo & "<LINK href='http://www.onemasters.com/images/padrao.css' rel='stylesheet' type=text/css>" & vbcrlf
corpo = corpo & "<body background='http://www.onemasters.com/bg_site.bmp'>" & vbcrlf
corpo = corpo & "<div align='center'>" & vbcrlf
corpo = corpo & "	<table border='0' width='74%'>" & vbcrlf
corpo = corpo & "		<tr>" & vbcrlf
corpo = corpo & "			<td align='center' valign='top'>" & vbcrlf
corpo = corpo & "			<table border='0' width='100%'>" & vbcrlf
corpo = corpo & "				<tr>" & vbcrlf
corpo = corpo & "					<td><font size='2'>Olá <b>"& rs("username") &"</b>, hoje você completa " & vbcrlf
corpo = corpo & "					mais <b>" & DateDiff("yyyy",rs("dob"),Now) &"</b> Anos, nos da Onemasters.com, desejamos a você " & vbcrlf
corpo = corpo & "					muitas felicidade e num gesto simples te enviamos este " & vbcrlf
corpo = corpo & "					Cartão de Feliz Aniversário, não deixe de acessar nosso site " & vbcrlf
corpo = corpo & "					estamos atualizando todos os dias. Adicionamos varias seções " & vbcrlf
corpo = corpo & "					novas acesse com seu login e senha, e saiba mais.</font><p>" & vbcrlf
corpo = corpo & "					<font size='2'>Um Ótimo dia e Feliz Aniversário</font></p>" & vbcrlf
corpo = corpo & "					<p> </p>" & vbcrlf
corpo = corpo & "					<p><font size='2'>Com carinho </font></p>" & vbcrlf
corpo = corpo & "					<p> <p><b><font size='2'>" & vbcrlf
corpo = corpo & "					<a target='_blank' href='http://www.onemasters.com'>" & vbcrlf
corpo = corpo & "					Onemasters.com</a></font></b><p> </td>" & vbcrlf
corpo = corpo & "				</tr>" & vbcrlf
corpo = corpo & "			</table>" & vbcrlf
corpo = corpo & "			</td>" & vbcrlf
corpo = corpo & "			<td width='332'>" & vbcrlf
corpo = corpo & "			<img border='0' src='http://www.onemasters.com/images/bolaslaco.jpg' width='332' height='400'></td>" & vbcrlf
corpo = corpo & "		</tr>" & vbcrlf
corpo = corpo & "	</table>" & vbcrlf
corpo = corpo & "</div><p align='center'> </p>" & vbcrlf
corpo = corpo & "				<table cellSpacing='0' cellPadding='0' width='100%' border='0'>" & vbcrlf
corpo = corpo & "					<tr align='middle'>" & vbcrlf
corpo = corpo & "						<td><a href='http://www.maiscliques.com/index.php?ref=onemas' target='_blank'><img src='http://www.maiscliques.com/banners/banner3.gif' border='0'></a></td>" & vbcrlf
corpo = corpo & "					</tr>" & vbcrlf
corpo = corpo & "				</table>" & vbcrlf

Mail.ServerAddress = "mail.onemasters.com"
Mail.Logging = True
Mail.Sender = "admin@onemasters.com" 
Mail.SenderName = "Onemasters.com"
Mail.AddRecipient emailUser
Mail.Subject = "Feliz Aniversário"
Mail.HTMLBody = corpo
Mail.Execute
Set Mail = Nothing 

rs.movenext
loop
response.write(" Total: <b>" & rs.recordcount & "</b> Membros")

 End If

rs.Close
Set rs = Nothing
Conexao.Close
Set Conexao = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas nao é para mandar para todos os aniversariantes?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

as recebe 8 emails iguais para ele ou recebe os emails dos 8 aniversariantes?

 

onde esta a linha que define o email e onde esta a linah do send

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

se preferir posso reenviar o e-mail para você ver me da seu email ai te mando

 

tipo em um só email ta vindo todos os users e datas mais ta enviando para todos tipo não ta enviando email por email e sim o membro ta recebendo que faz aniversario um email grande me da seu email que te passo a copia

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

Amigo sera que não é o final do email

border='0'></a></td>" & vbcrlf

corpo = corpo & " </tr>" & vbcrlf

corpo = corpo & " </table>" & vbcrlf

 

não ta com o fechamento da

 

corpo = corpo & "</body>" & vbcrlf

corpo = corpo & "</html>" & vbcrlf

 

ou não

 

e como ter certeza que o membro recebeu mesmo o email

Mail.AddRecipient emailUser

 

sera que ta certo

não tem alguma coisa pra fazer no codigo pra ter certeza que o membro recebeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o problema é que ta juntando o corpo do email sem limpar seu valor

 

Assim o que ocorre o primeiro recebe o email corretamente

O segundo recebe dados do primeiro e o dele

Assim por diante

 

Para corrigir apenas coloque antes de

 

corpo = corpo & "<head>" & vbcrlf

a seguinte linha

 

corpo = ""

teste

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

beleza mario era isto mesmo

Deus certo mais quero tirar mais um duvida existe alguma maneira de saber se o user recebeu este email ou não tipo solicitar resposta

 

Mail.ServerAddress = "mail.onemasters.com"
Mail.Logging = True
Mail.Sender = "admin@onemasters.com" 
Mail.SenderName = "Onemasters.com"
Mail.AddRecipient emailUser
Mail.Subject = "Feliz Aniversário"
Mail.HTMLBody = corpo
Mail.Execute
Set Mail = Nothing

Por uma destas variaveis ou não o que me fala

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

na verdade nao sei te dizer pois pouco explorei os componentes de email

 

que bom qeu resolveu o seu problema

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Abra outro topico

 

Vou dar este como resolvido

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