Ich glaub ein kleinen Ansatz hab ich schon... keine Ahnung ob das funzt! Heute Abend mal probieren...
Delphi-Quellcode:
var Outlook: OLEVariant;
MailItem: Variant;
begin
Outlook:=GetActiveOleObject('Outlook.Application');
MailItem := Outlook.MailItemXXX(olMailItem); //Befehl vergessen..... ;-)
If (MailItem.Subject = 'Spesen') and (MailItem.Attachment = '*.docx') then
Attachments.SaveAsFile(......;
end;