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
<% 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") %>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.