Inserir Vários Emails Numa Caixa Só

[py2tz]

Ex:

xxx00x@xxxx.com ;

xx3xx@xxxx.com ;

xxx3x@xxxx.com ;

xxx67x@xxxx.com ;

xx5xx@xxxx.com ;

xrxxx@xxxx.com ;

xxxuyx@xxxx.com ;

xx6x7x@xxxx.com ;

xrxxxj@xxxx.com ;

xxxx@kxxxx.com ;

Onde o sistema verifica a duplicidade e a existencia dos mesmos lá no BD e somente registra os que realmente não estejam cadasstrados no BD.

Meus sitema é ASP e o BD é access

Tenho isso mas somente com 1 email por vez, queria passar para maior numero de emails por vez.

Obrigado por qualquer dica

Fausto

[.Andreia.]

huuuuum, xo ve se eu entendi... você recebe varios e-mails e quer inserir somente os que não se repetem no BD?

[py2tz]

Mais ou menos,

Muitos grupos de rádio possuem vários membros em sua equipe, onde o chefe deles gostaria que eles tambem recebessem um boletim que a gente manda grátis para os registrados, só que ele não quer ter o trabalho de inserir um a um no sistema e manda pra mim uma lista de 200, 300 emails dos socios do grupo deles, ai eu ia colocando um a um, mas já to de s cheio, é muita coisa, e tá aumentando mais.

Antigamente, eu usava um sistema de site americano chamado bravanet que fazia isso, mas parei há muito tempo com ele pois somente permitia 500 membros. Ele fazia isso, eu colava a relacao dos 100, 200 ou mais emails numa caixa grande e clicava no enviar, ele verificava os que já estavam na relacao e inseria somente os que não estavam, ajudava muito, mas o limite de 500 me fez parar e tentar fazer com outro, pra ter ideia, já tem mais de 14 mil e está aumentando.

[Guest --Kasolution --]

dai cara... tem dois modos, eu aconselho o primero..

<%

Set CDO = Server.CreateObject("CDONTS.NewMail")

'1 passo: (fso)ler ao arquivo com os emails.

'2 passo: criar um loop para fazer cada email ser inserido no componente.

'O parâmetro forReading é utilizado somente para leitura.

'-----Modo 1------

Const forReading = 1' forWriting = 2, forAppending = 8

'Instância o objeto FSO.

Set Fso = CreateObject("Scripting.FileSystemObject")

'O método GetFile retorna o arquivo existente.

Set ObjFile = Fso.GetFile("C:\Documents and Settings\luizs\Desktop\teste-lms\emails.txt")

'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto.

Set objStream = ObjFile.OpenAsTextStream(forReading,false)

'Looping para varrer todas as linha do arquivo.

on error resume next

While Not ObjStream.AtEndOfStream

'O método Readline lê uma linha de um arquivo

Linha = Linha & ObjStream.Readline & "<br>"

CDO.From = "soporte@kasolution.com.br"

CDO.To = linha

CDO.Subject = "Teste Componente"

CDO.Body = "oi"

Wend

CDO.Send

if err then

Response.Write err.Description

end if

'Mostra o conteúdo.

Response.write Linha

'Fecha o arquivo.

objStream.Close

'Destruíndo objetos

Set Fso = nothing

set objStream = nothing

'----MODO 2----

'criamos o nome do arquivo

'arquivo= request.serverVariables("APPL_PHYSICAL_PATH") & "provas.txt"

'conectamos com o FSO

'set confile = createObject("scripting.filesystemobject")

'criamos o objeto TextStream

'set fich = confile.CreateTextFile(arquivo)

'escrevemos os números do 0 ao 9

'for i=0 to 9

' fich.write(i)

'next

'fechamos o arquivo

'fich.close()

' abrir o arquivo para leitura

'set fich = confile.OpenTextFile("C:\Documents and Settings\luizs\Desktop\teste-lms\emails.txt")

'ler o conteúdo do arquivo

'texto_arquivo = fich.readAll()

'imprime na página o conteúdo do arquivo

'response.write(texto_arquivo)

'fecha o arquivo

'fich.close()

Response.End

%>

[SK15]

Bem num precisa usar FSO para isso basta usar um "textarea" e tratar o texto ...

Algo como (suponhado que o e-mail venha nessa forma):

<textarea name="emails">xxx00x@xxxx.com;
xx3xx@xxxx.com;
xxx3x@xxxx.com;
xxx67x@xxxx.com;
xx5xx@xxxx.com;
xrxxx@xxxx.com;
xxxuyx@xxxx.com;
xx6x7x@xxxx.com;
xrxxxj@xxxx.com;
xxxx@kxxxx.com</textarea>

Dai no ASP é so tratar o texto bem facinho ...

<%
Texts = Request.Form("emails") ' Textos do Textarea
SplitLine = Split(Texts, vbCrLf) ' Divide um email por linha

' Lista os e-mails
For Each Email In SplitLine
 ' Ranca o Que sobra do E-mail
 LimpaEmail = Replace(Email, ";", "")
 ' Verifica dentro do Acess.
 ' Insere no Banco
Next

Response.Write "E-mails Cadastrados ..."
%>

[py2tz]

Olá, agradeço as tentativas,

Como não entendo quase nada, fui direto para o que mais sou familiarizado, o do TEXT AREA

Montei a pagina assim:

<form name="form1" Method="Post" action="lote.asp" onsubmit="return checar_formulario(this)">
<td align="center">
<textarea name="email" cols="50" rows="10"></textarea>
<input type="hidden" name="name" size="30" value="<%=date()%>" maxlength="60" >
<input type="hidden" name="a_d" value="add" checked>&nbsp;&nbsp;<input type=image src="../image/ok.gif">

</td>
</form>
<%
Texts = Request.Form("email") ' Textos do Textarea
SplitLine = Split(Texts, vbCrLf) ' Divide um email por linha

' Lista os e-mails
For Each Email In SplitLine
' Ranca o Que sobra do E-mail
LimpaEmail = Replace(Email, ";", "")
' Verifica dentro do Acess.
' Insere no Banco
Next

Response.Write "E-mails Cadastrados ..."
%>

Tentei funcionar, ele não insere os email e não dá nenhum erro, simplesmente pisca a tela e volta com a caixa vazia, pensei até que tinha funcionado na primeira, mas era muita sorte.

Acho que na parte onde diz: ' Insere no Banco

Devo colocar isso?????

<%

End if

DoLcase = request("action")

Action = lcase(DoLcase)

if Action = "add" then

set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_Connection1_STRING

Recordset1.Source = "SELECT Member_Id FROM Email_Members where member_email ='"&request("email")&"'"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 3

Recordset1.Open()

Recordset1_numRows = 0

if not recordset1.eof then %>

<%

Else

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_Connection1_STRING

MM_editCmd.CommandText = "insert into Email_members (Member_name, Member_Email)values('"&request("name")&"','"&request("email")&"')"

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

%>

qualquer ajuda será bem vinda