Autres OutLook VBA - Vérifier qu'un complément est actif

[Dudu2]

Bonjour,

Une personne m'a posé cette question. Je n'y connais rien en VBA pour Outlook et je voudrais savoir si quelqu'un sur ce forum saurait coder quelque chose répondant à la question du titre.

Merci par avance.

 

[patricktoulon]

bonsoir Staple1600
oui mais @Dudu2 essaie avec un des names ou descriptions directement
comaddins est une collection de trucs pas un seul

 

[Dudu2]

Je ne vois pas trop où ce code serait faux:

Sub GetOutlookAddins()
    Dim i As Integer
    Dim App As New Outlook.Application
    Dim Cellule As Range
   
    Set Cellule = [A1]
    Cellule.Resize(14, 6).ClearContents
    Cellule.Value = "Compléments Outlook"
   
    For i = 1 To App.COMAddIns.Count
        Cellule.Offset(i, 0) = App.COMAddIns.Item(i).Description
        Cellule.Offset(i, 5) = IIf(App.COMAddIns.Item(i).Connect, "Actif", "Inactif")
    Next i
End Sub


Sub GetComAddins()
    Dim i As Integer
    Dim Cellule As Range
   
    Set Cellule = [A15]
    Cellule.Resize(14, 6).ClearContents
    Cellule.Value = "COM Add-Ins"
   
    For i = 1 To Application.COMAddIns.Count
        Cellule.Offset(i, 0) = Application.COMAddIns.Item(i).Description
        Cellule.Offset(i, 5) = IIf(Application.COMAddIns.Item(i).Connect, "Actif", "Inactif")
    Next i
End Sub

Chez moi...
La première fonction donne ça:

La deuxième fonction donne ça:

 

[Dudu2]

Bonsoir @patricktoulon,

@Staple1600,

Le code fonctionne aussi dans Outlook (j'aurais du le préciser)
Par contre, ca devient coton (de ce que j'ai pu lire) si il s'agit d'activer un Addin

C'est pas grave de ne pas pouvoir le réactiver.
L'essentiel c'est de notifier de son inactivité.
Tu dis que ce code tourne dans Outlook ?
Il suffit de trouver l'équivalent du Workbook_Open() en Outlook.
J'ai essayé Sub Application_Startup() avec un MsgBox mais sans résultat.

 

[Dudu2]

Ok indeed !
Dans Outlook:

Sub GetComAddins()
    Dim i As Integer
 
    For i = 1 To Application.COMAddIns.Count
        Debug.Print Application.COMAddIns.Item(i).Description & " " & IIf(Application.COMAddIns.Item(i).Connect, "Actif", "Inactif")
    Next i
End Sub

C'est cohérent avec la liste dans Excel sur application OutLook !

 

[Dudu2]

Achhhhhhhhh !
Si il faut que Private Sub Application_Startup() soit dans:

 

[Dudu2]

Donc c'est réglé, c'est bon on sait faire.

 

[Dudu2]

Private Const NomComplémentAVérifier = "Connecteur Outlook BlueMind"

'------------------------------------
'Vérifie que le Complément à vérifier
'est actif à l'ouverture de Outloook
'------------------------------------
Private Sub Application_Startup()
    Dim i As Integer
  
    For i = 1 To Application.COMAddIns.Count
        If Application.COMAddIns.Item(i).Description = NomComplémentAVérifier Then Exit For
    Next i
    
    If i <= Application.COMAddIns.Count Then
        If Not Application.COMAddIns.Item(i).Connect Then
            MsgBox "ATTENTION !" & vbCrLf & _
                   "Le complément <" & NomComplémentAVérifier & "> n'est pas actif."
        End If
    Else
        MsgBox "ATTENTION !" & vbCrLf & _
               "Le complément <" & NomComplémentAVérifier & "> n'a pas été trouvé."
    End If
End Sub

 

[Staple1600]

Re

Oui mais comme je le disais
Savoir si un addin est actif ou pas c'est simple
Mais l'activer par VBA si il ne l'est pas c'est autre chose.

Sur mon PC de boulot, il y a des stratégies de sécurité.
Avec mon compte, j'ai un message d'erreur et mon Outlook est interfacé avec Exchange sur lequel je n'ai aucun droit car ne suis (et ne peut) me logger en tant qu'admin

 

[Dudu2]

Mais l'activer par VBA si il ne l'est pas c'est autre chose.

Certes, ce serait le gâteau sur la cerise. Mais ce n'est pas la demande de la personne.
Pour l'instant

Merci pour votre aide sans laquelle j'en serais encore à tailler des silex.

 

[Dudu2]

En fait j'ai trivialement essayé de mettre le .Connect = True sur un complément désactivé.
Voilà le message:

Donc, si ce n'étaient les droits, cela aurait peut-être suffit ??!!

 

[Staple1600]

Re

La question qui me turlupine c'est pourquoi passer par VBA quand Office permet de savoir quels sont les compléments désactivés en 5 clics
Fichier/Options/Compléments/Gérer/Eléments désactivés puis ALT+A


EDITION: C'est ce même message d'erreur que j'ai eu ce matin

 

[Dudu2]

Office permet de savoir quels sont les compléments désactivés en 5 clic

Quand tu as un complément Outlook nécessaire pour de la synchronisation avec d'autres devices et apparemment indispensable pour un professionnel, tu peux avant chaque lancement de Outlook vérifier les Compléments actifs en effet avec "seulement" 5 clics.... Ou encore déléguer cette tâche à une macro.

 

[Dudu2]

La raison pour laquelle cette vérification est utile dans la demande qui m'a été faite, c'est que le Complément en question est parfois actif et parfois inactif, dans une instabilité que les fournisseurs de la plateforme ne sont pas capables d'expliquer et encore moins de régler.

 

[Staple1600]

Re

Tu as vu le lien que j'ai mis plus bas ?
On pourrait imaginer aller voir dans la base de registre puisqu'apparemment Outlook réalise un log du chargement des ses addins.

 

[Dudu2]

Non, pas vu le lien