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 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
C'est justement vers quoi mes recherches m'avaient menéesEdit: ou peut-être que si: App.COMAddIns.Item(i).Connect
Sub GetComAddins()
Dim addin As Office.COMAddIn
Dim i As Integer
For i = 1 To Application.COMAddIns.Count
Set addin = Application.COMAddIns.Item(i)
Debug.Print "ProgId = """ + addin.progID + """; Connected = " + CStr(addin.Connect)
Next i
End Sub
'code de : Andrei Smolin
sub test()
Dim count As Integer
Dim app As New Outlook.Application
count = app.COMAddIns.Count
For i = 1 To count
Set addin = app.COMAddIns.Item(i)
Debug.Print "ProgId = """ + addin.progID + """; Connected = " + CStr(addin.Connect)
Next i
Next
End Sub
Sub test_Complement_OL()
Dim NomA$
NomA = "Microsoft Exchange Add-in"
check = Etat_Comp(NomA)
If check Then
MsgBox NomA & "chargé dans Outlook? : " & check, vbInformation
Else
MsgBox NomA & "non chargé dans Outlook", vbCritical
End If
End Sub
Function Etat_Comp(Name As String) As Boolean
Dim i%, test
For i = 1 To Application.COMAddIns.Count
If Application.COMAddIns(i).Description = Name Then
test = Application.COMAddIns(i).Connect
Exit For
End If
Next
Etat_Comp = test
End Function
Function Etat_CompB(Name As String) As Boolean
Etat_CompB = Application.COMAddIns(Name).Connect
End Function