Function to load reference library - Not seeing something in function

[Ruegen]

I call this function before I run the code that uses outlook to email - however it won't add the library. Outside of the function this code works fine, in a public function in a module it won't work...

'adds the outlook library
Public Function addOutlookLibrary() As Boolean


Dim ref As Object
Dim OutlookPath As String
dim refexists  as boolean
OutlookPath = "C:\Program Files (x86)\Microsoft Office\Office14\MSOUTL.OLB"




        If Len(Dir(OutlookPath)) = 0 Then
        MsgBox "You are missing the required library, you can't use this form to send emails"
        addOutlookLibrary = False
        
        Exit Function
        
        Else
        
        refexists = False
              
             For Each ref In References
             Debug.Print ref.Name
                 If ref.Name = "Outlook" Then
                     refexists = True
                 End If
             Next
             
            If refexists = False Then
            Access.References.AddFromFile (OutlookPath)
            End If
        
        addOutlookLibrary = True
        End If


End Function

[ranman256]

Do you have the OUTLOOK OBJECT library , manually loaded via VBE menu, TOOLS, REFERENCES, outlook object lib?

[Ruegen]

Do you have the OUTLOOK OBJECT library , manually loaded via VBE menu, TOOLS, REFERENCES, outlook object lib?

No. That's the point of the function. I have one to add function and one to remove.

[Missinglinq]

I can't remember ever having occasion to do this kind of thing, but for some reason have an archived blurb on it from somewhere in the distant past. According to this, in order to dynamically load a Reference Library you first have to manually add a reference named

Microsoft Visual Basic for Applications Extensibility

Once that is loaded, you can then use code to dynamically load other libraries. In other words, it's a Reference needed to load References! Is that the Redmond Way, or what?

Linq ;0)>

[Ruegen]

I can't remember ever having occasion to do this kind of thing, but for some reason have an archived blurb on it from somewhere in the distant past. According to this, in order to dynamically load a Reference Library you first have to manually add a reference named

Microsoft Visual Basic for Applications Extensibility

Once that is loaded, you can then use code to dynamically load other libraries. In other words, it's a Reference needed to load References! Is that the Redmond Way, or what?

Linq ;0)>

it works normally for me within a regular event however loading the function in the event containing the same code does not work...

I was hoping just to have it on hand as a function so that it would save typing it out each time I want to bring it into play

[June7]

Did you try it as a non-event Sub instead of Function? Although really don't know why that would make a difference.

I just tested a Sub and it doesn't find the MSOUTL.OLB file. Because mine is in Program Files folder (the 64-bit OS version). Works. So I backtracked and tried the function. That works also.

How are you calling the function?

[ssanfu]

I found some code to add/remove references on-the-fly:

http://stackoverflow.com/questions/5...rogramatically


By Doug Steele (good article)
Access Reference Problems
http://www.accessmvp.com/djsteele/ac...nceerrors.html


https://www.accessforums.net/program...ces-26064.html
see post # 13

[Ruegen]

Thanks guys for your help - I narrowed down the problem

I was the line

Access.References.AddFromFile (OutlookPath)

I replaced it with

References.AddFromFile (OutlookPath)

I don't know why I had access in front of it....

[June7]

Odd, I used your code and it ran fine for me. But glad you got it resolved.