Creio que deva declarar a unit ShellAPI
procedure Tfrm_RCP.btn_EnviaEMAIL(Sender: TObject);
var
pEMail: String;
begin
pEMail:= 'mailto:[EMAIL PROTECTED] da
mensagemCAMINHO e NOME Arquivo Anexo '
{$ifdef win32}
ShellExecute(Handle,'Open',pChar(pEmail),nil,nil,sw_Show);
essa rotina não funcionou comigo, alguém conseguiu usa-la
_
De: Marcos Esteves Simao (GERIN) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 25 de novembro de 2004 10:41
Para: '[EMAIL PROTECTED]'
Assunto: RES: [delphi-br] Enviar e-mail com anexo via programacao
Creio que deva
: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Enviar e-mail com anexo via programacao
essa rotina não funcionou comigo, alguém conseguiu usa-la
_
De: Marcos Esteves Simao (GERIN) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 25 de novembro de 2004 10:41
Para: '[EMAIL PROTECTED
3 matches
Mail list logo