Outlook

[xor83]

This the small code whcih checks for new email in outlook and display a message but whenever i run this app i get msg that "can't create object" althoug i have outlook installed

plz help

Sub ReadEmail()
    Dim oApp As Outlook.Application
    Dim oNameSpace As NameSpace
    Dim oFolder As MAPIFolder
    Dim oMailItem As Object
    Dim cFolder As MAPIFolder
    Dim myItems As Items
    Dim MailCounter As Integer, FolderCount As Integer
    MailCounter = 0
    Dim sMessage As String
    Set oApp = New Outlook.Application          '<<<<<<<<<<<<------------------Error
    Set oNameSpace = oApp.GetNamespace("MAPI")
    Set oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)
    MailCounter = oFolder.UnReadItemCount
    
    For FolderCount = 1 To oFolder.Folders.Count
    Set cFolder = oFolder.Folders(FolderCount)
    For Each oMailItem In cFolder.Items
    If oMailItem.UnRead = True Then
    List1.AddItem oMailItem.ReceivedTime
    End If
    Next oMailItem
    MailCounter = mailcount + cFolder.UnReadItemCount
    Next
    Set oMailItem = Nothing
    Set oFolder = Nothing
    Set mFolder = Nothing
    Set oNameSpace = Nothing
    Set oApp = Nothing
msg:
    If MailCounter = 1 Then
    MsgBox "You have 1 new message"
    Else
    MsgBox "You have " & MailCounter & " new messages"
    End If
    End Sub

[RobDog888]

Did you set a reference to MS Outlook xx.0 Object Library?

[xor83]

Yes i set the refrence for MS Outlook 10.0

i found one more thing that if i run outlook and then run the code it works fine but without running outlook it won't run

[Hack]

'Try
Set oApp = CreateObject("Outlook.Application")
'instead of
Set oApp = New Outlook.Application

[RobDog888]

I can not see any issue with this line of code.

Set oApp = New Outlook.Application

If you were to create a new blank forject with the outlook reference and add the dimensioning line and outlook creation line it should work. If it does then either there is something else going on in your app or possibly outlook may need repair. Do you have all the latest updates for it? Did you try a Help menu > Detect and Repair?

[xor83]

i have changed the code to
Set oApp = CreateObject("Outlook.Application")
and also done Help menu > Detect and Repair
but Getting same error message

[xor83]

After searching sometime I have found that error “429” comes when user does not have outlook installed on the PC but this is not in my case.