Como abrir cliente de e-mail padrão ???
Como faço para abrir o cliente de e-mail padrão??? e além de abrir, como faço para preencher alguns campos (to:, subject:, body:...) com valores pré-definidos???
Gostaria de colocar um botão em um Form de cadastro de clientes, onde bastaria o usuário clicar para que fosse aberto o Outlook, Netscape, Eudora... e que alguns campos já viessem preenchidos com valores do cadastro desse cliente!!!
[]´s
Rodrigo Duarte
Gostaria de colocar um botão em um Form de cadastro de clientes, onde bastaria o usuário clicar para que fosse aberto o Outlook, Netscape, Eudora... e que alguns campos já viessem preenchidos com valores do cadastro desse cliente!!!
[]´s
Rodrigo Duarte
Anonymous
Curtidas 0
Respostas
Navoid
27/02/2003
use assim
// declare na clausula uses a unit sehllapi
****
procedure envia_email(email, assunto, mensagem: string);
begin
shellexecute(0, ´open´, ´mailto:´+email+´?subject=´+assunto+´&body=´+mensagem, ´´, ´´, SW_SHOW);
end;
****
até
// declare na clausula uses a unit sehllapi
****
procedure envia_email(email, assunto, mensagem: string);
begin
shellexecute(0, ´open´, ´mailto:´+email+´?subject=´+assunto+´&body=´+mensagem, ´´, ´´, SW_SHOW);
end;
****
até
GOSTEI 0