VBA将outlook邮件另存为PDF

如题，在调试代码过程中，截图部分提示：运行错误“13”，类型不匹配。我看了下，似乎代码没问题。请教下，是我哪里写错了吗？谢谢！

olFolder.Items里并非所有的都是Mail，还有子目录、别的项
可以先判断类型或者用On Error 跳过下