Using VBA for Excel97 to automate Outlook97 or Outlook98

[Rudi GOUSSEY]

I have a excelfile with a macro with reference to msoutl8.olb(office97) which is in a shared drive. This macro is being used by other depts. One dept uses outlook97, another uses outlook98, and another doesn't use outlook. When the first dept uses this macro, it creates an error for them because they have outllook98 and thus changes the reference to msoutl85.olb in their pcs. How can i solve this problem.

I tried this to insert this piece of code in the macro, but this doesn't solve the problem : VBA for Excel97 doesn't know the method References.AddFromFile
….
If Dir("C:\Program Files\Microsoft Office\Office\msoutl8.olb") Then
References.AddFromFile ("C:\Program Files\Microsoft Office\Office\msoutl8.olb")
Else
References.AddFromFile ("C:\Program Files\Microsoft Office\Office\msoutl85.olb")
End If
……

 

[jimboy]

Hi, welcome to the board.

Have a play around with this;

Sub file_exists()
'look in directory for filename

If Len(Dir("C:\Program Files\Microsoft Office\Office\msoutl9.olb", vbDirectory)) = 0 Then
References.AddFromFile ("C:\Program Files\Microsoft Office\Office\msoutl8.olb")
Else
References.AddFromFile ("C:\Program Files\Microsoft Office\Office\msoutl85.olb")
End If
End Sub

 

[Rudi GOUSSEY]

Thanks for the reply

By running your code i got the same errormessage as my code and this on the code line (although msoutl8.olb is available on the given path) :

. . .
References.AddFromFile ("C:\Program Files\Microsoft Office\Office\msoutl8.olb")
. . .

Errormessage :
Runtime error 424
Object Required

It seems vba for excel97 doesn't know the method or object "References.AddFromFile" . . .