Outlook: Манипуляции с письмами

Private Sub Application_NewMail()

Set myFolder = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)


On Error GoTo ErrHandler

For Each mi In myFolder.Items.Restrict("[Unread]=TRUE")
If mi.Class = olMail Then
If mi.Attachments.Count = 0 And mi.FlagStatus = olFlagComplete Then
For miNum = 1 To mi.Attachments.Count

Next miNum

End If
End If
Next mi
Exit Sub

ErrHandler:
'MsgBox ("Error was find")
Debug.Print (Err.Description)
Debug.Print (Err.Number)
End Sub


http://www.cyberforum.ru/vba/thread630949.html