Sub OL_Addins()
Dim count As Integer
Dim app As New Outlook.Application
count = app.COMAddIns.Count
For i = 1 To count
MsgBox(app.COMAddIns.Item(0).Description)
Next
End Sub
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
C'est pas grave de ne pas pouvoir le réactiver.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
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
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
Certes, ce serait le gâteau sur la cerise. Mais ce n'est pas la demande de la personne.Mais l'activer par VBA si il ne l'est pas c'est autre chose.
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.Office permet de savoir quels sont les compléments désactivés en 5 clic