Discussion :

[retwas]

Bonjour,

Pour envoyer un email via Outlook je fait un : GetActiveOleObject('Outlook.Application')

Sur mon PC en Win10 avec Office 2016, aucun soucis. Par contre sur certains poste cela ne renvoi rien .. (ça vole).

Avez vous une idée du pourquoi ? (le poste qui a le problème est aussi en Win10 + Office 2016).

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
               repeat
                  GetOutlookApp(bOutlookInstance);
                  if not bOutlookInstance then
                  begin
                     //Si on abandonne on simule que l'on a trouvé oultook pour sortir de la boucle
                     // MAIS on dit que le resultat est FAUX
                     if MessageDlg('Microsoft Outlook doit être démarré avant de continuer.'
                                  +#13+#10+''+#13+#10
                                  +'Démarrer Microsoft Outlook puis cliquer sur "Réessayer"'+#13+#10+'Sinon cliquer sur "Abandonner"',
                                  mtWarning, [mbAbort, mbRetry], 0) = mrAbort then
                     begin
                        bOutlookInstance := true;
                        Result := false;
                     end;
                  end;
               until bOutlookInstance;
// et le code de la fonction
function GetOutlookApp(var bFind : boolean) : OLEVariant;
begin
   LogIntoFile('Récupération de l''application Outlook');
   bFind := false;
   result := Unassigned;
 
   try
      result := GetActiveOleObject('Outlook.Application'); // ca vole ici et bFind reste à False
      bFind  := true;
      LogIntoFile('Application Outlook trouvée');
   except
      LogIntoFile('Application Outlook non trouvé');
   end;
end;

"S'il n'existe pas d'object recensé pour le progId passé à la fonction GetActiveOleObject, celle-ci lève une exception EOleSysError avec le message "Opération non disponible"."
Bien entendu Outlook est ouvert à chaque fois .. je ne comprend pas.

Merci

[ShaiLeTroll]

Est-ce que la version de Office 2016 est 32 bits sur les deux postes ?
Si tu produits un EXE Delphi 32 bits, je ne suis pas sûr qu'il puisse voir un OLE 64 Bits et inversement ...

As-tu essayé la piste du Focus comme mentionné dans "Problème pour s'attacher à l'Instance d'Application Office en cours d'exécution" ou dans "GetObject ou GetActiveObject ne trouve pas une application Office en cours d'exécution"

Essaye via l'API GetActiveObject pour voir le contenu HRESULT (en espérant que le code d'erreur soit plus explicite que "Opération non disponible")
En plus sur Google avec le HRESULT, on trouvera plus d'info !

[retwas]

Est-ce que la version de Office 2016 est 32 bits sur les deux postes ?
Si tu produits un EXE Delphi 32 bits, je ne suis pas sûr qu'il puisse voir un OLE 64 Bits et inversement ...

Essaye via l'API GetActiveObject pour voir le contenu HRESULT (en espérant que le code d'erreur soit plus explicite que "Opération non disponible")
En plus sur Google avec le HRESULT, on trouvera plus d'info !

Sur mon poste Win10-64 et Office 2016-64 cela fonctionne.
Mon collègue qui a le problème Win10-64 et Office 2016-32.

L'exe de Delphi qui est généré est en 32 bits.

Je viens de trouver cela aussi, le Running Object Table qui pourrait expliquer mon problème mais c'est un peu flou ..
https://support.microsoft.com/en-us/kb/238610

Je vais voir avec mon collègue si cela passe avec un Office 2016 en 64 bits.

Merci

EDIT: Je n'avais pas vu le reste de la réponse .. j'ai essayé le focus mais pas mieux, pour l'API ca s'utilise comment cette chose ? ..

[retwas]

Le HResult renvoi .. Unsigned