Tenta assim...
procedure TForm1.Button1Click(Sender: TObject);
var
pEMail: String;
begin
pEMail:= 'mailto:[EMAIL PROTECTED]"C:\sqlnet.log"';
ShellExecute(0, nil, pchar(pemail), nil, nil, sw_showmaximized);
end;
Marcos Esteves Simão
Programador de Computador - Unimed Vitória
[EMAIL PROTECTED]
GERIN - CODES
-----Mensagem original-----
De: Rodrigo Ferreira [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 28 de fevereiro de 2005 13:56
Para: delphi-br@yahoogrupos.com.br
Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Assunto: [delphi-br] Incluir anexo no e-mail????
Boa pessoal tenho esse pegueno script que abre o OutLock Express com um
e-mail porem estou com um dificuldade em implementar a parte que anexa um
arquivo ao email.
Se alguem souber como eu faco para implementar nesse codigo a opcao de
incluir o anexo por favor me de um help agradeco a colaboracao.
procedure TForm1.Button1Click(Sender: TObject);
var
email: string;
begin
email := 'mailto:[EMAIL PROTECTED]';
email := email + '?subject=' + 'Solicitação Orçamento do Catalogo';
email := email + '&body='+'Dpto. Compras' #13+ ' * A/C Sr. Augusto
Fernando';
ShellExecute(0, nil, pchar(email), nil, nil, sw_showmaximized);
end;
end.
Atenciosamente
Rodrigo Ferreira
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
