boa tarde ... estou com um código para enviar (upload) um arquivo direto para o email ... todo o código está funcionando, inclusive está enviando para a minha pasta ftp chamada 'teste', porém a função msg.AttachFile caminho não está conseguindo ir buscar o arquivo dentro desta pasta teste e enviar para o meu email e me devolve o seguinte erro :
erro '80004005'
/teste/envia_email.asp, line 24
<%
dim arquivo
arquivo = session("arquivo")
caminho = "D:\web\localuser\user\www\teste\"
caminho = caminho & arquivo
'"D:\web\localuser\eltonassuncao\www\teste"
'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="eltonassuncao@eltonassuncao.com"
msg.Subject = assunto
texto = "O usuário "&nome&" lhe envio a mensagem abaixo:"
texto = texto & mensagem
msg.Body = texto
'Bom ai esta a linha onde vai anexar o arquivo ao e-mail
msg.AttachFile caminho 'linha 24
msg.Send
Set msg = Nothing
'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.write "E-mail Enviado "
Response.Write session("arquivo")
%>
Pergunta
EltonAssuncao
boa tarde ... estou com um código para enviar (upload) um arquivo direto para o email ... todo o código está funcionando, inclusive está enviando para a minha pasta ftp chamada 'teste', porém a função msg.AttachFile caminho não está conseguindo ir buscar o arquivo dentro desta pasta teste e enviar para o meu email e me devolve o seguinte erro :
erro '80004005'
/teste/envia_email.asp, line 24
Alguém pode me ajudar por favor?
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.