Exemplo de envio de e-mail para usuários em base de dados utilizando o componente CDONTS podendo escolher os usuários através de checkbox.
em 15/06/2007 00:00
Primeiro temos que ter um banco de dados para buscar as informações dos usuários, para isto crie um banco de dados com uma tabela com os seguintes campos:
nome | email
Abaixo o código da página para listar os dados dos usuários e montar o checkbox para escolha.
'Aqui vamos abrir a conexão para resgatar valores do banco de dados
strCon = "DBQ=c:inetpubwwwrootseu_banco_de_dados.mdb;Driver={Microsoft Access Driver (*.mdb)};"
'Aqui faremos o action apontando para a página de envio.
<% 'Aqui faremos a alternação das linhas da tabela, lembrando que não devemos colocar fora da linha ASP. objRS.MoveFirst While Not objRS.EOF if cor ="#FFFFFF" then cor = "#CCCCCC" else cor ="#FFFFFF" end if response.Write "" %> <% 'Listaremos nome no recordset. %> <% 'Listaremos e-mail no recordset. %> <% objRS.MoveNext Wend Else %> Não existe nomes a serem listados <% End If %>
> Nome E-mail
'Passamos valor do e-mail para checkbox que separa valores escolhidos por ",".
"/> <%=objRS("nome")%> <%=objRS("email")%>
O resultado da página acima:
Agora basta criar a página onde será efetuado o disparo de e-mail em nosso caso set.asp segue o código:
'Resgata valor checkbox separados por vírgula.
strP=request.form("box")
ArrP=split( strP , "," ) 'No caso coloquei virgula, pois o separador é este, caso seja outro basta mudara para o desejado.
'Faz o loop para enviar até que dispare todos os selecionados.
objMail.From = "[email protected]_provedor.com.br"
objMail.To = ArrP(i)
objMail.Subject = objRS("titulo")
sHTML = sHTML & "Envio e-mail"
sHTML = sHTML & "Olá você usou o sistema de disparo de e-mail em massa!"
objMail.body = sHTML
Response.Write "Foi encontrado um erro (" & Err.Description & ")."
'Fim loop.
'Gera alerta de envio ao fim do código.
Neste exemplo vimos como disparar e-mail's para usuários do banco de dados escolhindos através de um checkbox.
Espero que ajude no dia-dia.
DATE_FORMAT no PostgreSQL
Artigo que demonstra como utilizar a função TO_DATE(text,text) do PostgreeSQL. Função que no MySQL é utilizada como DATE_FORMAT, confira.