VBA References

Hi,

To the best of my knowledge - different Office versions use different Outlook Library References.
[9.0, 10.0, 11.0, 12.0]

If I want to distribute a WB with some code that manipulates Outlooks Calendar - How do I:

1) Determine, via code, the "Office" version of a particular computer ?
2) How can I change/select the appropriate Outlook Reference via VBA ?

*** Thanks in advance,

Elm

Msgbox "Program version " & Val(Application.Version)

You write your code using the oldest reference and then convert to late binding. This means you remove the reference to the library and change Outlook specific objects to generic Objects. Also you need to add you own outlook contants if used.

Hi,

If correctly understood your reply/command, - it displays the Office Version Number - BUT does not change the reference to the appropriate library.

If this assumption is correct - I did find something - which I will have to check - and will appreciate if you will be kind to approve that I'm on the "right track":

 Dim olApp As Object
 Set olApp = CreateObject("Outlook.Application")

Thanks, Elm

You're on the right track.

However, as Andy suggests, you should do your development using early binding, and switch to late binding when you're done, then do a regression test. That gives you IntelliSense while you're developing.

You'll get compile errors for the Outlook constants when you switch over (because you're using Option Explicit), so you'll know what constants you need to define.

Hello ElmerS,

Add this code to your macro. It will set a reference to the user's version of Outlook and allow you to early bind the object in the VBE.

'Written: February 04, 2009
'Author:  Leith Ross
'Summary: Automatically loads the correct Outlook library
'         and sets a reference to it in the Visual Basic Editor

Sub LoadOutlookLibrary()

  Dim olPath As String
  Dim WSH As Object
  
    Set WSH = CreateObject("WScript.Shell")
    
      olVersion = WSH.RegRead("HKCR\Outlook.Application\")
      
        Select Case olVersion
          Case "Microsoft Outlook 8.0 Object Library"
            ObjLib = "msoutl8.olb"
          Case "Microsoft Outlook 98 Object Library"
            ObjLib = "msoutl85.olb"
          Case "Microsoft Outlook 9.0 Object Library"
            ObjLib = "msoutl9.olb"
          Case "Microsoft Outlook 10.0 Object Library", "Microsoft Outlook 11.0 Object Library"
            ObjLib = "msoutl.olb"
        End Select
         
      olPath = Split(Environ("Path"), ";")(0) & "\"
      
      On Error Resume Next
      Application.VBE.ActiveVBProject.References.AddFromFile olPath & ObjLib
    
    Set WSH = Nothing
    
End Sub

Welcome to the forum.

Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.