Discussion :

[sematimo]

Bonjour à tous
J'essaie de lancer la messagerie par défaut à partir d'une application avec Tproceess.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 uses Process;
 
procedure TForm1.Button_sendClick(Sender: TObject);
var
   MyProcess:tprocess ;
begin
MyProcess:=tprocess.Create(nil);
MyProcess.CommandLine:= 'mailto:xxxx.xxxx@xxxx.fr?subject=Sujet&body=mon message';
MyProcess.Options := MyProcess.Options + [poWaitOnExit];
MyProcess.Execute;
MyProcess.Free;

Mais j'ai toujours ce message:
impossible exécuter commande