| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
danielbortolozo
Novato
Registrado: Segunda-Feira, 30 de Junho de 2008
Mensagens: 77
Localização: São José do Rio Preto
|
 Enviada: Ter Jul 17, 2012 10:58 am Assunto: Copiar o registro e-mail para modo texto |
 |
|
Olá galera !!!
Eu gostaria de saber se alguem ja fez isso, copiar todos os e-mails cadastrado,
em um arquivo texto? Eu tenho a tabela aluno que tem o campo email, gostaria de pegar todos os e-mail, e fazer uma mala direta.
agradeço desde já. |
|
| Voltar ao Topo |
|
 |
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Ter Jul 17, 2012 1:15 pm Assunto: |
|
|
Boa tarde Daniel!
Se for só pra gravar os e-mails em um arquivo texto, basta percorrer a tabela de alunos e gravar a coluna de e-mail no arquivo, mais ou menos da seguinte forma:
| Código: | var
ArquivoTexto: TextFile;
begin
AssignFile(ArquivoTexto, 'C:\Arquivo.txt'); // aqui você indica o nome e caminho do arquivo
TabelaAlunos.First; // posiciona o cursor no primeiro registro
while not (TabelaAlunos.Eof)) do // percorre a tabela
begin
WriteLn(ArquivoTexto, TabelaAlunos.FieldByName('Email').AsString);
TabelaAlunos.Next; // move para o próximo registro
end;
CloseFile(ArquivoTexto); // fecha o arquivo
end; |
Abraço! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
