E-mail Automático Ao Operador

[BuSaReLLo]

bom dia

gostaria de saber como enviar e-mail automatico para o operador avisando que houve cadastro no site ou quando houve nova pergunta ou resposta no meu forum.

obrigado

Rumo's Cursos Profissionalizantes

[Rob_g2*6(sic)6]

Ué....... é só mandar o CDONTS disparar um e-mail depois que estive cadastrado.....!!!!

.....ou o seu problema é que você não sabe enviar e-mails....?

[BuSaReLLo]

tem como me passar um exemplo?

[[ GuTo ]]

Faça um busca pelo fórum sobre CDONTS.

Você achará muito coisa sobre este componente!

[dark0]

Ahm..

Antes de mais nada..

Veja qual o COmponente que seu servidor suporta.

Depois, que você souber isso, podemos criar o codigo que envia e-mails

t+

[BuSaReLLo]

olá

desculpe a demora

só recebi as informacoes de meu servidor agora

aki estao as especificacoes que meu servidor suporta

valeo

CDONTS Object: Versão: 1.2 INSTALADO

--------------------------------------------------------------------------------

ADO DB Object: Versão: 2.5

--------------------------------------------------------------------------------

File System Object INSTALADO

--------------------------------------------------------------------------------

ASPMail Object INSTALADA

Para Mais Informações www.serverobjects.com

--------------------------------------------------------------------------------

ASPImage Object NÃO INSTALADO

Para Mais Informações www.serverobjects.com

--------------------------------------------------------------------------------

ASPUpload Object NÃO INSTALADO

Para Mais Informações www.persits.com

--------------------------------------------------------------------------------

ASPEmail Object NÃO INSTALADO

Para Mais Informações www.persits.com

--------------------------------------------------------------------------------

JMail Object INSTALADO

Para Mais Informações www.dimac.net

--------------------------------------------------------------------------------

Bamboo.SMTP Object NÃO INSTALADO

[dark0]

Olá..

você tem 2 componentes de email instalado!

QUal dos dois você prefere? Cdonts, ou AspMail?

Veja:

- AspMail X Cdonts

t+

[BuSaReLLo]

AspMail me parece mais profissional...

[dark0]

hehe

tudo bem..

no link que te passei, mostra como enviar com os dois

tenta montar alguma coisa aí

qualquer duvida, estamos aqui

t+

[BuSaReLLo]

valeooo

já to tentando

brigado pela ajuda

[Bob Esponja]

Da uma olhada e ve se isso ai te ajuda....

<FORM METHOD="post" ACTION="enviar_email.asp" name="">

<p>Digite a baixo o assunto e o texto da mensagem que será enviada a todos os cadastrados.</p>

Assunto: <INPUT TYPE="text" NAME="assunto" SIZE="20">

Texto: <TEXTAREA NAME="texto" cols="25" rows="10"></textarea>

<INPUT type="submit" name="Submit" value="Enviar"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">

</FORM>

Abaixo segue a programação!

<%

ConnString="DBQ=d:\algumacoisa\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}"

sqlstmt = "select nome, email from cadastro"

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

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.ContentType = "text/html"

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

Mailer.FromName = "TESTE - ASPL"

Mailer.FromAddress = "contato@algumacoisa.com.br"

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

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

Mailer.Bodytext = "Caro <b>" & rsquery("nome") & ",</b><BR>" & 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 & "<BR>"

Response.write "Numero de Emails enviados: " & nr_emails_corretos & "<BR>"

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

rsquery.close

set rsquery = nothing

set conn = nothing

%>

Ajudou ? qualquer coisa posta ai.

Abraço...