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!
Printable View
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!
Here you go. Mark as read, save changes, prompt for deletion. :D
VB Code:
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
Great! Thanks!