Creio que deva declarar a unit ShellAPI
procedure Tfrm_RCP.btn_EnviaEMAIL(Sender: TObject);
var
pEMail: String;
begin
pEMail:= 'mailto:[EMAIL PROTECTED] da
mensagem"CAMINHO e NOME Arquivo Anexo" '
{$ifdef win32}
ShellExecute(Handle,'Open',pChar(pEmail),nil,nil,sw_Show);
{$endif}
end;
Marcos Esteves Sim�o
Programador de Computador - Unimed Vit�ria
[EMAIL PROTECTED]
GERIN - CODES
-----Mensagem original-----
De: Vanderlei [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 25 de novembro de 2004 09:24
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Enviar e-mail com anexo via programacao
Pessoal,
Preciso enviar um e-mail com anexo via programa��o, mas nao estou
encontrando uma rotina q fa�a isso, alguem
teria isso pra me enviar?
no aguardo
Vanderlei
[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
