Write an Email address from Outlook 2019 Inbox to a textfile

Question

I want to fight spam!

For this I have a macro which looks in a text file "BlackList.txt" for email addresses and put them in spam folder.

Pub