Biblioteca de objetos de Outlook no cambia entre las versiones 12 y 14

Question

Tengo un archivo de plantilla .dotm en un recurso compartido de red. Hay macros con referencias a las bibliotecas de objetos de Word, Office y Outlook. Utilizamos dos plataformas diferentes, Windows XP y Windows 7, junto con Microsoft Office 2007 y Office 2010. Cuando los usuarios abren el archivo de plantilla, las referencias para Word y Office se ajustan automáticamente y en consecuencia (es decir, están configuradas para el objeto Microsoft Word 12 Biblioteca de objetos de Microsoft Word 14 según sea necesario) y las macros se ejecutan sin problemas.

Microsoft Outlook Object Library cambia correctamente de la versión 12 a la 14. No cambia correctamente de la versión 14 a la 12. En ese caso, da el error de que la biblioteca no se encuentra. ¿Es esto un error? ¿Hay alguna solución? Algo que estoy pasando por alto?

Answer 1

bucles Foreach,

Parece ser que en gran medida su pregunta ha sido contestada. Me limitaré a agregar un poco de información en aras de la claridad, y dar una respuesta a esta pregunta. Un usuario de los foros de Microsoft, Ossiemac, señaló que LateBinding was the way to go, como ha declarado Siddarth Rout. Como lo sugiere Siddarth, eso significa que no tiene que preocuparse por las referencias.

Ossiemac proporciona un código de ejemplo para el uso de la LateBinding en el envío de un correo electrónico, que he formateado y colocado aquí:

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 Peña tiene un artículo sobre la contrast of EarlyBinding and LateBinding -

~ JOL