Cartoes Virtuais

[Tigger 0]

Seguinte..Aqui na empresa tem um procedimento para com os cliente, onde em cada aniversario dos mesmo, e mandado um cartao de aniversario para o "cara"..Estive pensando em saber se tem com fazer, com que isso possa ser automatizado...via WEb....com assim..Gostaria de saber se com a base de dados de aniversario, dos cliente, eu posso fazer com que isso seje mandando via ASP.Iria entao utilizar, CDONTS, ou outro componente...só um detalhe, esse "sisteminha", teria que mandar uma imagem em .JPG que e a extensao do cartao para o cliente...entao minha duvida se baseia no seguiite, tem condicoes de fazer isso.. :assobiando:

[[rush_jeff_rulez] 0]

Opa

 

Certamente cara, faz um script q consulta o bd de datas ... se for igual a data de hoje ele envia o email .... ae a imagem JPG você coloca como codigo no corpo do email:

 

ASP

[*]Mailer.HTMLText = Mailer.HTMLText & "<img src=http://seusite.com.br/aniversariantes.jpg>"

 

Rola facil cara

[Tigger 0]

hI!!Podem crer, cara...era isso mesmo que eu estava querendo...valew pela confirmacao.

[Tigger 0]

Algum expert poderia me mostrar como seria o "esqueleto" do codigo

ASP

[*]

 

[*]IF RS("DATA_ANIVERSARIO") = DATE() THEN

 

[*]  Response.Write" Manda Email "

 

[*]ELSE

 

[*]  Response.Write " Nao manda email "

 

[*]END IF

 

[*]

[[rush_jeff_rulez] 0]

Boa, nao sou expert e to mto longe disso massssss..... enrola eu sei huahuahaha ... entao cara eh isso mesmo ... tipo

 

 

ASP

 

 

 

 

[*]WHILE NOT rs.EOF

[*]

 

[*]hoje = Date()

[*]data = rs("DATA_ANIVERSARIO")

[*]

 

[*]IF CDATE(hoje) = CDATE(data) THEN

[*]'script de envio de email

[*]ELSE

[*]Response.Write "Nenhum cliente faz aniversário hoje"

[*]END IF

[*]

 

[*]rs.MOVENEXT

[*]WEND

 

Eh soh um exemplo ... ai você adapta conforme suas necessidades !!

[Mário Monteiro 179]

cara faz o seguinte selciona primeiro os que fazem aniversarioSELECT CAMPO FROM TABELA WHERE NIVER = #" & Date & "#"depois poe no loop o resultadoWHILE NOT rs.EOF 'script de envio de emailrs.MOVENEXTWENDnão precisa testar a data dentro pois você já selecionou quem faz no dia...

[Tigger 0]

Da para fazer caso o SELECT encontra mais de uma pessoas fazendo avinversaio no dia.....sera que eu consigo manipular o codigo CDONTS para fazer isso, mandar para mais de uma pessoa.

[[rush_jeff_rulez] 0]

De certo q sim ... mas caso nao consiga use o SMTPMail .... se tu tiver no server !!!Server.CreateObject("SoftArtisans.SMTPMail")Dah na mesma !!!

[Tigger 0]

Sera que eu nao arranjo um disparador de email free.... ae por ae na net nao...ou se alguem soubter de um..

[explore 3]

usa o Jamil,, creio que funfa

[Mário Monteiro 179]

Sera que eu nao arranjo um disparador de email free.... ae por ae na net nao...ou se alguem soubter de um..

como assim disparador de email??

 

esquema postado acima vai funcionar pra quantos aniversariantes tiver (mas se forem muito mesmo pode dar time out, mas prum lance desse simples acho dificil)

 

basta você colocar dentro do loop o send.mail da vida...

[Mário Monteiro 179]

Sera que eu nao arranjo um disparador de email free.... ae por ae na net nao...ou se alguem soubter de um..

como assim disparador de email??

 

esquema postado acima vai funcionar pra quantos aniversariantes tiver (mas se forem muito mesmo pode dar time out, mas prum lance desse simples acho dificil)

 

basta você colocar dentro do loop o send.mail da vida...

[Tigger 0]

Sera que esse script vai rodar...

ASP

[*]<%

 

[*]SQL = "SELECT * FROM ANIVERSARIANTES"

 

[*]SQL = SQL & " WHERE "

 

[*]SQL = SQL & " AN_NASCIMENTO = #" & Date() &"#"

 

[*] SET RS = Cnn.execute(SQL)

 

[*]

 

[*]IF RS.EOF THEN

 

[*]

 

[*]  WHILE NOT RS.EOF 

 

[*]

 

[*]  'Roda envio de email´s

 

[*]

 

[*]  RS.MoveNext

 

[*]  WEND

 

[*]

 

[*]ELSE

 

[*]

 

[*]  Response.Write("Não existe nenhum aniversariante hje...")

 

[*]

 

[*]END IF 

 

[*]%>

[Salgado 4]

Sera que esse script vai rodar...

ASP

