Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

claytonprog

erro caminho físico

Por , em ASP Clássico

Recommended Posts

claytonprog    0

claytonprog
Postado

:unsure: :unsure: Pessoal estou tentando enviar um e-mail com anexo para uma lista de clientes porém está dando erro no caminho fisico. Já entrei em contato com o suporte do meu provedor e me passaram o caminho fisico mais ainda ta dando erro. Vou postar o erro aqui:

 

CDO.Message.1 error '80070003'

 

The system cannot find the path specified.

 

/cadastro/email_anexo.asp, line 29

 

 

aqui está o link da pagina:

 

http://www.ministerionovavida.org/cadastro/index.asp

 

aqui esta meus scripts:

 

index.asp

 

<%

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

 

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

SQL="Select * From contato order by autonum"

Set RS = conexao.execute(sql)%>

 

 

<table width="611" border="0" align="center" height="215" cellspacing="0" cellpadding="0">

<tr bgcolor="#009966">

<td colspan="2" bgcolor="#009966">

<div align="center"><font size="2" face="Verdana, Arial, sans-serif"><b><font color="#FFFFFF">Enviando

email por anexo</font></b></font></div>

</td>

</tr>

<tr bgcolor="#E6FFEC">

<td colspan="2"><font size="1" face="Verdana, Arial, sans-serif"><a href="java script:abrir('email_anexo.asp')"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"><font face="Verdana, Arial, sans-serif">

<form name="form" method="post" action="email_anexo.asp" enctype="multipart/form-data">

<div align="center">

<input type="file" name="anexos" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal" size="20">

<input type="submit" name="Submit3" value="Anexar" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal">

</div>

</form>

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

</tr>

<tr bgcolor="#E6FFEC">

<td colspan="2" height="167">

<form method="post" action="email_anexo.asp">

<table width="613" border="0">

<tr>

<td width="335" height="38">

<div align="right"><font size="1" face="Verdana, Arial, sans-serif">De:</font></div>

</td>

<td width="353" height="38">

<input type="text" name="nome" value="contato@ministerionovadida.org" size="30" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal">

</td>

</tr>

<tr>

<td width="335" height="28">

<div align="right"><font size="1" face="Verdana, Arial, sans-serif">Email:</font></div>

</td>

<td width="353" height="28"><font size="1" face="Verdana, Arial, sans-serif">

<input type="text" name="email" value="<%do while not rs.EOF %><%=rs("email")%>,<%rs.MoveNext%><%Loop%>" size="38" maxlength="50" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal">

</font></td>

</tr>

<tr>

<td width="335" height="16">

<div align="right"><font size="1" face="Verdana, Arial, sans-serif">Arquivo

</font></div>

</td>

<td width="353" height="16"><font size="1" face="Verdana, Arial, sans-serif"><%=request.querystring("anexos")%> <%=request.querystring("msg")%>

</font></td>

</tr>

<tr bgcolor="#009966">

<td colspan="2" height="40">

<div align="center"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1">

<input type="hidden" name="anexo" value="<%=request.querystring("anexos")%>">

<input type="submit" name="Submit" value="Enviar" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal">

</font></font></font></font></font></font></div>

</td>

</tr>

</table>

</form>

</td>

</tr>

</table>

 

 

 

email_anexo.asp

 

<%

vanexo = request.form("anexo")

vnome = request.form("nome")

vemail = request.form("email")

 

HTML = " Nome:" & vnome &" Email: "& vemail &""

 

 

 

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = "Nome Remetente" & "<contato@ministerionovavida.org>"

'e-mail do destinatário

objCDOSYSMail.To = "contato@ministerionovavida.org"

'anexo

objCDOSYSMail.AddAttachment("d:\web\htdocs\ministerionovavida\cadastro\upload\"& vanexo &"") ---- linha que está dando o erro

 

'd:/web/htdocs/ministerionovavida/cadastro/upload/

 

'assunto da mensagem

objCDOSYSMail.Subject = "Anexo"

'conteúdo da mensagem

objCDOSYSMail.HtmlBody = request.form("recado")

'objCDOSYSMail.fields.update

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

response.write "E-mail enviado com Sucesso..."

%>

 

 

enviar_anexo.asp

 

<%

 

' Esta secao faz o upload do arquivos para o diretório /upload

 

Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp")

if myFileUpload.form("anexos").UserFilename <> "" then

' diretório em que a imagem será salva

myFileUpload.Form("anexos").Path = "d:\web\htdocs\ministerionovavida\cadastro\upload\"

myFileUpload.form("anexos").Save

end if

 

arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)

 

If Err Then

Response.Write("<b>Erro : </b>" & Err.description & "<br>")

Set myFileUpload = nothing

Response.End

End If

%>

<%

response.redirect "email_anexo.asp?anexos="& arquivo &"&msg= anexado com sucesso!"

%>

 

 

Por favor Helpppp!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

claytonprog    0

claytonprog
Postado

Fiz como você pediu Rogrido, ficou assim o codigo:

 

<%

vanexo = request.form("anexo")

vnome = request.form("nome")

vemail = request.form("email")

 

HTML = " Nome:" & vnome &" Email: "& vemail &""

 

 

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = "Nome Remetente" & "<contato@ministerionovavida.org>"

'e-mail do destinatário

objCDOSYSMail.To = "contato@ministerionovavida.org"

'anexo

 

Response.Write(""& vanexo &"")

Response.End

 

objCDOSYSMail.AddAttachment("d:\web\htdocs\ministerionovavida\cadastro\upload\"& vanexo &"")

 

'd:/web/htdocs/ministerionovavida/cadastro/upload/

 

'assunto da mensagem

objCDOSYSMail.Subject = "Anexo"

'conteúdo da mensagem

objCDOSYSMail.HtmlBody = request.form("recado")

'objCDOSYSMail.fields.update

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

response.write "E-mail enviado com Sucesso..."

%>

 

não dá erro, porém num aparece nada testa lá:

 

http://www.ministerionovavida.org/cadastro/index.asp

 

Aguardo resposta, obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo Patricio    3

Rodrigo Patricio
Postado

Hum... então uma coisa já sabemos, naum está anexando o arquivo, verifica se os nomes dos campos estão corretos.Ahhh, tenta colocar um nome fixo, na variavel e coloca o anexo com o mesmo nome e formato pra ver se vai certo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo Patricio    3

Rodrigo Patricio
Postado

Nessa linha:

objCDOSYSMail.AddAttachment("d:\web\htdocs\ministerionovavida\cadastro\upload\"& vanexo &"")

Ao envez de você usar a variavel vanexo, usa o nome com extenção, por exemplo:

objCDOSYSMail.AddAttachment("d:\web\htdocs\ministerionovavida\cadastro\upload\[b]foto.jpg[/b]")

E lá no seu painel, uma o arquivo com o mesmo nome.

Compartilhar este post

Link para o post
Compartilhar em outros sites

claytonprog    0

claytonprog
Postado

Olá Rodrigo! Fiz a modiicação que você disse e continua o mesmo erro!! :unsure: :unsure: CDO.Message.1 error '80070003' The system cannot find the path specified. /cadastro/email_anexo.asp, line 30 se você quiser te mando o script zipado pra você dar uma olhada.tá complicado o negocio.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito