Доступ к обьектам Оутлука

Тема в разделе "Delphi - Система", создана пользователем Elvis, 3 авг 2005.

Статус темы:
Закрыта.
  1. Elvis

    Elvis Гость

    Элвис вернулся .
    В Делфи я далеко не гуру, поэтому бегаю по форумамм в поисках советов. У меня возникла следующая проблема. Надо добраться до обьектов оутлука (ну например входящих писем), это уже решенно, но надо так же обрабатывать и аттачмент сообщения, смотретькакого он типа и если Ехель то парсить стринг находящийся во вкладке "Тема/Title". До сообщений добрался, выдираю контент и тему сообщения, но не знаю как добираться до аттачмента. Если ктонибудь знает как мне помочь поможите плиз. Желательно пример на Делфи 5.0 (Вопрос среды не затрагивается ЭТО НЕ МОЁ ЖЕЛАНИЕ ПИСАТЬ ПЕРОМ НА ПАПИРУСЕ).
    Заранее благодарен![/i]
     
  2. Barmutik

    Barmutik Гость

    К атачментам всё просто:

    1. У MailItem есть свойство Attachments
    2. Вернётся интерфейс на Attachments
    3. У него есть Count и свойсто Item, что бы получать атачменты по очереди
    4. Далее работай с ним как хочеш .. я например делаю так:
    Код (Text):
    FMailMessage.Attachments.Item(AAttachmentIndex).SaveAsFile(TmpFileName);
    5. Если тебе просто надо получить имя атачмента то к свойству FileName у атачмента ну и там проверить .. xls он или нет.
     
  3. Elvis

    Elvis Гость

    Дело в том что я выдираю все сообщения и они у меня описанны как OLEVariant.

    var
    outlook, NameSpace, mailItem: OLEVariant;
    MyFolder, MyItem , Attach: OLEVariant;

    i : integer;
    s : string;
    s1 : string;
    s2 : string;
    begin
    outlook := CreateOleObject('Outlook.Application');
    NameSpace := outlook.GetNameSpace('MAPI');

    MyFolder := Namespace.GetDefaultFolder(olFolderInbox);
    for i := 1 to MyFolder.Items.Count do
    begin
    MyItem := MyFolder.Items;
    s:= MyItem.Subject;
    s1:= MyItem.Body;

    вот как показанно выше. Можно как - то конвертнуть MyItem в тип MailItem?
     
  4. Elvis

    Elvis Гость

    Или добираться какнить по другому к сообщениям.
    Если можно приведите простенький пример на 5-ом Делфи.
     
  5. Barmutik

    Barmutik Гость

    Импортируйте библиотеку типов от MS Outlook ... если хотите работать с объектами напрямую...

    Вы сейчас используете позднее связывание ... у Вашего mailItem можно просто вызвать Attachments и получите список атачей у письма. Абсолютно так же как Вы вызываете Subject and Body...
     
  6. Guest

    Guest Гость

    <!--QuoteBegin-Barmutik+3:08:2005, 15:47 -->
    <span class="vbquote">(Barmutik @ 3:08:2005, 15:47 )</span><!--QuoteEBegin-->Импортируйте библиотеку типов от MS Outlook ... если хотите работать с объектами напрямую...

    Вы сейчас используете позднее связывание ... у Вашего mailItem можно просто вызвать Attachments и получите список атачей у письма. Абсолютно так же как Вы вызываете Subject and Body...
    [snapback]22902" rel="nofollow" target="_blank[/snapback]​
    [/quote]

    [/CODE]MyItem.Attachments.Item[j].SaveAsFile(D:\....);
    Код (Text):

    Vidaiot oshibk:
    Ne udaiotsea sohraniti vlojenie. U vas nety sootvetstvuiushih prav dlea etoi operatsii.
    Podskaji please v kakom napravlenii kopati. Eto sveazanno s nastroikami bezopasnosti outlook-a? ili drugoe 4to-to?
     
  7. Barmutik

    Barmutik Гость

    Странно .. ни разу не было проблем с сохранением вложений...

    Какая версия Оутлука ?
     
  8. Guest

    Guest Гость

    <!--QuoteBegin-Barmutik+4:08:2005, 11:50 -->
    <span class="vbquote">(Barmutik @ 4:08:2005, 11:50 )</span><!--QuoteEBegin-->Странно .. ни разу не было проблем с сохранением вложений...

    Какая версия Оутлука ?
    [snapback]22941" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    2003
    Ia uje razobralsea nado prosto eshio ukazivati i imea faila, ia je etogo ne delal.
    Sapsibo za pomoshi, vi mne realino pomogli sovetami.
     
  9. Barmutik

    Barmutik Гость

    Удачи! <_<
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей