Enviar emails atraves de um arquivo TXT

[erickmm]

Bom dia,

Tenho um programação de newsletter que esta rodando perfeitamente,

ele pega os dados do banco de dados, nome e email

e envia para todos os emails cadastrados, ate ae tudo bem

só que tenho varios emails em um arquivo TXT

gostaria de fazer ele enviar atraves desse arquivo, tem como?

vou postar o codigo aqui, se puderem me ajudar

<%
'Abre a conexao com o banco de dados
Set Conex = Server.CreateObject ("ADODB.Connection") 
Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("dados.mdb")

'Pega os dados digitados no form
assunto = request("assunto")
mensagem = request("mensagem")

'Faz a listagem dos usuarios para pegar o nome
Set listar = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios"
listar.open sql, conex, 1,1

'Faz um while
while not listar.eof

'Pega o nome e o email do usuario
Set nome = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios where id="&listar("id")
nome.open sql, conex, 1,1

while not nome.eof
'envia o e-mail
	Set objmail = Server.CreateObject("CDONTS.NewMail") 
		objmail.from = nome_admin & "<"&email_admin&">"
		objmail.to = nome("email")
		objmail.subject = assunto
		objmail.body = "Olá <b>"& nome("nome") & "</b><br><br>    " & mensagem
		objMail.Bodyformat = strBody
		objMail.MailFormat = CDontsEMailFormatText
	objmail.send

'Move para o próximo registro
nome.movenext
wend

listar.movenext
wend

'Exibe a mensagem de que os emails foram enviados com sucesso
response.Write("Os e-mails foram enviados com sucesso.")
%>
[/codebox]

aguardo

ate +

[bareta]

basicamente é facil se o txt tive assim

nome,email
nome,email
nome,email

ai no asp ao invés de da loop no banco você vai usa FSO e da loop na leitura do TXT.

ou ler tudo de uma vez e usar 2 splits;...