Seat » 10 апр 2005, 20:53
Обработчик события получения новой почты
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;