[albert]

Hi Peter.
Thanks again for all your help.
Did what you just told me.
I get errors in these two lines:

Dim objMailItem As outlook.MailItem
Dim objOutlook As outlook.Application

what to do?
Thanks,
Albert