Envio de e-mail com anexo

[natalia 0]

Oi pessoal,

 

tenho um formulário onde o usuário pode enviar um arquivo. Mas está dando este erro:

Persits.MailSender.4 error '800a0007'

 

The system cannot find the file specified.

Poderiam ver o que está errado na linha em vermelho?

 

<%

	curNome = Request("curNome")
	curEmail = Request("curEmail")
	curTelefone = Request("curTelefone")
	curCidade = Request("curCidade")
	curEstado = Request("curEstado")
	curArquivo = Request("curArquivo")

	mTexto= mTexto& "Nome: " & curNome & "<br>"
	mTexto= mTexto& "E-mail: " & curEmail & "<br>"
	mTexto= mTexto& "Telefone: " & curTelefone & "<br>"
	mTexto= mTexto& "Cidade: " & curCidade & "<br>"
	mTexto= mTexto& "Estado: " & curEstado & "<br>"
	mTexto= mTexto& "Arquivo: " & curArquivo & "<br>"
	
	
	Set Mail = Server.CreateObject("Persits.MailSender") 
	Mail.Host = "localhost" 
	Mail.From = "nataliarodrig@yahoo.com.br"
	Mail.FromName = "Teste" 
	Mail.AddAddress "nataliarodrig@yahoo.com.br"
	Mail.AddAttachment curArquivo 'ERRO
	Mail.Subject = "Teste" 
	Mail.IsHTML = True
	Mail.Body = mTexto
	Mail.Send 
	If Err <> 0 Then 
		Response.Write "Error encountered: " & Err.Description 
		Response.End
	End If 
	
	Set Mail = Nothing
	

 %>

Obrigada

[Mário Monteiro 179]

em curArquivo esta o caminho fisico do arquivo?

 

de um write nele e veja o seu valor