dredd00
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Private Sub Application_Quit()
Dim myOlApp As Outlook.Application
Dim mpfInbox As Outlook.MAPIFolder
Dim obj As Outlook.MailItem
Dim i As Integer
Set myOlApp = CreateObject("Outlook.Application")
Set mpfInbox = myOlApp.GetNamespace("MAPI").Folders("test")
' Loop all items in the Inbox\Test Folder
For i = 1 To mpfInbox.Items.Count
If mpfInbox.Items(i).Class = olMail Then
Set obj = mpfInbox.Items.Item(i)
If obj.SenderEmailAddress = "someone@example.com" Then
'Set the yellow flag icon
obj.FlagIcon = olYellowFlagIcon
obj.Save
End If
End If
Next
End Sub |
Всего записей: 71 | Зарегистр. 27-02-2007 | Отправлено: 07:01 29-11-2007 | Исправлено: dredd00, 07:03 29-11-2007 |
|
