Newsleter

[jefmolino]

Olá pessoal... tenho esse código, e gostaria de saber como faço, e se é possível, enviar um anexo junto aos e-mails

<%
   Dim rs, mail, subject, message, data_source, sql_select, no

   no = 0
   subject = Request.Form("subject")
   message = Request.Form("message")
   sql_select = "select Email from TCadastro"
   data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ 
                         Server.MapPath("../cadastro.mdb")
   If Len(message) Then

   Set rs = Server.CreateObject("ADODB.Recordset")
   rs.Open sql_select, data_source

   While Not rs.EOF
   Set mail = Server.CreateObject("CDONTS.NewMail")
   mail.From = "seuemail@seuemail.com"
   mail.To = rs("Email")
   mail.Subject = subject
   mail.Body = message & rs("Email")
   mail.Send
   Set mail = Nothing
   Response.Write "E-mail enviado para : " & rs("Email") & "<br>"
   no = no + 1
   rs.MoveNext
   Wend
   Response.Write "E-mail enviado para " & no & " usuário(s)."
   rs.Close
   Set rs = Nothing

   Else
   Response.Redirect "admin.htm"
   End If
 %>

Obrigado a todos...

[armagedon]

use o mail.attachfile server.mappath("teste.gif"), "teste.gif")

[jefmolino]

<%
  Dim rs, mail, anexo ,subject, message, data_source, sql_select, no

  no = 0
  subject = Request.Form("subject")
  message = Request.Form("message")
  anexo = Request.Form("anexo")
  sql_select = "select Email from TCadastro"
  data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ 
                        Server.MapPath("../cadastro.mdb")
  If Len(message) Then

  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open sql_select, data_source

  While Not rs.EOF
  Set mail = Server.CreateObject("CDONTS.NewMail")
  mail.From = "seuemail@seuemail.com"
  mail.To = rs("Email")
  mail.Subject = subject
  mail.attachfile server.mappath(anexo), anexo) 
  mail.Body = message & rs("Email")
  mail.Send
  Set mail = Nothing
  Response.Write "E-mail enviado para : " & rs("Email") & "<br>"
  no = no + 1
  rs.MoveNext
  Wend
  Response.Write "E-mail enviado para " & no & " usuário(s)."
  rs.Close
  Set rs = Nothing

  Else
  Response.Redirect "admin.htm"
  End If
%>
 

Tipow fiz assim, mas não funcionou... tah certo? To vendo isso agora armagedon!

[armagedon]

tipo, o "teste" tem q estar dentro de aspas(") e você tem q colokar a extenção do arquivo...

um ex:

server.mappath("teste.txt"), "Teste"

[jefmolino]

Cara num tah funcionando "A página não pode ser exibida... Erro interno 500", será q o servidor q não suporta?

[armagedon]

qual erro tá dando??

[jefmolino]

esse é o problema, só posso testar direto no servidor,

Se você quiser dar uma olhada tah ai http://www.libihost.net/jefmolino/newsletter/

A página não pode ser exibida

HTTP 500 - erro interno do servidor

[armagedon]

ve ai no seu email, porque eu enviei e não deu erro, eu enviei com anexo mesmo...

[jefmolino]

foi muito mal mesmo armagedon... eu tinha tirado a linha pra fazer testes na hora q você mandou... tenta de novo por favor... e foi mal!

[armagedon]

tipo, você tem q tirar o ")" do final, então vai fikar assim:

mail.attachfile server.mappath("teste.doc"), "teste.doc"

[jefmolino]

realmente nisso eu vacilei, porque num abriu "(", então num tem pra q fechar, agora o codigo tah assim

<%
   Dim rs, mail, teste, subject, message, data_source, sql_select, no

   no = 0
   subject = Request.Form("subject")
   message = Request.Form("message")
   teste = Request.Form("anexo")
   message = message & vbcrlf
   sql_select = "select Email from TCadastro"
   data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ 
                         Server.MapPath("../cadastro.mdb")
   If Len(message) Then
   
   Set rs = Server.CreateObject("ADODB.Recordset")
   rs.Open sql_select, data_source

   While Not rs.EOF
   Set mail = Server.CreateObject("CDONTS.NewMail")
   mail.From = "seuemail@seuemail.com"
   mail.To = rs("Email")
   mail.Subject = subject
   mail.attachfile server.mappath("teste.doc"), "teste.doc" 
   mail.Body = message
   mail.Send
   Set mail = Nothing
   Response.Write "E-mail enviado para : " & rs("Email") & "<br>"
   no = no + 1
   rs.MoveNext
   Wend
   Response.Write "E-mail enviado para " & no & " usuário(s)."
   rs.Close
   Set rs = Nothing

   Else
   Response.Redirect "index.htm"
   End If
 %>

mas num funciona do mesmo jeito!

[armagedon]

você tem certeza q o arquivo teste.doc está no servidor?tem certeza q ele está no local certo?tente adicionar o mail.mailformat = 0

[jefmolino]

A princípio, o que estou fazendo é com q o cara selecione o arq dentro do seu pc,

através do campo file

teste=Request.form("anexo")

Mas vou tentar fazendo com q o arq esteja no servidor, se der certo o cara vai ter sempre q fazer o upload do arq pra poder enviar...

[jefmolino]

com o arq no servidor ele funciona, agora preciso sabe como faço upload sem restringir as regras do servidor... tenho um código q funciona mas ele é bloqueado pelo servidor... gratuito é foda... vlw mesmo armagedon

SE LIGA NAS RESTRIÇÕES

O GLOBAL.ASA não tem utilidade na pasta do usuário, somente no raiz de um domínio.

Evite usar nomes triviais para os bancos de dados. Eles ficam sujeitos a downloads

Pelo mesmo motivo, utilize senhas diretamente no DB (o suporte pode orientar a sintaxe, caso haja dúvida)

Você está autorizado a fazer uso de "Session", exceto Session.Contents

Não é permitido o uso de Application

Não é permitido o uso de Scripting.FileSystemObject

Não é permitido o uso de Server.ScriptTimeout

Não é permitido o uso de VBScript.Encode

Não é permitido o uso do Dundas Upload

Não é permitido o uso do JMAIL, mas é permitido o uso do CDONTS. Se deseja uma página de contato veja no informativo como criar um formulário simples

NUNCA use caminho físico em strings de conexão. Use Server.MapPath("\username\...")

[armagedon]

tipo q pra você poder anexar um arquivo do pc, acho q você tem q primeiro faer o upload pro server, mas como você mesmo disse, o server não tem os componentes

[jefmolino]

Vlw mesmo, e obrigado por sua ajuda,