Как работать с Outlook - ом в Delphi?
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Мне нужно выгрузить вложенные файлы из присланых сообщений. Подскажите кто знает.
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Если речь идет об OutLook из MsOffice (а не OutLookExpress), то я думаю можно это сделать средствами VBA. Устанавливаем справку по VBA для OutLook пишем макрос из любого офисного приложения. Перевести этот макрос на Delphi не составит труда (если это еще будет нужно).
Т.е. надо смотреть объектную модель Outlook-а.
Т.е. надо смотреть объектную модель Outlook-а.
Попробуй в яндексе или гугле набрать "ole delphi outlook"
Обработчик события получения новой почты
procedure TDTExtensibility2.NewMailex(EntryIDCollection: WideString);
var
NS: NameSpace;
FLD: MAPIFolder;
MI: MailItem;
i: Integer;
begin
NS:= Host.GetNamespace('MAPI');
FLD:= NS.GetDefaultFolder(olFolderInbox);
MI:= (NS.GetItemFromID(EntryIDCollection,FLD.StoreID) as MailItem);
for i:=1 to MI.Attachments.Count do
MI.Attachments.Item(i).SaveAsFile(MI.Attachments.Item(i).FileName);
......
end;
procedure TDTExtensibility2.NewMailex(EntryIDCollection: WideString);
var
NS: NameSpace;
FLD: MAPIFolder;
MI: MailItem;
i: Integer;
begin
NS:= Host.GetNamespace('MAPI');
FLD:= NS.GetDefaultFolder(olFolderInbox);
MI:= (NS.GetItemFromID(EntryIDCollection,FLD.StoreID) as MailItem);
for i:=1 to MI.Attachments.Count do
MI.Attachments.Item(i).SaveAsFile(MI.Attachments.Item(i).FileName);
......
end;