VPF::Работа с MS Outlook - Форум программистов

Bima

Дата 22.2.2008, 08:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

День добрый.

для MS Outlook набросал в VBA один скрипт, и потом хотел его переделать под ВСВ

сам скрипт:

Код


'MsgBox ("point 1: Start")

    Dim myApp
    Dim myFolder, myFolderParent, Fi, CFolder
    Dim myNS
    Dim myItem
    Dim MailFolderName, TargetFolderName
    Dim DDif

    MailFolderName = "Папка для вложений"
    TargetFolder = "c:\SaveMessage"

    Set myApp = CreateObject("Outlook.Application")
    Set myNS = myApp.GetNamespace("MAPI")
    Set myFolder = myNS.GetDefaultFolder(9) ' olFolderInbox
    Set myFolderParent = myFolder.Parent ' get Parent Folder to Inbox

    ' перехожу в папку MailFolderName:
    For Each Fi In myFolderParent.Folders
        If Fi.Name = MailFolderName Then Set CFolder = Fi
    Next

'MsgBox ("point 2: Middle")

   ' сохраняю все вложения в непрочитаных письмах и тех, что были созданы не позднее 3 минут назад
    For Each myItem In CFolder.Items
    DDif = DateDiff("n", myItem.CreationTime, Now)
        If myItem.UnRead = True And DDif < 3 Then
                For j = 1 To myItem.Attachments.Count
                    AttachPathName = TargetFolder & "\" & myItem.Attachments.Item(j).FileName
                    myItem.Attachments.Item(j).SaveAsFile AttachPathName
                    myItem.UnRead = False
                Next j
        End If
    Next

'MsgBox ("point 3: End")

скрипт сохраняет все вложения в письмах, которые находятся в MailFolderName.

Пытаюсь делать в ВСВ, но даже не знаю, как подступится к проекту. в VBA все переменные по дефолту, поэтому даже тип их не знаю. Как перевести их в ВСВ???

Было бы хорошо, если бы был простенький пример для работы с MS Outlook на ВСВ smile

, а то весь форум перерыл, а так и нечего и не нашел.

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

jonie

Дата 22.2.2008, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 5613
Регистрация: 21.8.2005
Где: Владимир

Репутация: 7
Всего: 118

это вам в сторону COM оснастки аутглюка рыть надобно ... попробуйте погуглить по темам "outlook+plugin+source"

--------------------

Что-то не поняли? -> Напейтесь до зеленых человечков... эта сверхцивилизация Вам поможет...

bopoha

Дата 29.4.2008, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 21

Bima, решили проблему? У меня где-то подобная задача.

Это сообщение отредактировал(а) bopoha - 29.4.2008, 15:59

--------------------

Как создавать приложения на MS Access

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »