Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Microsoft Outlook 2010

Модерирует : gyra, Maz

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

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
     

Всего записей: 4 | Зарегистр. 28-05-2012 | Отправлено: 11:58 28-05-2012
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Microsoft Outlook 2010


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru