| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Visitors | 1409620 | | Impressions | 5191096 |
| |
|
| |
| Author: Michael Bauer | Homepage | | Date: 15.09.2008 | Accessed: 16891 | | | | Description
This sample demonstrates how to mark an e-mail as read as soon is it's being copied or moved into a folder. |
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace
Dim F As Outlook.MAPIFolder
Set Ns = Application.GetNamespace("MAPI")
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Folders("test")
Set Items = F.Items
End Sub
Private Sub Items_ItemAdd(ByVal Item As Object)
Item.UnRead = False
Item.Save
End Sub
|
| | |
| | |  | ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more] |
| | |  | Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more] |
| | |  | SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more] |
| | |  | OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more] |
| |
|
