Logical reference type check in VBA 2

[mguidry5]

Howdy,

I'm trying to use the CDO sendmail method that I found in a FAQ here, but I have some computers that are sure to not have the CDOsys reference enabled on their machines. If I use late binding to set this reference, I get errors when and if the reference is already set. I use this to set the reference before running the CDO email code in a form module:

References.AddFromFile "C:\WINDOWS\System32\cdosys.dll"

Is there a way to logically check whether this reference is already set on the machine running the code, and only set it if it is not?

 

[JerryKlmns]

Dim ref As Access.Reference

For Each ref In Application.References
Debug.Print ref.Name
Next

 

[PWise]

Dim ref As Reference
dim isref as Boolean
isref = false
' Enumerate through References collection.
For Each ref In References
     If ref.fullpath = "C:\WINDOWS\System32\cdosys.dll" Then
        isref= true
        exit for
     else      

     EndIf
Next ref
if isref = false then
  References.AddFromFile "C:\WINDOWS\System32\cdosys.dll"
end if

 

[mguidry5]

Thanks, PWISE! That did the trick!