Weird - the code is using early binding dimensioning with late binding
[vba]
Dim objApp As Outlook.Application
Dim objCDO As MAPI.Message
Dim objCDOSession As MAPI.Session
Set objApp = CreateObject("Outlook.Application")
Set objCDOSession = CreateObject("MAPI.Session")
[/vba]
Cheers
Dave