用于搜索收件箱的Outlook VBA代码

Question

我试图编写一个Outlook宏，它将在我的收件箱中循环并搜索每个电子邮件主题行以查找包含六位整数（作业号）的文本，例如102296然后将主题行中具有该作业编号的任何电子邮件移动到作业编号指定的子文件夹。可以有任意数量的作业文件夹，所有作业文件夹都以唯一的6位数作业编号开头，后跟作业标题，例如102296-energy报告。我编写的代码可以在电子邮件中搜索手动编制的作业编号，但希望进一步自动化该过程。