1

Estou fazendo um utilitário onde vai ter o nome do funcionário, seu ramal e seu email.
Gostaria que ao clicar no e-mail já abrisse o Outlook. Como isso seria possível?

2 Respostas 2

1

Adicione a unit shellapi e tente isso, no evento CellClick. Troque o 'CAMPO EMAIL' pelo nome do seu campo, maiúsculo se for o caso.

    procedure TForm1.DBGrid1CellClick(Column: TColumn);
    begin

      if (Column.Field.Name = 'CAMPO EMAIL') then
      begin

        ShellExecute(handle, 'open', pchar('mailto:' + Column.Field.Value), nil, nil, sw_ShowNormal);

      end;


    end;
10
  • Como faço para adicionar a unit shellapi? Desculpe a pergunta, mais sou iniciante.
    – Edder
    Commented 11/02/2014 às 15:35
  • achei o códido da unit shellapi. Adicionei ela, mas esta com um erro ainda.
    – Edder
    Commented 11/02/2014 às 15:46
  • [dcc32 Error] mainRamais.pas(70): E2089 Invalid typecast
    – Edder
    Commented 11/02/2014 às 15:49
  • [dcc32 Fatal Error] Utilitarios_KVA.dpr(5): F2063 Could not compile used unit 'mainRamais.pas'
    – Edder
    Commented 11/02/2014 às 15:49
  • Você está colocando a ShellApi em seu uses ou tentando copiar o código dela para seu aplicativo? É só adicionar no uses...
    – RaphaelZ
    Commented 11/02/2014 às 16:02
0

Algum tempo atrás eu tive uma necessidade similar e consegui resolver com base nesta resposta do Sertac Akyuz no SOEN que utiliza o método MailItem.Display.

Basicamente você precisa declarar a unit ComObj e criar uma função como esta:

procedure TFrmExemplo.EnviarEmail(Destinatario, Assunto, Mensagem: string;
  Anexo: TFileName);
var
  Outlook: OleVariant;
  Mail: Variant;
const
  olMailItem = $00000000;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  Mail := Outlook.CreateItem(olMailItem);
  Mail.to := Destinatario;
  Mail.Subject := Assunto;
  Mail.Body := Mensagem;
  if Anexo <> EmptyStr then
    Mail.Attachments.Add(Anexo);
  Mail.Display;
end;

Uma vez criada basta chamar o Event Handler que mais lhe parecer adequado, como o OnCellClick.

Vale notar que para que o método funcione é necessário que a máquina possua o Outlook instalado. Eu ainda não testei no Windows 8 mas acredito que funcione apenas com o Outlook para Desktop.

1
  • Opa, legal... Eu tava tentando lembrar dessa dica aí para ajudar o amigo, mas na hora lembrei o código inteiro... Desse jeito é melhor pois dá para compor a mensagem inteira ;)
    – RaphaelZ
    Commented 11/02/2014 às 16:04

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .