Lista de email
01/02/2003
0
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;
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;
Luiseugenio
Curtir tópico
+ 0
Responder
Posts
01/02/2003
Luciano Pimenta®
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+
:)
//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
Clique aqui para fazer login e interagir na Comunidade :)