Estou tentando desenvolver um formulário que envia um e-mail com anexo, mas estou com probleminha. Quando tento enviar um pdf em anexo aparece esse erro "erro '80004005' /novo/envia_email.asp, line 22".
Erro nessa linha msg.AttachFile caminho
O que estou fazendo de errado ?
Me ajudem!! Obrigada
INDEX.ASP
<html>
<head>
<title>ENVIA E-MAIL COM ANEXO</title>
</head>
<body>
<%
Select Case Request.QueryString("acao") 'Verifica parametro acao para executar determinado script
Case "upload" 'caso a acao seja upload, executa script do SaFileUp
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.Save("d:\web\localuser\nomedapasta\www\novo\anexo")
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder("d:\web\localuser\nomedapasta\www\novo\anexo")
Set Files = Folder.Files
For each objUploadedFile In Upload.Files
arquivo = objUploadedFile.ExtractFileName
'response.Write(": " & objUploadedFile.ExtractFileName)
seq = seq + 1
Next
'criei uma session para armazenar o no do arquivo
session("arquivo") = arquivo
Case "email" 'caso a acao seja email, executa script do CDOSYS
End Select
%>
<div style=" margin:20px 0 10px;" id="form-anexo">
<form action="?acao=upload" method="post" enctype="multipart/form-data" name="frm_upload" id="frm_upload">
<input name="file" type="file" size="40" required>
<input name="Upload" type="submit" id="Upload" value="Anexar">
</form>
</div>
<form method="POST" action="envia_email.asp">
<div>
<label>Nome </label>
<input type="text" name="txt_nome" size="24">
</div>
<div>
<label>E-mail </label>
<input type="text" name="txt_email" size="24">
</div>
<div>
<label>Assunto:</label>
<input type="text" name="txt_assunto" size="24">
</div>
<div>
<label>Mensagem:</label>
<textarea rows="2" name="txt_mensagem"cols="20"></textarea>
</div>
<div>
<label>Anexo:</label>
<input type="text" name="txt_anexo" size="24" value="<%= session("arquivo") %>">
</div>
<input type="submit" value="Enviar" name="b1">
</form>
</body>
</html>
ENVIA_EMAIL.ASP
<%
dim arquivo
arquivo = session("arquivo")
caminho = "d:\web\localuser\nomedapasta\www\testeanexo\arq\"
caminho = caminho & arquivo
'Vamos recuperar os valores do formulário
nome = Request.Form("txt_nome")
email = Request.Form("txt_email")
assunto = Request.Form("txt_assunto")
mensagem = Request.Form("txt_mensagem")
'Agora vamos criar o objeto Cdonts e enviar a mensagem
Set msg = Server.CreateObject("CDONTS.NewMail")
msg.From = email
msg.To="seuemail@provedor.com"
msg.Subject = assunto& " Curriculo"
texto = mensagem
msg.Body = nome&vbcrlf&texto
'Bom ai esta a linha onde vai anexar o arquivo ao e-mail
msg.AttachFile caminho 'ERRO NESSA LINHA
msg.Send
Set msg = Nothing
'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.write "<script type=""text/javascript"">"
Response.write "alert('Sua mensagem foi enviada com sucesso!...');"
Response.write "window.location.href='index.asp';"
Response.write "</script>"
session.Abandon()
%>
