AspEmail com varios anexos

[Guilherme Teixeira]

Olá pessoal,

este código está correndo normal, vai até a parte que redireciona e não acusa nenhum erro porém não envia. :(

Será que os anexos que podem ser diferentes de 1, está certos também? :angry:

Segue o código:

<!--#include file="includes/seg.asp"-->
<!--#include file="includes/acentos.asp"-->

<%
nome = acentos(request.form("nome"))
email = acentos(request.form("email"))
serie = acentos(request.form("serie"))
data = acentos(request.form("dia")&"/"&request.form("mes"))
mensagem = acentos(request.form("mensagem"))


Set Mail = Server.CreateObject("Persits.MailSender")



Mail.Host = "mail.colegiojunqueiralemos.com.br"
Mail.Port = 25 


Mail.Username = "mensagem@colegiojunqueiralemos.com.br"
Mail.Password = "xxxx"



Mail.From = email
Mail.FromName = Acentos(nome) ' Opcional
                                

Mail.AddAddress "guilherme@colegiojunqueiralemos.com.br", "coordenadora"
Mail.Priority = 1


Mail.Subject = "Foi enviada um material pelo site"
Mail.Body = acentos("Nome: "&nome&"<br/>Email: "&email&"<br/>Serie: "&serie&"<br/>Data de aplicação: "&data&"<br/>Mensagem: "&mensagem)
Mail.IsHTML = True

if request("box").count > 0 then

for i = 1 to request("box").count

Mail.AddAttachment ("C:\Inetpub\vhosts\colegiojunqueiralemos.com.br\httpdocs\portal\temp\"&Session("pasta")&"\"&request("box")(i))

Next

end if

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Foi encontrado um erro: " &_
Err.Description
End If




Set mail=nothing

Set fso = server.CreateObject("Scripting.FileSystemObject")
  If  fso.FolderExists("C:\Inetpub\vhosts\colegiojunqueiralemos.com.br\httpdocs\portal\temp\"&session("pasta")) then
 fso.DeleteFolder("C:\Inetpub\vhosts\colegiojunqueiralemos.com.br\httpdocs\portal\temp\"&session("pasta"))
 end if

 response.Redirect "default_professor.asp"

%>

Obrigado

[bareta]

os arquivos existem???

já deu response.write lá para ver como fica e se o caminho é valido?

[Guilherme Teixeira]

sim os caminhos existem e os arquivos também!

E o email não está sendo enviado.

[bareta]

consulte a documentação

http://www.aspemail.com/manual_03.html