MISSING: Microsoft Outlook XX.X Object Library

[EAnton781]

Hi Everyone,

I have some code in my Excel 2003 document to generate an email message. It references the Microsoft Office 11.0 Object Library.

Problem is, some employees do not have 11.0, they have the 10.0 Object Library. Both 11.0 and 10.0 refer to a file named MSOUTL.OLB

I'm trying to write some code to identify this issue and update the reference selection as needed when the workbook is opened but have had no luck.

My latest attempt is as follows:

   Dim vbProj As VBProject ' This refers to your VBA project.
   Dim chkRef As Reference ' A reference.
   Dim RefGUID As String
   Dim refPath As String
   ' Refer to the activedocument's VBA project.
   Set vbProj = ActiveWorkbook.VBProject
   ' Check through the selected references in the References dialog box.
   For Each chkRef In vbProj.References
      ' If the reference is broken, send the name to the Immediate Window.
      If chkRef.IsBroken Then
        RefGUID = chkRef.Guid
        refPath = chkRef.FullPath
        vbProj.References.Remove chkRef
        vbProj.References.AddFromGuid RefGUID, 0, 0
      End If
   Next

This code finds a missing reference, clears it, and then attempts to relocate the file based on the registry GUID. The problem is that it even though the file is MSOUT.OLB, it is still looking for a 11.0 version instead of accepting the 10.0 version.

Any thoughts would be much appreciated!

P.S. Yes, i've tried late-binding here, but we are using .UserProperties to embed hidden variables in the email message which we can't get to work without using the object reference.

 

[Norie]

How exactly is the UserProperties part not working when you use late-binding?

I would have thought that if everything was set up/referenced correctly you shouldn't have any problems.

 

[EAnton781]

Well when I create the email using late binding I'm able to set all of the properties I need except .userproperties

Set EmbedValues = OutMail.UserProperties.Add(EmbedName, olText)
    EmbedValues.Value = "False"
    EmbedName = "Approved"

With OutMail
    .to = ToAddress
    .subject = SubjectString
    .Attachments.Add ActiveWorkbook.FullName
End with

 

[Norie]

What's the problem?

Are you getting errors or is the code just not doing what you want?

I notice you have olText in the code you've posted, if you were using late binding that would mean nothing - it's an Outlook VBA constant.

You would either need the library reference or a constant/variable for it.

 

[EAnton781]

Yes I'm getting errors. I'm still learning this late binding thing. Here's where I'm bombing out.

    OutApp.Session.Logon
    Dim OLMailItem
    Set OutMail = OutApp.CreateItem(OLMailItem)
    Dim EmbedValues
    Set EmbedValues = OutMail.UserProperties

    EmbedName = "UniqueID" 'embed Unique ID
    [COLOR="Orange"]Set EmbedValues = OutMail.UserProperties.Add(EmbedName, olText)[/COLOR]
    EmbedValues.Value = UniqueID

 

[Norie]

How is the code 'bombing' out?

Are you getting any error messages?

 

[EAnton781]

The error is "Data Type is not Supported"

Line is highlighted in my previous post.

 

[GTO]

Change olText to 1. As Norie pointed out, as soon as you change to late-bound, Constants that were from the referenced library are meaningless.

 

[EAnton781]

Yeah, I figured it out likely at the same time as you were typing it.

So instead of checking the references, I should be able to get the late binding to work now.

Thanks so much to both of you.

 

[EAnton781]

I'm still a little hazy on how late-binding works. Can either of you recommend a reference online I can study?