AspEmail com varios anexos

[Guilherme Teixeira 0]

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?

 

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

'Para enviar mensagens o AspEmail precisa de um servidor SMTP:

Mail.Host = "mail.colegiojunqueiralemos.com.br"
Mail.Port = 25 'Opcional. Porta 25 é a porta padrão

'AUTENTICAÇÃO, por medida de segurança é necessário uma autenticação para qualquer envio de e-mails originando de nossos servidores:

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

'É necessário especificar o e-mail do remetente:

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

'Para adicionar os destinatários, CCs, BCCs, e Reply-To, use:
'AddAddress, AddCC, AddBcc and AddReplyTo metódos respectivamente.
'Estes metódos aceitam dois parâmetros: o endereço de e-mail e opcionalmente o nome.
'Por exemplo:


				

Mail.AddAddress "guilherme@colegiojunqueiralemos.com.br", "coordenadora"
Mail.Priority = 1
'ou em formato HTML:

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
'Para enviar a mensagem use o metódo Send. Use o exemplo abaixo para verificar erros::

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


'No final da programação após o código acima use sempre:

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"
'Isto faz com que o objeto seja descarregado de seu site evitando lentidão do mesmo. 
%>

Obrigado

[hargon 64]

A principio está correto.

 

Tira o On Error Resume Next e veja o erro, pois parece que o erro não está relacionado aos anexos.