Thank you, Graham, for the quick response.
When I try the code I get an errorcode on the line:
Set olApp = OutlookApp ()
with the statement: "Sub or Function not defined"

I tried with

Set olApp = Outlook.Application ()
But I get the same result.
Regards,
WivanS