[Resolvido] Enviar e-mail

[xanburzum 169]

verifique o que esta sendo passado na variavel...

[l_nando 0]

Então, eu verifiquei e só está passando o primeiro e-mail.

 

Eu não entendo, o arquivo está assim:

 

nome1@dominio.com.br

nome2@dominio.com.br

nome3@dominio.com.br

nome4@dominio.com.br

 

pela lógiga não teria que ler linha por linha quando colocado assim?

 

 

while not fsofile.AtEndOfStream = true

linha=fsofile.readline

icampo=Split(linha," ",-1,1)

 

Mail.AddAddress icampo(0)

 

pois eu uso mais ou menos o mesmo código para cadastrar uns itens no bd em um outro sistema e funciona e neste não está funcionando, rsrsrs.

 

Até

 

Vlw.

 

Pessoal, estava pensando aqui.

E se ao invés eu usar um arquivo txt, colocar os e-mails em um textarea, tem como fazer ele pegar um e-mail de cada vez e enviar?

 

vlw.

[xanburzum 169]

pegar um e-mail de cada vez

dae você pode jogá-lo em loop

[l_nando 0]

Pessoal, acho que encontrei a solução para o envio com o arquivo txt.

 

Segue cod:

 

Dim varArquivo

Set varArquivo = objFSO.OpenTextFile(server.MapPath("email.txt"), 1)

dim arrayLinha

Do while not varArquivo.AtEndOfStream

arrayLinha=split(varArquivo.ReadLine,";",-1,1)

Set Mail = Server.CreateObject("Persits.MailSender") 
Mail.Host = "smtp.dominio.com.br"
Mail.From = "nomeusuario@dominio.com.br"
Mail.FromName = "Nome Sobrenome"

Mail.AddAddress arrayLinha(0)
Mail.Subject = Vemlass
Mail.Body = Vemlmen
Mail.AddAttachment "C:\email2l\Imagens\folder01.jpg"

    
	Mail.Send
	Loop
	response.Redirect("email.asp")
	On Error Resume Next
	
    If Err <> 0 Then
    Response.Write "Ocorreu o seguinte erro: " & Err.Description
    End If

varArquivo.Close
Set varArquivo = Nothing
Set objFSO = Nothing

se eu conseguir uma para o textarea posto também.

 

Abraço.

[xanburzum 169]

ok, parabéns...