Discussion :

[pc75]

Bonjour,

Je viens de passer de Windows xp sp3 à Windows 7 (32 bits), et j'ai une appli VB6 qui ne fonctionne plus.
J'ai essayé plusieurs choses :

- 1 -

Code :

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

1
2
Dim myOlApp As Outlook.Application
Set myOlApp = CreateObject("Outlook.Application")

Erreur 429 : "Le composant ActiveX ne peut créer l'objet" sur => Set myOlApp = CreateObject("Outlook.Application")


- 2 -

Code :

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

1
2
3
4
5
6
Dim myOlApp As New Outlook.Application
Dim myDistList As Outlook.DistListItem
Dim myTempItem As Outlook.MailItem
Dim myRecipients As Outlook.Recipients
Set myTempItem = myOlApp.CreateItem(olMailItem)
Set myRecipients = myTempItem.Recipients

Erreur 13 : "Type incompatible" sur => Set myTempItem = myOlApp.CreateItem(olMailItem)


- 3 -

Code :

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

1
2
Dim myOlApp As New Outlook.Application
Dim myTempItem As New Outlook.MailItem

Erreur "utilisation incorrecte du mot clé new" sur => Dim myTempItem As New Outlook.MailItem

J'ai bien la référence "Microsoft Outlook 14.0 Object Library" cochée et non marquée "Manquante".

J'ai tenté d'exécuter VB6 en mode de compatibilité Windows xp sp3, en tant qu'administrateur, mais sans succès.

Des idées ?

Merci.

[ProgElecT]

Salut
Même OS que toi, mais version du composant Outloock 12.0.0.6680
Reste peut être tes déclarations ?

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
Private Sub Form_Load()
'------------- essais N°1, sans référencement
'Dim myOlApp As Object '<----------------- le type --------------------
'Set myOlApp = CreateObject("Outlook.Application")
'--------  pas d'erreur ------------
'Set myOlApp = Nothing
 
 
 
 
 
 
'------------- essais N°2 avec référencement ----------------
'Library Outlook
'C:\Program Files\Microsoft Office\Office12\MSOUTL.OLB
'Microsoft Outlook 12.0 Object Library
 
Dim myOlApp As Outlook.Application
Dim myTempItem As Outlook.MailItem
Set myOlApp = New Outlook.Application
Set myTempItem = myOlApp.CreateItem(olMailItem)
'--------  pas d'erreur ------------
Set myTempItem = Nothing
Set myOlApp = Nothing
 
 
End Sub

- Premier essais avec un point d'arrêt ligne 6, pas d'erreur myOlApp est bien conforme au composant Outloock.
- Deuxième essais avec point d'arrêt ligne 23, pas d'erreur myOlApp et myTempItem sont bien conformes.

[pc75]

Merci pour ta réponse.

Avec ce code :

Code :

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

1
2
3
 
Dim myOlApp As Object
Set myOlApp = CreateObject("Outlook.Application")

Erreur 429 : "Le composant ActiveX ne peut créer l'objet" sur => Set myOlApp = CreateObject("Outlook.Application")

Puis :

Code :

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

1
2
3
4
5
 
Dim myOlApp As Outlook.Application
Dim myTempItem As Outlook.MailItem
Set myOlApp = New Outlook.Application
Set myTempItem = myOlApp.CreateItem(olMailItem)

Erreur 13 : "Type incompatible" sur => Set myTempItem = myOlApp.CreateItem(olMailItem)

Dans quel mode de compatibilité tu exécutes VB6, stp ?

PS : Je suis en VB6 SP6.

[ProgElecT]

Pas de mode de compatibilité spécial, je suis administrateur local, je lance VB6 depuis un menu perso, VB6.exe hérite de mes droit administrateur.
En faisant l'essai à nouveau en session lambda, le code proposé fonctionne aussi.
Je pense que la version 12 de Outloock fait surement la différence.

[pc75]

Merci, je continue mes investigations.

[pc75]

Bonjour,

Si ça peut servir à d'autres :

Dans la panneau de configuration => Programmes et fonctionnalités (désinstaller ou modifier unn programme) => sélectionner "Microsoft Office standard 2010" => onglet "Modifier" => option "Réparer".
Cette manip a résolu mon problème.