Créer une instance d'Outlook

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:

---

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:

---

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:

---

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.

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

Code:

---

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.

Merci pour ta réponse.

Avec ce code :

Code:

---

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:

---

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.

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.

Merci, je continue mes investigations.

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.