Office 2003, VB6 problem

[springboknath]

Hi

I am busy making an app that searches through all items in my inbox and saves certain types of attachments to a specified folder.

However when i run my program i get the an error
"Automation error, The specified module could not be found"

Under the references i have "Microsoft Outlook 11.0 Object library" ticked as well as a couple others.

the error occurs when the following line is executed

Set oOutlook = New Outlook.Application

the part of code is below

Dim oOutlook As Outlook.Application
Dim oNs As Outlook.NameSpace
Dim oFldr As Outlook.MAPIFolder
Dim oMessage As Object
Dim sPathName As String
Dim oAttachment As Outlook.Attachment
Dim iCtr As Integer
Dim iAttachCnt As Integer
 
If txtPath = "" Then
 MsgBox "Enter a path to save attachments to!", vbExclamation + vbOKOnly, "Path problem"
Else
 sPathName = txtPath.Text
 If Right(sPathName, 1) <> "\" Then sPathName = sPathName & "\"
   If Dir(sPathName, vbDirectory) = "" Then FileSystem.MkDir (sPathName)
 
   [COLOR=Red] Set oOutlook = New Outlook.Application[/COLOR]
    Set oNs = oOutlook.GetNamespace("MAPI")
    Set oFldr = oNs.GetDefaultFolder(olFolderInbox)

Any help would be greatly appreciated.

Thanks
Nath

[springboknath]

Hi

Just a little something else i discovered, if outlook 2003 is open when i run the program and i change

Set oOutlook = New Outlook.Application

to

Set oOutlook = Outlook.Application

then it works. so there seems to be a problem with the "new" but i still dont know how to correct it....

Nath

[RobDog888]

If your adding a reference to Outlook then the Set oOutlook = New Outlook.Application will work. If your not setting a reference to Outlook then use Set oOutlook = CreateObject("Outlook.Application") and that will create the instance. The reason why Set oOutlook = Outlook.Application works if Outlook is running is because its already created. If its not running then it will error.

[springboknath]

Hi

I have tried what you said and i still get the "Automation error, The specified module could not be found" error.

It does this if i have the reference included and use

Set oOutlook = New Outlook.Application

it also happens if i use no reference and

Set oOutlook = CreateObject("Outlook.Application")

could this possibly be a problem with my outlook installation??

[RobDog888]

Yes, it could be. Try a Detect and Repair from Outlooks help menu and maybe an Office Update.