roguesith
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Чуть копнул: For i = 1 To Fldr.Items.Count If TypeOf Fldr.Items(i) Is Outlook.MailItem Then Set olMi = Fldr.Items(i) 'Поиск по вложениям For Each olAtt In olMi.Attachments If olAtt.FileName = "СЗ по уволенным.jpg" Then 'MsgBox "Found!" + olAtt.FileName + " in " + olMi.Subject, vbOKOnly + vbExclamation, "Object found!" 'olMi.Display (True) 'Вывести окно с сообщением на экран (фокус в списке сообщений не переводится) 'Fldr.Items(i).Display 'То же самое 'Определения размера вложения MsgBox olAtt.size 'Размер вложения отличается от указанного в Свойствах файла Windows End If Next olAtt 'Поиск по тексту в теле письма If InStr(olMi.Body, "нием, Сергей") > 0 Then 'MsgBox olMi.ReceivedTime 'j = j + 1 'olMi.Display (True) End If 'Поиск по точной дате MyDate = Format(olMi.ReceivedTime, "yyyy-mm-dd h:n:s") If MyDate = "28.05.2012 14:57:23" Then 'olMi.Display (True) End If 'Поиск по дню MyDate = Format(olMi.ReceivedTime, "yyyy-mm-dd") If MyDate > "24.05.2012" Then 'olMi.Display (True) End If End If Next i |