Discussion :

[popo]

Bonjour,

Je fais des essais pour créer des dossier dans les différentes boites d'Outlook (Boîte de réception, Eléments envoyés et Brouillons).
Ce code fonctionne si Outlook est fermé mais j'ai une exception avec le message "Échec de l’exécution du serveur" si Outlook est déjà ouvert.

J'ai mis des messageBox un peu partout pour savoir où ça plante mais, j'en ai aucun qui apparaît. Ce qui signifie que ça plante sur

Code Delphi :

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

1
2
3
4
5
try 
   Outlook := GetActiveOleObject('Outlook.Application');
except
   Outlook := CreateOleObject('Outlook.Application');
end;

Le code complet de ma procédure

Code Delphi :

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
procedure TestOutlook();
var
    Outlook       :OleVariant;
    Mapi          :variant;
    Inbox, Sentbox, DraftBox  : Variant;
    Folder : Variant;
    i : Integer;
 
const
  olFolderSentMail  = $00000005;  // Elément envoyés
  olFolderInbox = $00000006;      // Boîte de réception
  olFolderDrafts = $00000010;     // Brouillons
 
 
begin
  try
    try
 
      try 
        Outlook := GetActiveOleObject('Outlook.Application');
      except
        Outlook := CreateOleObject('Outlook.Application');
      end;
 
      ShowMessage('1');
 
      Mapi := Outlook.GetNamespace('MAPI');
      ShowMessage('2');
      Inbox := Mapi.GetDefaultFolder(olFolderInbox);
      ShowMessage('3');
      Sentbox := Mapi.GetDefaultFolder(olFolderSentMail);
      ShowMessage('4');
      DraftBox := Mapi.GetDefaultFolder(olFolderDrafts);
      ShowMessage('5');
 
      Folder := Unassigned;
      for i := 0 to Inbox.Folders.Count - 1 do
      begin
        Folder := Inbox.Folders[i];
        if (Folder.Name = 'Toto dans Inbox') then
          Break;
      end;
 
      if (Folder = Unassigned) then
        Inbox.Folders.Add('Toto dans Inbox');
 
      ShowMessage('6');  
      Folder := Unassigned;
      for i := 0 to Sentbox.Folders.Count - 1 do
      begin
        Folder := Sentbox.Folders[i];
        if (Folder.Name = 'Toto dans Sentbox') then
          Break;
      end;
 
      if (Folder = Unassigned) then
        Sentbox.Folders.Add('Toto dans Sentbox');
 
      Folder := Unassigned;
      for i := 0 to DraftBox.Folders.Count - 1 do
      begin
        Folder := DraftBox.Folders[i];
        if (Folder.Name = 'Toto dans DraftBox') then
          Break;
      end;
 
      if (Folder = Unassigned) then
        DraftBox.Folders.Add('Toto dans DraftBox');
    except
      on E:Exception do
      begin
        ShowMessage('Outlook : ' + E.Message);
      end;
    end;
  finally
    Outlook := Unassigned;
    Mapi := Unassigned;
    Inbox := Unassigned;
    Sentbox := Unassigned;
    DraftBox := Unassigned;
    Folder := Unassigned;
  end;
end;

Je travaille avec Dephi 7 et Outlook 2010.

[tourlourou]

Et si tu essayes en déclarant var Outlook: Variant; ?

[Papy214]

pas le temps d'approfondir mais si réponse il y a, elle est surement ICI

[tourlourou]

Est-ce que ton application et l'Outlook déjà ouvert auraient des droits/profils utilisateurs différents ?

[popo]

Effectivement, mon Delphi est lancé avec des droit administrateur pour pouvoir utiliser un complément lié à SVN.
J'aurai dû y penser, je m'était déjà fait avoir dans un complément Outlook appelant ce programme.