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

[tourlourou]

Bonjour,
Même chose en remplaçant les espaces par des %20 ?

[sematimo]

ouii avec #20 toujours même problème

[tourlourou]

Code :

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

1
2
MyProcess.Executable := 'Open';
MyProcess.Parameters := 'mailto:xxxx.xxxx@xxxx.fr?subject=Sujet&body=mon message';

fait-il mieux ?

[sematimo]

toujours le même résultat avec

Code :

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

1
2
MyProcess.Executable := 'Open';
MyProcess.Parameters.add('mailto:xxxx.xxxx@xxxx.fr?subject=Sujet&body=mon message');

[sematimo]

Problème résolut avec:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  MyProcess: TProcess;
begin
  MyProcess := TProcess.Create(nil);
  try
    MyProcess.Executable := 'cmd.exe';
    MyProcess.Parameters.Add('/C');
    MyProcess.Parameters.Add('start mailto:xxxx.xxxx@xxxx.fr?subject=Test&body=Hello');
    MyProcess.Options := MyProcess.Options + [poWaitOnExit];
    MyProcess.Execute;
  finally
    MyProcess.Free;
  end;