Set objOutlook = CreateObject("Outlook.Application")
    Set objMapiName = objOutlook.GetNamespace("MAPI")
    Set objFolder = objMapiName.GetDefaultFolder(olFolderInbox)
cnt = objFolder.Items.Count
If cnt = 0 Then Label1.Visible = True...etc..etc



This program doesn't cause Outlook to
actually check for new messages.If there are messages in the inbox it tries to read the one alraedy downloaded.Please help me to find a code for actually receive new messages