Discussion :

[ririrourou]

Bonjour tout le monde,
Durant la désinstallation d'un produit crée sous Inno Setup, je souhaite envoyer un mail au fournisseur afin de l'informer de la raison pour laquelle la désinstallation a été faite, pour ce but, voici le bout de code que j'utilise:

j'ai créé une fonction que j'appelle durant la désinstallation et qui demande à l'utilisateur d'envoyé ou pas un message qu'il doit créer dans un feedback, ce message doit être envoyé par la suite vers un outlook (si est installé) afin de pouvoir l'envoyé, voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
function Uninstall(): Boolean;
var
	Form: TSetupForm;
	FeedbackLabel0: TLabel;
	FeedbackLabel1: TLabel;
	OKButton, CancelButton: TButton;
	FeedbackMemo: TMemo;
	Feedback: String;
	Url: String;
	ErrorCode: Integer;
 
begin
	Result := false;
	Form := CreateCustomForm();
	try
 
		Form.ClientWidth := ScaleX(450);
		Form.ClientHeight := ScaleY(10+23 +10+46 +10+23 +10+23+10 + 23);
 
		Form.Caption := 'désinstallation';
		Form.BorderIcons := [biSystemMenu];
		Form.BorderStyle := bsDialog;
		Form.Center;
		OKButton := TButton.Create(Form);
		OKButton.Parent := Form;
		OKButton.Width := ScaleX(75);
		OKButton.Height := ScaleY(23);
		OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 20);
		OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);
		OKButton.Caption := 'Send';
		OKButton.ModalResult := mrOk;
		OKButton.Default := true;
		CancelButton := TButton.Create(Form);
		CancelButton.Parent := Form;
		CancelButton.Width := ScaleX(75);
		CancelButton.Height := ScaleY(23);
		CancelButton.Left := Form.ClientWidth - ScaleX(75 + 20);
		CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
		CancelButton.Caption := 'Cancel';
		CancelButton.ModalResult := mrCancel;
		CancelButton.Cancel := True;
		FeedbackMemo := TMemo.Create(Form);
		FeedbackMemo.Parent := Form;
		FeedbackMemo.Width := Form.ClientWidth - ScaleX(30 + 20);
		FeedbackMemo.Height := ScaleY(61);
		FeedbackMemo.Left := ScaleX(30);
		FeedbackMemo.Top := Form.ClientHeight - ScaleY(23 + 10 + 10) - FeedbackMemo.Height;
		FeedbackLabel0 := TLabel.Create(Form);
		FeedbackLabel0.Parent := Form;
		FeedbackLabel0.AutoSize := False;
		FeedbackLabel0.Left := ScaleX(30);
		FeedbackLabel0.Top := ScaleY(10);
		FeedbackLabel0.Width := Form.ClientWidth - ScaleX(30 + 20);
		FeedbackLabel0.Height := ScaleY(42);
		FeedbackLabel0.WordWrap := True;
		FeedbackLabel0.Caption := 'We regret you have uninstalled . ' +
								'To help us with future versions, ' +
								'we want to know about any troubles or difficulties ' +
								'you have experienced while using.';
		FeedbackLabel1 := TLabel.Create(Form);
		FeedbackLabel1.Parent := Form;
		FeedbackLabel1.Left := ScaleX(30);
		FeedbackLabel1.Top := ScaleY(10+42+10);
		FeedbackLabel1.AutoSize := True;
		FeedbackLabel1.Height := ScaleY(21);
		FeedbackLabel1.Caption := 'Please let us know...';
		FeedbackLabel1.FocusControl := FeedbackMemo;
		Form.ActiveControl := FeedbackMemo;
 
		if Form.ShowModal() = mrOk then
		begin
			Feedback := Trim(FeedbackMemo.Lines.Text);
			if Feedback <> '' then
			begin
				StringChange(Feedback, '&amp;', '%26');
				StringChange(Feedback, #13#10, '%0A');
				StringChange(Feedback, #13, '%0A');
				StringChange(Feedback, #10, '%0D');
				Url := 'mailto:support@gerixsoft.com?Subject=' +
					'Product%20Uninstall&amp;Body=' + Feedback;
 
				ShellExec('open', Url, '', '', SW_SHOW, ewNoWait, ErrorCode);
			end;
		end;
	finally
	Form.Free();
	end;
end;

Le problème qi se pose mnt c'est que ma variable Url me renvoie effectivement l'adresse mail et le sujet du message mais pas le contenu du message (le message que le client doit envoyer au fournisseur)

Code :

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

1
2
3
 
Url := 'mailto:support@gerixsoft.com?Subject=' +
					'Product%20Uninstall&Body=' + Feedback;

on dirait quil ne reconnait pas Body puisqu'il réussi à me mettre l'adresse que je désire dans le champ des adresse mail aussi bien que le sujet du mail mais le contenu du message ne s'affiche pas. Est ce que quelqu'un a déjà eu un problème pareil? si c'est pas Body ce qu'il faut mettre alors on met quoi pour que ça fonctionne, des tonnes de questions dont je souhaite trouver la réponse grâce à vous.

Cordialement

[ouiouioui]

et avec sa:

Code :

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

Url := 'mailto:support@gerixsoft.com?Subject=' + 'Product%20Uninstall&Body=' + Feedback

chez moi sa fonctionne. Avec Windows live mail.