Outlook connection failing.

[IndigoDragon]

Hi there,

I made a macro to import mail from an Outlook folder.
Worked fine in Office2002. Now, when using Office2003 the script says a 'module can not be found'. The line it's referring to doesn't contain a module name as far as I know. I used the following script:

Dim OLF As Outlook.MAPIFolder, CurrUser As String, _
EmailItemCount As Integer, i As Integer, EmailCount As Integer

Application.Calculation = xlCalculationManual
Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
EmailItemCount = OLF.Items.Count

************
etc., etc.

The error occurs on the line "Set OLF". (I added references to Outlook object library.)
Excel says that "GetObject()" is a module...???

Does anyone know what the problem is?

ThanX for your replies.

 

[PHV]

Is Outlook already launched ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[IndigoDragon]

Hi PHV,

thanx for your reply!
Outlook is already running.

Else: wouldn't Excel say an object or app can not be found?
And: isn't GetObject() a native vba function? It now reads it as a module name. That's where the problem is.

Greetz.

 

[PHV]

No missing references ?
Does the Project compiles properly ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[IndigoDragon]

Hi PHV,

I found what was wrong. It was the notation. GetObject(,"Outlook.Application") is accepted, GetObject("","Outlook.Application") is not. ???

I don't know why, but, whatever...

ThanX for your replies!

cYa.