Buscar

Enviar um email pelo delphi/outlook

Código

//Essa dica, abre a janela de Nova Mensagem do Outlook para envio de e-mail:

{ Declare em uses ShellApi }
var
  Mensagem: string ;
begin
  Mensagem := 'mailto:Alguem@alguem.com.br';
  ShellExecute(GetDesktopWindow,'open',
    PChar(Mensagem), nil , nil , SW_SHOWNORMAL);
end;

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Arquivos
Adicionada dia: 09/12/05
Por: Victor Roberto
Visualizada: 10021 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009