Envio De Email Por Cdonts

Janeiro 23, 2004

Boa tarde !

Estou com um problema, que tenho um sisteminha para enviar emails, e foi feito em ASP, para que eu trabalhe uma lista de contatos que tenho. Acontece que o sisteminha está feito em ASP e não está enviando email... sei que o ASP usa o CDONTS, e não sei como fazer isso funcionar... o sistema está num servidor local, com Windows 2000 Server. Como faço ?????

Obrigado !!!

Deividy · Janeiro 23, 2004

as paginas em asp roda?

você sabe se o IIS esta instala?

Reginaldo ASP · Janeiro 23, 2004

Veja esse tópico sobre o mesmo assunto...

Se você verificar que o CDONTS tá instalado e o seu códgo não funcionar, posta ele aqui pra gente ver...

Janeiro 23, 2004

Aí é que tá... o IIS tá instalado, e rodando. Eu acesso as páginas em ASP normalmente, pela minha estação de trabalho. Este servidor está funcionando como Intranet, e tem acesso à Internet normal. Mas quanto ao CDONTS, é que eu não sei... tenho que instalar algo no meu servidor ??? O CDONTS é instalável no IIS, alguma coisa assim ?

Reginaldo ASP · Janeiro 23, 2004

Cara lá naquele post que eu coloquei o link lá em cima, tem um código pra verificar se o Cdonts tá instalado

Janeiro 23, 2004

Bom, o CDONTS não está instalado... como devo proceder para instalá-lo ???

Reginaldo ASP · Janeiro 23, 2004

O Cdonts, você tem que ter configurado o servidor SMTP no seu servidor IIS.

Dá uma procurada no arquivo cdonts.dll. Se ele não encontrar, você vai ter que reinstalar o Option Pack 4 do Windows e instalar o serviço SMTP.

Janeiro 23, 2004

Bom, seguinte... instalei o Service Pack 4, e tenho tb o Exchange, e o serviço de SMTP startado. Achei o danado do cdonts.dll, e ainda não rola... estou enviando o código para, se possível, darem uma analisada... valeu !!!!

<%

de=Request.form("de")

para=Request.form("para")

assunto=Request.form("Assunto")

mensagem=Request.form("mensagem")

'response.write para

if para = "todos" then

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

Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("email.mdb")

SQL="Select * From Emails order by ID"

Set RS = conexao.execute(sql)

do while not rs.EOF

para1=rs("email")

'response.write para1

set objMail = server.createobject("CDONTS.NewMail")

objMail.From = ""& Request.form("de") &""

objMail.To = ""& para1 &""

objMail.Subject = ""& Request.form("assunto") &""

objMail.Body = "<html><head></head><body>"& Request.form("mensagem") &"</body></html>"

objMail.BodyFormat = 0

objMail.MailFormat = 0

objMail.Importance = 1

objMail.Send

set objMail = Nothing

rs.MoveNext

Loop

else

set objMail = server.createobject("CDONTS.NewMail")

objMail.From = ""& Request.form("de") &""

objMail.To = ""& Request.form("para") &""

objMail.Subject = ""& Request.form("assunto") &""

objMail.Body = "<html><head></head><body>"& Request.form("mensagem") &"</body></html>"

objMail.BodyFormat = 0

objMail.MailFormat = 0

objMail.Importance = 1

objMail.Send

set objMail = Nothing

end if

%>

<html>

<head>

<title>Sucesso !</title>

<!--

a:link { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; text-decoration: none}

a:hover { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #999999; text-decoration: none }

a:visited { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; text-decoration: none }

a:active { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; text-decoration: none }

-->

</style>

</head>

<p><b><font size="3" face="Arial, Helvetica, sans-serif">Sua mensagem foi enviada

com sucesso</font></b></p>

<p><br>

<br>

</p>

<tr>

</td>

</tr>

<tr>

</td>

</tr>

<tr>

<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><b>Assunto:</b></font></div>

</td>

</tr>

<tr>

<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><b>Mensagem

:</b></font></div>

</td>

</tr>

</table>

</div>

<p><a href="javascript:history.back(1)">Enviar outro e-mail</a> | <a href="../../">Ir

para página principal</a><font size="2"></font></p>

</a> </font></font>

</div>

</body>

</html>

bolomaster · Janeiro 23, 2004

cara você precisa mesmo arquivar estas mensagens no banco de dados a necessidade??

tipo o seu script eu não notei nada fora do comum, mas não tenho tanto conhecimento assim oh eu vou colocar estes links para você dar uma olhada falei

quem sabe ajuda você a resolver o problemas.. certo!!!!!!!!

CONFIGURANDO O CDONTS

ARQUIVO NOVO CDONTS.DLL ok espero ter te ajudado

qualquer coisa posta ai

Entrar

Envio De Email Por Cdonts

Pergunta

Guest Ricardo Kallai

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

Deividy

Link para o comentário

Compartilhar em outros sites

Reginaldo ASP

Link para o comentário

Compartilhar em outros sites

Guest Ricardo Kallai

Link para o comentário

Compartilhar em outros sites

Reginaldo ASP

Link para o comentário

Compartilhar em outros sites

Guest Ricardo Kallai

Link para o comentário

Compartilhar em outros sites

Reginaldo ASP

Link para o comentário

Compartilhar em outros sites

Guest Ricardo Kallai

Link para o comentário

Compartilhar em outros sites

bolomaster

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades