3 Em 1 (RESOLVIDO)

[Alessandro]

Como abrir uma url clicando em um botão ?

Como abrir um arquivo do Excel clicando em um botão ?

Como abrir o OutLook clicando em um botão ?

Não precisa saber todos para responder....valeu

[Andreia]

Winexec('C:\arquivos de programas\outlook express\msimn.exe',SW_ShowNormal);é um código para abrir o outlook pelo delphi.

ShellExecute(GetDesktopWindow,'open',pchar('www.sua_pagina.com.br'),nil,nil,sw_ShowNormal);

espero ter ajudado

abraços

Andreia

[Alessandro]

Obrigado ...Fechou

[Corposemalma]

acho que somente:

Winexec('msimn.exe',SW_ShowNormal)

deve abrir o outlook

[Capablanca]

Se seu objetivo é enviar uma mensagem pelo Outlook, utilize o seguinte procedimento:

1) Na cláusula USES de sua unit, adicione ShellAPI. Logo, ela ficaria assim:

=======================================================

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ShellAPI;

=======================================================

2) Posteriormente acrescente o seguinte código no evento Onclick do seu botao::

=======================================================

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(0, 'open', 'mailto:email@dominio.com.br', nil, nil, SW_SHOWNORMAL);

end;

=======================================================

Sobre a URL:

Na cláusula USES de sua unit, adicione ShellAPI (como mencionado anteriormente) e posteriormente acrescente o seguinte código no evento Onclick do seu botao:

=======================================================

procedure TForm1.Button2Click(Sender: TObject);

begin

ShellExecute(GetDesktopWindow(),'open',PChar('https://www.scriptbrasil.com.br'),nil,nil,SW_SHOWNORMAL);

end;

=======================================================

Sobre o EXCEL:

Existem diversos componentes feitos para manipular arquivos do Excel (você poderá encontrá-los em http://www.torry.net - digite EXCEL na pesquisa).

Contudo, uma maneira direta seria criar uma procedure:

=======================================================

procedure OpenLink(const s: string);

begin

ShellExecute(0, 'open', PChar(s), nil, nil, SW_SHOWNORMAL);

end;

=======================================================

E depois chamá-la através de um botão, especificando a localização e o nome do arquivo (na cláusula USES de sua unit, adicione ShellAPI (como mencionado anteriormente) e posteriormente acrescente o seguinte código no evento Onclick do seu botao):

=======================================================

procedure TForm1.Button3Click(Sender: TObject);

begin

OpenLink('c:\teste.xls');

end;

=======================================================

[Alessandro]

valeu Galera......pode fechar