[Resolvido] Enviar e-mail
Pessoal, boa noite!
Estou tentando criar uma pagina simple de envio de e-mail, mas surgiu um pequeno problema:
Prmeiro leio um arquivo txt para depois enviar o e-mail, mas ele está lendo só a primeira linha e não as demais.
Está página é para eu poder mandar e-mails de algumas informações para os clientes, só que´está enviando somente para o cliente da primeira linha, por enquanto estou testando com meus e-mails particulares, para depois fazer o teste real.
Segue o cod.:
<link href="estilo.css" rel="stylesheet" type="text/css" />
<%
'Setar um valor de execução de script
Server.ScriptTimeout = 240
'Iremos também fazer com que o script siga quando ocorrer um erro
'Para podermos tratá-lo após o script
on error resume next
'*********************** Início do Upload *************************
'Utilizaremos a função On Error Resume Next para ignorar qualquer erro que possa vir a acontecer, e posteriormente iremos identifica-lo e só então comunicarmos ao usuário.
On Error Resume Next
Dim objUpload
'Cria uma instancia do objeto Upload e atribui a variável objUpload.
Set objUpload = server.CreateObject("Dundas.Upload.2")
'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.
'objUpload.UseVirtualDir = false
'Salva o arquivo com o nome real enviado.
objUpload.UseUniqueNames = False
'Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados.
objUpload.Save "C:\email2l"
'Limpa a instância criada na memória do servidor.
Set objUpload = nothing
'Aqui nós verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o último erro, caso nenhum erro tenha ocorrido o objeto conterá o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem será dada ao usuário.
If Err <> 0 Then
'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número.
Response.Write Err.Description & " " & Err.Number & "<br>"
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=javascript:history.back(-1)>Voltar</a> </b></font>"Else
'Se o objeto Err for igual a 0 será apresentado a mensagem de sucesso e os dados estarão salvos no caminho determinado acima
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font>"
End If
Response.Write "</BODY></HTML>"
'Fim de grava_anexo
Dim objFSO
'Aqui que daremos início ao sistema
'Criaremos o objeto FileSystemObject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim varArquivo
'Agora, com o uso do FSO, iremos abrir o arquivo texto que iremos criar
Set varArquivo = objFSO.OpenTextFile(server.MapPath("email.txt"), 1)
dim arrayLinha
'Agora que o arquivo já foi aberto, iremos ler linha por linha
'O comando AtEndOfStream determina que iremos repetir o processo abaixo
'até o fim do arquivo
Do while not varArquivo.AtEndOfStream
arrayLinha=split(varArquivo.ReadLine())
Dim Mail, Vtxtemail, Vtxtass
Vtxtemail = request.Form("txtemail")
Vtxtass = request.Form("txtass")
Vtxtemail = request.Form("txtemail")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.dominio.com.br"
Mail.From = "nome@dominio.com.br"
Mail.FromName = "nome sobrenome"
Mail.AddAddress arrayLinha(0)
Mail.Subject = request.Form("emlass")
Mail.Body = request.Form("emlmen")
On Error Resume Next
if Mail.Send then
response.Redirect("email.asp")
else If Err <> 0 Then
Response.Write "Ocorreu o seguinte erro: " & Err.Description
End If
End if
loop
'Destruiremos e fecharemos o FSO e o acesso ao arquivo de texto
varArquivo.Close
Set varArquivo = Nothing
Set objFSO = Nothing
%>
<script>
<!--
setTimeout("redireciona()",1000)
function redireciona()
{
window.location.href("email.asp");
}-->
</script>
Muito obrigado pela ajuda.
Abraço.
Discussão (24)
Carregando comentários...