Outlook-Objektbibliothek wechselt nicht zwischen Version 12 und 14

Question

Ich habe eine .dotm-Vorlagendatei auf einer Netzwerkfreigabe. Es gibt Makros mit Verweisen auf die Objektbibliotheken Word, Office und Outlook. Wir verwenden zwei verschiedene Plattformen, Windows XP und Windows 7, zusammen mit Microsoft Office 2007 und Office 2010. Wenn Benutzer die Vorlagendatei öffnen, werden die Verweise für Word und Office automatisch und entsprechend angepasst (dh sie sind auf Microsoft Word 12 Object eingestellt) Bibliothek oder Microsoft Word 14 Objektbibliothek nach Bedarf), und die Makros laufen ohne Probleme.

Microsoft Outlook-Objektbibliothek wechselt ordnungsgemäß von Version 12 zu 14. Es wechselt nicht ordnungsgemäß von Version 14 zu 12. In diesem Fall gibt es den Fehler, dass die Bibliothek nicht gefunden wird. Ist das ein Fehler? Gibt es eine Problemumgehung? Etwas, das ich übersehe?

Answer 1

ForEachLoop,

Es scheint, dass Ihre Frage weitgehend beantwortet. Ich werde lediglich der Klarheit halber ein paar Informationen hinzufügen und dieser Frage eine Antwort geben. Ein Benutzer in den Microsoft-Foren, Ossiemac, notierte, dass LateBinding was the way to go, wie von Siddarth Rout angegeben wurde. Wie von Siddarth angedeutet, bedeutet das, dass Sie sich nicht um Referenzen kümmern müssen.

Ossiemac lieferte einigen Beispielcode das Latebinding in dem Senden einer E-Mail für die Verwendung, die ich neu formatiert haben und hier gestellt:

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 hat einen Artikel zum Thema des contrast of EarlyBinding and LateBinding -

~ JOL