Jump to content

  2. → Viewing Profile: Posts: pablomica

pablomica

Member Since 23/07/2003
Offline Last Active 22/10/2003, 02:00
-----

Posts I've Made

In Topic: Cartao Virtual

27/09/2003, 08:02

??????????????????????????????/

In Topic: Envio De E-mail

15/08/2003, 14:42

Assim
mail.from= webmaster@dominio.com.br

ou precisa das "" entre o e-mail

In Topic: Envio De E-mail

15/08/2003, 14:06

Num entendi muito bem

In Topic: Envio De E-mail

14/08/2003, 22:48

Ai pessoal esta o codigo completo

Aguardo retorno

<!--#include file="restrito.asp"-->
<!--#include file="cons.asp"-->
<html>
<head>
<title>Administração da NewsLetter Micarregue</title>
<style>
input         {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
textarea      {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
    <font face="Verdana" size="2">
<%	acao=Request.querystring("acao")
	select case acao
	case "enviar"	%>
   <form action="admin.asp?acao=enviando" method="post">
   <input type="hidden" name="data" value="<%=Date()%>">
   <p align="center">
	Assunto :<br>
   <input type="text" name="assunto" size="49"><br>
   Mensagem :<br>
   <textarea name="mensagem" cols="60" rows="15"></textarea><br>
   <input type="submit" value="Enviar">
   </form><BR>
Obs: Todos os e-mails são enviados em formato HTML<BR>
Para quebra de linha utilize a tag "&lt;br&gt;"
   <hr size="1">
   
<% case "enviando" %>
<%	user = 0
   assunto = Request.Form("assunto")
   mensagem = Request.form("mensagem")
   mensagem = mensagem & "<BR><BR><BR>Para parar de receber este email <a href="& site & ">clique aqui</a>"

 AbreConexao
   Sql = "SELECT email FROM dados"
   If Len(mensagem) Then
   
   Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open Sql, ConStr, 3, 3
   
   While Not rs.EOF
   Set mail = Server.CreateObject("CDONTS.NewMail")
   mail.From = email
  ' mail.Host = mail
   mail.To = rs("email")
   mail.Subject = assunto
   mail.BodyFormat = 0
   mail.Body = mensagem 
   'mail.Send
   Set mail = Nothing
   Response.Write "Email enviado para : " & rs("email") & "<br>"
   user = user + 1
   rs.MoveNext
   Wend
   Response.Write "No total foram enviados " & user & " emails."
   rs.Close
   Set rs = Nothing
   Sql = "INSERT INTO enviados (assunto,mensagem,data) "
   Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
   Conexao.Execute(Sql)
   Else
   Response.Redirect "admin.asp?acao=erro"
   End If
   FechaConexao %>

<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
    <td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
    <td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
  </tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>

<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">

<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">

<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>

<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">

<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")     
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
 </body>
</html>

In Topic: Script Para Configurar Webmail

06/08/2003, 14:00

Caro amigo obrigado pela resposta, mas vou ser mais claro.

O que estou querendo um siste de webmail, onde os usuario que pertença aomeu dominio possa receber e enviar e-amil pela minha pagina.


Acho que agora dar pra entender, qualquer coisa estamos as ordens

  1. Fórum WMO
  2. → Viewing Profile: Posts: pablomica
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq