VBA Code No Longer Works

[jstevens]

I'm having a challenge setting a variable with Outlook VBA. The code use to work and the only thing I can think of that may be different is a MS update. The error messages is "Run-time error 13: type mismatch"

Code: Select all

Dim Folder As Outlook.Folder

'MsgBox Application.Session.Folders("TS_Gmail").Folders("Inbox")          'Msgbox returns the variable. In this case "InBox"
Set Folder = Application.Session.Folders("TS_Gmail").Folders("Inbox")   'Code fails here

Your thoughts are appreciated.

[HansV]

Strange - it works for me if I replace TS_Gmail with a mailbox in my Outlook.
- What happens if you replace TS_Gmail with the name of another mailbox?
- What happens if you change the name of the variable to objFolder?
- What happens if you declare the variable as Object instead of as Outlook.Folder?

[jstevens]

Hans,

Declaring the variable as Object instead of as Outlook.Folder worked.

Thanks for the suggestions.