Sub Testing()
 Call Project1.ThisOutlookSession.Foo
End Sub