none
Outlook VBA RRS feed

Answers

  • Sub test()
    Dim fldrInbox As MAPIFolder
    Set fldrInbox = Outlook.ActiveExplorer().Session.GetDefaultFolder( _
        Outlook.OlDefaultFolders.olFolderInbox)
    fldrInbox.Items(fldrInbox.Items.Count).Display
    End Sub
    Tuesday, April 16, 2013 2:50 PM

All replies

  • Sub test()
    Dim fldrInbox As MAPIFolder
    Set fldrInbox = Outlook.ActiveExplorer().Session.GetDefaultFolder( _
        Outlook.OlDefaultFolders.olFolderInbox)
    fldrInbox.Items(fldrInbox.Items.Count).Display
    End Sub
    Tuesday, April 16, 2013 2:50 PM
  • hi

    Provided solution is helpful.

    Thank you so much for your reply.

    Wednesday, April 17, 2013 7:33 AM