rol
Posts: 4
Joined: 2011-11-14
|
|
Andrei Smolin
Add-in Express team
Posts: 18794
Joined: 2006-05-11
|
Richard,
Here's a raw sketch demonstrating how to connect to the MailItem.AttachmentAdd event of a mail item opened in the active inspector:
var
mail: TMailItem;
{$R *.dfm}
procedure TAddInModule.adxRibbonTab1Controls0Controls0Click(
Sender: TObject; const RibbonControl: IRibbonControl);
var
IDisp: IDispatch;
IMail: _MailItem;
begin
if mail <> nil then
mail.Disconnect;
IDisp := OutlookApp.ActiveInspector.CurrentItem;
IDisp.QueryInterface(IID__MailItem, IMail);
if IMail <> nil then
begin
mail := TMailItem.Create(nil);
mail.ConnectTo(IMail);
mail.OnAttachmentAdd := DoAttachmentAdd;
end;
end;
procedure TAddInModule.DoAttachmentAdd(ASender: TObject;
const Attachment: Attachment);
begin
ShowMessage('');
end;
Andrei Smolin
Add-in Express Team Leader |
|