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

  • Автор темы Elvis
  • Дата начала
Статус
Закрыто для дальнейших ответов.
E

Elvis

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

Barmutik

Гость
#2
К атачментам всё просто:

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

Elvis

Гость
#3
Дело в том что я выдираю все сообщения и они у меня описанны как 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?
 
E

Elvis

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

Barmutik

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

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

Guest

Гость
#6
<!--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?
 
B

Barmutik

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

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

Guest

Гость
#8
<!--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.
 
Статус
Закрыто для дальнейших ответов.