Discussion :

[CmzxNene]

Bonjour à tous,

J'ai mis le post ci-après à la suite de la discussion de SissiII du 17 mars mais je viens de m'apercevoir qu'elle était résolue !!!

Bref, j'ai le même problème en ce moment avec un fichier créé par moi sous Excel 2016 et mis à disposition sur un serveur pour plusieurs utilisateurs.
Certains l'ouvrent correctement et d'autres ont le message d'erreur à l'ouverture.

Ce matin, je me suis connecté sur le poste d'un utilisateur sous Office 2013 et j'ai changé la librairie Outlook ==> Manquant la 16 et positionné sur la 15
J'ai sauvegardé le fichier en le fermant
Je le réouvre et nickel.

Cet après-midi, l'utilisateur me rappelle car à l'ouverture du fichier, message d'erreur
Je me connecte et les paramètres mis le matin disparus : s'affiche uniquement Manquant pour la 16...

Est-ce dû à mon code ci-après ?

Code :

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

1
2
3
4
5
6
7
8
9
 
  Dim appOutLook As Outlook.Application
  Dim Email As String
  Dim Email2 As String
  Dim MonMessage As Object
  Dim Texte As String
 
    Set appOutLook = New Outlook.Application
    Set MonMessage = appOutLook.CreateItem(olMailItem)

Comment faire pour que des utilisateurs à versions différentes puissent ouvrir le fichier sans l'erreur ?
Une idée ?

Bien cordialement

[Invité]

Bonjour,

En enlevant la référence à Outlook dans vos DLL et en créant une instance Outlook en late binding ?

Code :

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

1
2
3
4
5
6
 
Dim appOutLook As Object, MonMessage As Object
Dim Email As String, Email2 As String, Texte As String
 
    Set appOutLook = CreateObject("Outlook.Application")
    Set MonMessage = appOutLook.CreateItem(0)    ' Dans ce cas il vous faut utiliser les valeurs numériques au lieu les noms des énumérations

[Philippe Tulliez]

Bonjour,
Une même question posée sur deux posts différents, j'ai répondu dans l'autre discussion

[CmzxNene]

Bonjour Philippe,

Une même question posée sur deux posts différents, j'ai répondu dans l'autre discussion

Oui je sais c'est pourquoi j'ai expliqué la raison de ce nouveau post : je me suis aperçu après que l'autre était résolu !

Pour ton conseil, je ne connaissais pas le Late Binding et je vais ce lundi m'y pencher.
Je pense que je reprendrai contact à l'issue.
Je ne ferme pas ce post dans l'attente de la suite
Bien cordialement

[CmzxNene]

Bonjour Philippe,

En grattant un peu sur internet je suis tombé sur ce code pour utiliser Outlook sans librairie
J'ai fait un test sur mon poste en supprimant le Microsoft Outllok 16.0 Object Library et ça a l'air de fonctionner

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
Sub EnvoiMail()
    Dim oAPP As Object
    Dim oItem As Object
 
   Const olMailItem As Long = 0
 
   Set oAPP = CreateObject("Outlook.Application")
 
   Set oItem = oAPP.CreateItem(olMailItem)
 
    ' set basic properties and display the email
   With oItem
        .To = "ccc@ccc.fr"
        .Subject = "Bonjour test"
        .Body = "Coucou"
        .Display
    End With
 
End Sub

Il me reste à le tester sur des postes où les utilisateurs n'ont pas la même version d'Office.
Merci pour ton avis éclairé.
Bien cordialement

[Philippe Tulliez]

Bonjour,

En grattant un peu sur internet je suis tombé sur ce code pour utiliser Outlook sans librairie
J'ai fait un test sur mon poste en supprimant le Microsoft Outllok 16.0 Object Library et ça a l'air de fonctionner

Oui, c'est du Late binding (liaison tardive)

[CmzxNene]

Bonjour Philippe,

Je confirme que le code Late Binding que j'ai mis ci-dessus fonctionne chez tous les utilisateurs.
Merci pour cette orientation : cela va me servir sur mes futurs fichiers à mettre en ligne.

Bien cordialement