Array
(
)

Outlook Express - (anexando arquivos)

Edibertoalves
   - 27 dez 2005

Olá pessoal tudo blz com vcs?


Estou fazendo o seguinte código que no momento está tudo OK!
Eu quero que o usuário ao clicar no botão de Envio já apareça os emails correspondentes, mais o assunto e o corpo da mensagem. Está tudo certinho conforme código abaixo:

procedure TfrmTarefas.btnEnviarClick(Sender: TObject);
begin
shellexecute(self.Handle, nil,
´mailto:email1@email.com.br; email2@email.com.br´+
´?subject=Envio de Dados.´+
´&Body= Assunto TESTE ´ +
´&attach=C:\Sistema\Inventario\inventario.xml´,
nil, nil, SW_NORMAL);
end;

Só que eu quero agora é que já venha pré-estabelecido o caminho do arquivo e que já apareça o mesmo já anexado na janela de Envio. Tem como fazer isso??? Pesquisei aqui no fórum e não achei algo que possa agregar a isso.

Agradeço antecipadamente

[]´s


Bfbraz
   - 24 mai 2006

Qual biblioteca preciso declarar para Shellexecute funcionar ???


Adriano Santos
   - 24 mai 2006

O mailto não suporta anexos, veja [url=http://forum.devmedia.com.br/viewtopic.php?t=59849&highlight=mailto&sid=f9c2e2f1e48554f2a546671a152263e7]neste tópico[/url]
Uma solução é usar MAPI, veja [url=http://forum.devmedia.com.br/viewtopic.php?t=68638&highlight=anexo+++email&sid=f9c2e2f1e48554f2a546671a152263e7]neste tópico.[/url]

Dá uma pesquisa no fórum sobre MailTo e MAPI, vai encontrar várias discussões.