Need Access function to run Outlook Macro

[newcoder54]

Hi:

A need a function for Access 97 so when run will run a macro I created in Outlook XP - Thanks - Larry

 

[jbpelletier]

i dont know how to do it with outlook.. but its sould be kinda that same as to run an excel macro via acces

thats how its can be done:

Dim objXL As Object
Set objXL = CreateObject("Excel.Application")

objXL.Application.Visible = True
objXL.Application.Workbooks.Open GetDBDir & "\" & "macro.xls"
objXL.Application.Run "macro.xls!formatage"
.....
objXL.Application.Workbooks("macro.xls").Close
Set objXL = Nothing


jb