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
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;
-
Como faço para adicionar a unit shellapi? Desculpe a pergunta, mais sou iniciante.– EdderCommented 11/02/2014 às 15:35
-
achei o códido da unit shellapi. Adicionei ela, mas esta com um erro ainda.– EdderCommented 11/02/2014 às 15:46
-
-
[dcc32 Fatal Error] Utilitarios_KVA.dpr(5): F2063 Could not compile used unit 'mainRamais.pas'– EdderCommented 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...– RaphaelZCommented 11/02/2014 às 16:02
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.
-
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 ;)– RaphaelZCommented 11/02/2014 às 16:04