Просмотр полной версии : Как работать с Outlook - ом в Delphi?
Мне нужно выгрузить вложенные файлы из присланых сообщений. Подскажите кто знает.
Naeel Maqsudov
16.02.2005, 18:49
Если речь идет об OutLook из MsOffice (а не OutLookExpress), то я думаю можно это сделать средствами VBA. Устанавливаем справку по VBA для OutLook пишем макрос из любого офисного приложения. Перевести этот макрос на Delphi не составит труда (если это еще будет нужно).
Т.е. надо смотреть объектную модель 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.I tem(i).FileName);
......
end;
Powered by vBulletin® Version 4.0.2 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. Перевод: zCarot