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

[Elvis]

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

 

[Barmutik]

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

1. У MailItem есть свойство Attachments
2. Вернётся интерфейс на Attachments
3. У него есть Count и свойсто Item, что бы получать атачменты по очереди
4. Далее работай с ним как хочеш .. я например делаю так:

FMailMessage.Attachments.Item(AAttachmentIndex).SaveAsFile(TmpFileName);

5. Если тебе просто надо получить имя атачмента то к свойству FileName у атачмента ну и там проверить .. xls он или нет.

 

[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?

 

[Elvis]

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

 

[Barmutik]

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

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

 

[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:\....);

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?

 

[Barmutik]

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

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

 

[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.

 

[Barmutik]

Удачи! <_<