Tipo de erro: (0x80040108)

#Felipe# · Agosto 3, 2005

Não to conseguindo enviar emails com esse esquema aki ....

ASP

[*]<%@LANGUAGE="VBSCRIPT"%>

[*]

[*]<%if request("submit")="Enviar" then

[*]nome = Request("txt_nome")

[*]email = Request("txt_email")

[*]emailpara = Request("txt_emailpara")

[*]assunto = Request("txt_assunto")

[*]mensagem = Request("txt_mensagem")

[*]

[*]texto = "<html><body>"

[*]texto = texto & "<br><br>"& mensagem

[*]mensagem = texto & "</body></html>"

[*]

[*]set conn = server.CreateObject ("ADODB.Connection")

[*]conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("bd1.mdb")

[*]set envia_email = server.CreateObject ("ADODB.Recordset")

[*]envia_email.Open "SELECT * FROM e3 ",conn,3,3

[*]Set msg = Server.CreateObject("CDONTS.NewMail")

[*]

[*]do while not envia_email.eof

[*]

[*]msg.From = "felipe.kitnet@bol.com.br" 'Request("txt_email")

[*]msg.To = envia_email("campo1")

[*]msg.Subject = "`·.,¸¸,.·´¯ "& assunto &" ¯`·.,¸¸,.·´"

[*]msg.Body = mensagem

[*]msg.BodyFormat = 0

[*]msg.MailFormat = 0

[*]msg.Send

[*]

[*]envia_email.movenext

[*]loop

[*]

[*]Set msg = Nothing

[*]set envia_email = nothing

[*]set conn = nothing

[*]%>

[*]<html>

[*]<head>

[*]<title>entre em contato</title>

[*] </head>

[*]<body>

[*]<div align="center">

[*] <p> </p>

[*] <p><font color="#FF0000" size="4" face="Georgia, Times New Roman, Times, serif">Mensagem

[*] enviada com sucesso! </font></p>

[*] <p> </p>

[*]

[*] <p><font color="#FF0000" size="4" face="Georgia, Times New Roman, Times, serif"></font></p>

[*]</div>

[*]</body>

[*]</html><%

[*]else

[*]%>

[*]<html>

[*]<body>

[*]

[*]<form action="<%=Request.ServerVariables("SCRIPT_NAME")&"?envia=1&area=4"%>" method="post">

[*]<table width="76%" border="1" cellspacing="0" cellpadding="0">

[*] <tr>

[*] <td width="12%"><div align="right"><strong>Seu Nome:</strong></div></td>

[*] <td width="88%"><input name="txt_nome" type="text" id="txt_nome" value="" size="40"></td>

[*] </tr>

[*] <tr>

[*] <td><div align="right"><strong>Seu e-mail:</strong></div></td>

[*] <td><input name="txt_email" type="text" id="txt_email" value="" size="40"></td>

[*] </tr>

[*]

[*] <tr>

[*] <td><div align="right"><strong>Assunto:</strong></div></td>

[*] <td><input name="txt_assunto" type="text" id="txt_assunto" value=" " size="60"></td>

[*] </tr>

[*] <tr>

[*] <td><div align="right"><strong>Mensagem:</strong></div></td>

[*] <td><textarea name="txt_mensagem" cols="60" rows="5" id="txt_mensagem"></textarea></td>

[*] </tr>

[*]</table>

[*]<input type="submit" name="Submit" value="Enviar">

[*]</form>

[*]

[*]</body>

[*]</html>

[*]<%end if%>

Tipo de erro:

(0x80040108)

/hardware/email/Default.asp, line 24

Que ta havendo eim ??????????

kauebranco · Agosto 3, 2005

cara .. aparentemente não estou vendo erro no seu código ...deve ser akele famoso negocio de o CDONTS não estar instalado direito alguma coisa assim ...

#Felipe# · Agosto 3, 2005

pior que deu erro no servidor tb ....no meu micro nada funciona emter mo de cdonts...alguem poderia copiar e instalar e testar ?????

Generation · Agosto 4, 2005

Qual é a linha 24 ? é a mesma que esta nesse codigo? a sua tabela que contem os endereços de e-mail no banco de dados se chama e3 ?[]'s

explore · Agosto 4, 2005

Parece ser erro de permisão mesmo!!!!!!!

Verifica o cdonts instaldo!

Verifica com esse Script!

ASP

[*]<% Option Explicit

[*]

[*]Function IsComponentInstalled(ProgId)

[*]Dim tmpObject

[*]

[*]On Error Resume Next

[*]

[*]Set tmpObject = Server.CreateObject(ProgId)

[*]If Err.Number = 0 Then

[*]IsComponentInstalled = True

[*]Else

[*]IsComponentInstalled = False

[*]End If

[*]Set tmpObject = Nothing

[*]End Function

[*]

[*]'Utilizando a função

[*]

[*]'If IsComponentInstalled("JMail.Message") Then

[*]

[*]'JMail.Message

[*]If IsComponentInstalled("CDONTS.NewMail") Then

[*]Response.Write "Enviando o e-mail ..."

[*]'...

[*]Else

[*]Response.Write "Não é possível enviar o e-mail (Objeto para envio indisponível)"

[*]'...

[*]End If

[*]%>

#Felipe# · Agosto 4, 2005

Qual é a linha 24 ? é a mesma que esta nesse codigo? a sua tabela que contem os endereços de e-mail no banco de dados se chama e3 ?

[]'s

<{POST_SNAPBACK}>

Sim,

O que pode ser eim ? ?? ? ??

testei o código do colega e deu isso " Enviando o e-mail ... "

algum email com caracter inválido ???

bã que coisa !

algum de vcs poderia copiar o codigo e testar em sua propria maquina ? ? ? ?

dark0 · Agosto 4, 2005

brother, eu registrei a dll, copiei seu codigo, comentei as linhas referentes ào banco de dados, e alterei para enviar para meu e-mail, e funcionou..

ASP

[*]<%@LANGUAGE="VBSCRIPT"%>

[*]<%

[*]if request("submit")="Enviar" then

[*] nome = Request("txt_nome")

[*] email = Request("txt_email")

[*] emailpara = Request("txt_emailpara")

[*] assunto = Request("txt_assunto")

[*] mensagem = Request("txt_mensagem")

[*]

[*] texto = "<html><body>"

[*] texto = texto & "<br><br>"& mensagem

[*] mensagem = texto & "</body></html>"

[*]

[*]' set conn = server.CreateObject ("ADODB.Connection")

[*]' conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("bd1.mdb")

[*]' set envia_email = server.CreateObject ("ADODB.Recordset")

[*]' envia_email.Open "SELECT * FROM e3 ",conn,3,3

[*] Set msg = Server.CreateObject("CDONTS.NewMail")

[*]

[*]' do while not envia_email.eof

[*]' msg.From = "felipe.kitnet@bol.com.br"

[*] msg.From = Request("txt_email")

[*]' msg.To = envia_email("campo1")

[*] msg.To = "felipe.kitnet@bol.com.br"

[*] msg.Subject = "`·.,¸¸,.·´¯ "& assunto &" ¯`·.,¸¸,.·´"

[*] msg.Body = mensagem

[*] msg.BodyFormat = 0

[*] msg.MailFormat = 0

[*] msg.Send

[*]' envia_email.movenext

[*]' loop

[*]

[*] Set msg = Nothing

[*]' set envia_email = nothing

[*]' set conn = nothing

[*] %>

[*]

[*]<html>

[*]<head><title>entre em contato</title></head>

[*]

[*]<body>

[*]<div align="center">

[*] <p> </p>

[*] <p><font color="#FF0000" size="4" face="Georgia, Times New Roman, Times, serif">Mensagem

[*] enviada com sucesso! </font></p>

[*] <p> </p>

[*] <p><font color="#FF0000" size="4" face="Georgia, Times New Roman, Times, serif"></font></p>

[*]</div>

[*]</body>

[*]</html>

[*]<% else %>

[*]<html>

[*]<body>

[*]

[*]<form action="<%=Request.ServerVariables("SCRIPT_NAME")&"?envia=1&area=4"%>" method="post">

[*]<table width="76%" border="1" cellspacing="0" cellpadding="0">

[*] <tr>

[*] <td width="12%"><div align="right"><strong>Seu Nome:</strong></div></td>

[*] <td width="88%"><input name="txt_nome" type="text" id="txt_nome" value="" size="40"></td>

[*] </tr>

[*] <tr>

[*] <td><div align="right"><strong>Seu e-mail:</strong></div></td>

[*] <td><input name="txt_email" type="text" id="txt_email" value="" size="40"></td>

[*] </tr>

[*] <tr>

[*] <td><div align="right"><strong>Assunto:</strong></div></td>

[*] <td><input name="txt_assunto" type="text" id="txt_assunto" value=" " size="60"></td>

[*] </tr>

[*] <tr>

[*] <td><div align="right"><strong>Mensagem:</strong></div></td>

[*] <td><textarea name="txt_mensagem" cols="60" rows="5" id="txt_mensagem"></textarea></td>

[*] </tr>

[*]</table>

[*]<input type="submit" name="Submit" value="Enviar">

[*]</form>

[*]</body>

[*]</html>

[*]<% end if %>

no From e no TO, coloca um email seu, e veja se envia.

Se nao enviar, possivelmente você esta com problemas no componente mesmo, ou no Serviço SMTP do seu IIS, pois, sem ele, o cdonts nao funciona

T+

#Felipe# · Agosto 6, 2005

como assim , "registrei a DLL" ? ? ? ? ????

olha só !

eu testei o codigo do cara pra testar se o cdonts está instalado, e disse que ta tudo ok ....

digam-me uma coisa !

alem de instalar a DLL, precisa fusar em alguma coisa no IIS ? ? ? ???

outra coisa,

esse diretório C:\Inetpub\mailroot\Badmail ta lotado de emails com erros .

tem 420 emails arquivos com cópias de emails e com um código de erros dentro..

assim -> erro específico era 0xC00402C7.

Arquivado

Tipo de erro: (0x80040108)

Recommended Posts

#Felipe# 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kauebranco 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

#Felipe# 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Generation 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

#Felipe# 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dark0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

#Felipe# 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante