AspEmail com varios anexos
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
Discussão (1)
Carregando comentários...