Lista de email

01/02/2003

2

Fiz uma rotina aqui para pegar todos os emails que estão cadastrados em uma tabela.

Ok.

Agora quero saber como posso fazer para abrir automaticamente o outlook para mandar para os emails certos.

Ou queria fazer o seguinte

salvar o conteúdo dessa variável em txt, mas como posso fazer isso?

porque o comando savetofile só funcionaria para se a variavel fosse do tipo tstringlist.

Mas para o tipo string não funciona....

Agradeço muito quem puder me ajudar,

Obrigado

[]´s

var
email:string;

begin
tabela.Open;
tabela.First;
while not tabela.Eof do
begin
if tabelaemail.value<>´´ then
begin
email:=tabelaemail.Value+´; ´+email;
end;
tabela.Next;
end;
tabela.Close;
end;


Responder

Posts

Eu uso assim:

//envia um email aos clientes selecionados
cds_consulta.First;
while not cds_consulta.Eof do
begin
if cds_consultaEMAIL.Value <> ´´ then //verifica se o campo EMAIL é vazio
begin
Mail := Mail + ´mailto:´+ cds_consultaEMAIL.Value +´;´;
end;
cds_consulta.Next;
end;
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
Mail:=´´;
cds_consulta.First;

Declare ShellApi em uses. Esse código abre o OutLook, e coloca todos os emais que contem o ClientDataSet Consulta.

T+

:)


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar