Вход | Регистрация

1С:Предприятие ::

Метки:OLE и COM

тащим письма из аутлука

Ø [Волшебник, 03.12.04 - 20:42]
Я
   Ёжик в тумане
 
1 - 01.12.04 - 19:09
Мощно задвинул, внушаить.. (с)
   Егор
2 - 01.12.04 - 19:20
ай а че оно так некрасиво отобразилося то?
Попытка
       outer=Создатьобъект("outlook.application");
    исключение  
        сообщить("Не удалось подключиться к Outlook!"); 
        возврат;
    конецпопытки;
    Если фс.Существуетфайл(каталогИБ()+"\Resume\in\")=0 тогда          фс.Создатькаталог(каталогИБ()+"\Resume\in\");
    конецесли;
    namesp=outer.GetNameSpace("MAPI");
    targetF=namesp.GetDefaultFolder(6);
   for n=1 to  targetF.Items.Count() do
       
   if найти(targetF.Items(n).Subject,"резюме")<>0 then
        for d=1 to  targetF.Items(n).Attachments.Count() do          targetF.Items(n).Attachments.Item(d).SaveAsFile(каталогИБ()+"\Resume\in\"+строка(текущаядата())+"_"+targetF.Items(n).Attachments.Item(d).DisplayName);
        enddo;    
        targetF.Items(n).Delete();  
    endif;
    enddo;
   Бивень
 
3 - 01.12.04 - 19:23
КаталогИБ() возвращает строку заканчивающуюся символом "\" ...
   Ёжик в тумане
 
4 - 01.12.04 - 19:24
Хочешь сказать, если у меня начнут письма пропадать,
то это будет твоих рук дело?
   Лошадка в пальто
 
5 - 01.12.04 - 20:55
Там это в (0) не у 427 спионерено?
   Егор
6 - 03.12.04 - 19:49
(5) прям таки спионерено! я это целый день сам придумывал! а ты спионерено...
   Бивень
 
7 - 03.12.04 - 19:54
(6) Почерк уж больно похож на 427 ...


Список тем форума
 
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует