La bibliothèque d'objets Outlook ne bascule pas entre les versions 12 et 14

Question

J'ai un fichier de modèle .dotm sur un partage réseau. Il existe des macros avec des références aux bibliothèques d'objets Word, Office et Outlook. Nous utilisons deux plates-formes différentes, Windows XP et Windows 7, ainsi que Microsoft Office 2007 et Office 2010. Lorsque les utilisateurs ouvrent le fichier modèle, les références pour Word et Office s'ajustent automatiquement et en conséquence (ils sont définis sur Microsoft Word 12 Object Library ou Microsoft Word 14 Object Library si nécessaire), et les macros s'exécutent sans problème.

La bibliothèque d'objets Microsoft Outlook passe correctement de la version 12 à la version 14. Elle ne bascule pas correctement de la version 14 à la version 12. Dans ce cas, l'erreur indique que la bibliothèque n'est pas trouvée. Est-ce un bug? Y at-il un travail autour? Quelque chose que je néglige?

Answer 1

ForEachLoop,

Il semble que votre question a largement répondu. Je vais simplement ajouter un peu d'information pour des raisons de clarté, et pour donner une réponse à cette question. Un utilisateur sur les Forums Microsoft, Ossiemac, a noté que LateBinding was the way to go, comme l'a déclaré Siddarth Rout. Comme l'indique Siddarth, cela signifie que vous n'avez pas à vous soucier des références.

Ossiemac fourni quelques exemples de code pour utiliser le LateBinding dans l'envoi d'un courrier électronique, que j'ai reformaté et placé ici:

Private Sub btnLateBindMethod_Click() 
    ' Variables used for LateBinding 
    Dim objOutlook As Object 'Outlook.Application 
    Dim objEmail As Object  'Outlook.MailItem  
    Dim objNameSpace As Object 'Outlook.NameSpace  
    Const OutLookMailItem As Long = 0 'For Late Binding 
    Const OutLookFolderInbox As Long = 6 'For Late Binding 
    Const OutLookFormatHTML As Long = 2 'For Late Binding 
    Dim strSubject As String 
    Dim strAddress As String 


On Error Resume Next 
Set objOutlook = GetObject(, "Outlook.Application") 
On Error GoTo 0  

    If objOutlook Is Nothing Then 
     Set objOutlook = CreateObject("Outlook.Application") 
     Set objNameSpace = objOutlook.GetNamespace("MAPI") 
     objNameSpace.GetDefaultFolder(OutLookFolderInbox).Display 
    End If 

Set objEmail = objOutlook.CreateItem(OutLookMailItem) 

strSubject = "Hello World" 

    With objEmail 

     '.To = strToAddress 'Commented to prevent accidental send 

     .Subject = strSubject 

     .BodyFormat = OutLookFormatHTML 

     .Display 

     'Full Name of window can change depending on Tools -> Options -> Mail Format 
     'Changing this option for outgoing mail changes the window name. 
     'However, AppActivate appears not to require entire name but needs up to end 
     'of - Message which is included in heading following the Subject string 
     'irrespective of the Mail Format option chosen. 
     AppActivate (strSubject & " - Message") 

    End With  
End Sub 

Jimmy Pena a un article sur la contrast of EarlyBinding and LateBinding -

~ JOL