1. <%<br />SQL = "SELECT * FROM ANIVERSARIANTES"<br />SQL = SQL & " WHERE "<br />SQL = SQL & " AN_NASCIMENTO = #" & Date() &"#"<br /> SET RS = Cnn.execute(SQL)<br /><br />IF RS.EOF THEN<br /><br />  WHILE NOT RS.EOF <br /><br />  'Roda envio de email´s<br /><br />  RS.MoveNext<br />  WEND<br /><br />ELSE<br /><br />  Response.Write("Não existe nenhum aniversariante hje...")<br /><br />END IF <br />%>
   

<{POST_SNAPBACK}>

Você cadastra a data completa de nascimento?

Se sim, você deve buscar pelo Dia e Mês corrente dentro da data de nascimento, algo +/- assim:

ASP

1. SQL = "SELECT * FROM ANIVERSARIANTES"
    
   
2. SQL = SQL & " WHERE"
    
   
3. SQL = SQL & " DAY(AN_NASCIMENTO) = "& DAY(Now()) &" "
    
   
4. SQL = SQL & " AND MONTH(AN_NASCIMENTO) = "& DAY(Now()) &";"
   

[Tigger 0]

I e na verdade o cadastro e feito completo...entao se eu gerar essa SQL sera que vai funcionar....

[Mário Monteiro 179]

I e na verdade o cadastro e feito completo...entao se eu gerar essa SQL sera que vai funcionar....

funciona sim , mas faça o esquema do tio salgado, pois pra determinar os niversariantes do dia basta dia e mes, pois podem ter aniverariantes que nasceram nos mais diversos anos...

[Tigger 0]

ASP

[*]

 

[*]<%

 

[*]'*** CRIANDO CONEXAO COM O BANCO DE DADOS

 

[*]Set Cnn = Server.CreateObject("ADODB.Connection")

 

[*]Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\Psv_Map\C_22\Inetpub\Bruno\AMZ\CARTAO\dados.mdb"

 

[*]

 

[*]'*** INICIANDO O CODIGO DE CONSULTA A DADOS

 

[*]

 

[*]SQL = "SELECT * FROM ANIVERSARIANTES"

 

[*]

 

[*]SQL = SQL & " WHERE"

 

[*]

 

[*]'***COMO FACO A COMPARACAO PELO DIA TAMBEM???

 

[*]

 

[*]'SQL = SQL & " Date(AN_NASCIMENTO)  = "& LEFT(Date(),1) &" "

 

[*]

 

[*]SQL = SQL & " Month(AN_NASCIMENTO) = "& Month(Now())  &" "

 

[*]

 

[*]SQL = SQL & " AND Year(AN_NASCIMENTO) = "& Year(Now()) &" "

 

[*]

 

[*]  SET RS = Cnn.execute(SQL)

 

[*]

 

[*]'*** VERIFICANDO SE EXISTE ALGUM REGISTRO DE ACORDO COM A CONDICAO

 

[*]IF NOT RS.EOF THEN  

 

[*]

 

[*]'*** LOOP QUE E GERADO PARA CONTAR QUANTOS QUE SAO OS ANIVERSARIANTES

 

[*] WHILE NOT RS.EOF 

 

[*]

 

[*] contador = contador + 1

 

[*] '*** IMPRINDO A QUANTIDADE DE ANIVERSARIANTES

 

[*] Response.Write("Existem "&contador&" aniversarios esse mes!!")

 

[*]

 

[*] RS.MOVENEXT

 

[*] WEND

 

[*]

 

[*]ELSE

 

[*] Response.Write("Nao existem aniversarios esse mes..")

 

[*]

 

[*]END IF 

 

[*]

 

[*]%> 

 

[*]

 

onde eu coloco, o codigo de envio de email...e se for mais de uma aniversariante....como fica a estrutura do codigo CDONTS...por exmplo..

[Marcelo Barcellos 0]

  WHILE NOT RS.EOF 

 

    contador = contador + 1

        '*** IMPRINDO A QUANTIDADE DE ANIVERSARIANTES

        Response.Write("Existem "&contador&" aniversarios esse mes!!")    

     

        '************** AQUI VAI O SCRIPT DE E-MAIL ************

 

        

  RS.MOVENEXT

  WEND    

  

ELSE

        Response.Write("Nao existem aniversarios esse mes..")

        

END IF 

 

%> [/ASP]

 

onde eu coloco, o codigo de envio de email...e se for mais de uma aniversariante....como fica a estrutura do codigo CDONTS...por exmplo..

<{POST_SNAPBACK}>

Faça assim:

[Salgado 4]

Putz, desculpe Tigger! Escrevi uma coisa e postei o código errado, já corrigi lá no meu post anterior.

[Marcelo Barcellos 0]

Corrigindo o TIO Salgado...

SQL = "SELECT * FROM ANIVERSARIANTES" SQL = SQL & " WHERE"SQL = SQL & " DAY(AN_NASCIMENTO) = "& DAY(Now()) &" "SQL = SQL & " AND MONTH(AN_NASCIMENTO) = "& Month(Now()) &";"