Reading Outlook folders

[dRAMmer]

Can somebody care to give me a code where I can start to read outlook folders and possibly to manipulate messages (ie delete messages, tag messages as read/unread). Thanks in advance!

[RobDog888]

Here you go. Mark as read, save changes, prompt for deletion.

Option Explicit
'Adda reference to MS Outlook xx.0 Object Library
Private Sub Form_Load()
    Dim oApp As Outlook.Application
    Dim oFolder As Outlook.MAPIFolder
    Dim oItem As Object
    Dim i As Integer
    Set oApp = New Outlook.Application
    Set oFolder = oApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    For i = 1 To oFolder.Items.Count
        Set oItem = oFolder.Items.Item(i)
        oItem.UnRead = False 'Mark it as read
        oItem.Save
        If MsgBox("Delete Item: " & vbNewLine & oItem.Subject, vbOKCancel + vbQuestion, "RobDog888's Outlook Demo") = vbOK Then
            oItem.Delete 'Delete the item
        End If
        Set oItem = Nothing
    Next
    Set oFolder = Nothing
    Set oApp = Nothing
End Sub

[dRAMmer]

Great! Thanks!