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

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

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

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

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

roguesith

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кстать кому мб интересно пример vbs для поиска вложений:
Sub find_attachment_eng()
    Dim olApp As Outlook.Application
    Dim olNs As NameSpace
    Dim Fldr As MAPIFolder
    Dim MoveToFldr As MAPIFolder
    Dim olMi As MailItem
    Dim olAtt As Attachment
    Dim MyPath As String
    Dim i As Long
 
    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
     
    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 = "123.jpg" Then
                        MsgBox "Found!" + olAtt.FileName, vbOKOnly + vbExclamation, "Object found!"
                    End If
            Next olAtt
        End If
    Next i
 
    Set olAtt = Nothing
    Set olMi = Nothing
    Set Fldr = Nothing
    Set MoveToFldr = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
End Sub
Может быть у кого-нибудь есть подобные конструкции чтобы в 100500 раз не изобретать велосипед?=)

Всего записей: 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.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru