Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
ola, tenho q enviar no email dos clientes (cadastrado num banco de dados em access) as ultimas noticas (4 noticias),
COMO FAZE PARA APARECER ESSA PAGINA NO EMAIL DAS PESSOAS ??? ja tentei INCLUDE, , Redireciomanento como esta no codigo agora mas nao deu certo,. Tem como fazer de outra forma de enviar essa pagina dinamica para o email dos clientes ?
(seria tipo quando você recebe um email das ultimas promoçoes mercado livre etc, soh q no meu caso somente noticia)
>
<%
Response.Buffer = True
'Declara as variaveis a serem usadas neste script
Dim pagina_atual, total_paginas, ComandoSQL, objRS, objRS_atualiza, Conexao, status_envio
'Numero de registros por pagina (emails a serem enviados, neste caso, 10 por vez)
Const registros_por_pagina = 10
'Verifica o numero da pagina de registros a ser consultada
If Request.QueryString("pagina_atual") = "" Or Request.QueryString("pagina_atual") = "0" Then
pagina_atual = 1
Else
pagina_atual = Request("pagina_atual")
End If
'Cria conexao com o banco de dados, informe corretamente o caminho do banco de dados
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Data Source=c:\sites\bancodados.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
'Captura o email dos registros da tabela pela ordem alfabética
ComandoSQL = "SELECT email FROM newsletter ORDER BY email ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
objRS.CacheSize = registros_por_pagina
objRS.Open ComandoSQL, Conexao,,, &H0001
objRS.PageSize = registros_por_pagina
status = ""
If Not objRS.EOF Then
'Informa o numero da pagina a ser utilizada
objRS.AbsolutePage = pagina_atual
'Captura o numero total de paginas criadas
total_paginas = objRS.PageCount
'Calcula o percentual de emails enviados até o momento
status_envio = status_envio & Fix((pagina_atual*100)/total_paginas) & "% enviado<br>"
'Percorre todos os registros da pagina atual para capturar os email a serem enviados a newsletter
For Cont = 1 to objRS.PageSize
'Para mensagem em HTML utilize sempre este bloco no inicio da mensagem a ser enviada
Mensagem = ""
Mensagem = Mensagem & "<html><head>"
Mensagem = Mensagem & "<meta http-equiv='refresh' content='0;URL=http://www.site.com.br/noticias.asp'></head>"
Mensagem = Mensagem & "<BODY></BODY>"
Mensagem = Mensagem & "</html>"'Envia a mensagem para o email do registro atual
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
'Informa o email atual a ser enviado
ObjMail.to = objRS("email")
'Informa o email do remetente, o titulo do email e outras configurações
ObjMail.from = "email@terra.com.br"
ObjMail.subject = "titulo"
ObjMail.Importance = 1
ObjMail.BodyFormat = 0
ObjMail.MailFormat = 0
'Informa o texto da mensagem
ObjMail.body = Mensagem
'Envia o email
ObjMail.send
'Elimina variavel da memória
Set ObjMail = nothing
'Vai para o proximo registro da pagina
objRS.MoveNext
If objRS.EOF Then Exit For
Next
%>
<html>
<head>
<title>Newsletter</title>
</head>
<body><%
If Int(pagina_atual) < Int(total_paginas) Then
'Informa o status do envio da newsletter
Response.Write status_envio
'Codigo JavaScript para atualizar a pagina e enviar os proximos emails, neste caso, a cada 5 segundos
%>
<br>
Aguarde o envio da Newsletter...
<script LANGUAGE="JavaScript">
<!--
function atualiza(){
document.location.href = "<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina_atual=<%=pagina_atual+1%>"
}
setTimeout("atualiza()",5000);
//-->
</SCRIPT>
<%
Else
'Informa que o envio da newsletter foi concluido
%>
Envio da Newsletter concluido.
<%
End If
End If
%>
</body>
</html><%
'Fecha a conexao com o banco de dados
objRS.Close
Conexao.Close
'Elimina as variaveis da memória do servidor
Set pagina_atual = Nothing
Set total_paginas = Nothing
Set ComandoSQL = Nothing
Set objRS = Nothing
Set objRS_atualiza = Nothing
Set Conexao = Nothing
Set status_envio = Nothing
%>
DA UMA LUZ AEE
Carregando comentários...