Ir para conteúdo
Fórum Script Brasil
  • 0

Envio Para E-mails De Um Banco De Dados


Guest Thiago Dutra

Pergunta

Guest Thiago Dutra

Olá

Eu gostaria de uma ajuda referente a enviar e-mails

para todos os e-mails de um banco de dados:

está dando o segunte erro

HTTP 500 - ERRO INTERNO DO SERVIDOR

O que acontece?

Onde está errado?

Obrigado

Thiago Dutra

<%

ConnString="DBQ=e:/home/oclusivo1/web/thi.mdb;Driver={Microsoft Access Driver (*.mdb)}"

sqlstmt = "select nome, email from cadastro"

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConnString

set rsquery = conn.execute(sqlstmt)

nr_emails_corretos = 0

nr_emails_errados = 0

nr_geral = 0

while not rsquery.eof

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.RemoteHost = "smtp.oclusivo.com.br"

Mailer.FromName = "Contato - Oclusivo"

Mailer.FromAddress = "taodutra@oclusivo.com.br"

Mailer.AddRecipient rsquery("nome"),rsquery("email")

Mailer.Subject=request.form("assunto")

Mailer.Bodytext = "Caro " & rsquery("nome") & "," & chr(13) & request.form("texto")

x = Mailer.SendMail

if x = true then

MSG = "E-MAIL ENVIADO COM SUCESSO!"

nr_emails_corretos = nr_emails_corretos + 1

Else

MSG = " O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"

nr_emails_errados = nr_emails_errados + 1

end if

nr_geral = nr_geral + 1

Response.write nr_geral & " - " & MSG

rsquery.movenext

wend

Response.write "Numero Total de Emails: " & nr_geral & "

"

Response.write "Numero de Emails enviados: " & nr_emails_corretos & "

"

Response.write "Numero de Emails não enviados: " & nr_emails_errados & "

"

rsquery.close

set rsquery = nothing

set conn = nothing

%>

huh.gif

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...