VBA将邮件另存为PDF

代码如下，可以正常运行，但保存出来的PDF打不开，无法查看，但如果把代码里的pdf改成msg，就可以正常打开保存出来的邮件。请问有其他解决方式吗？谢谢！

追加一下，我的邮箱有“另存为Adobe PDF”的选项

另excel版本如下：

检查下你的outlook版本是否支持另存为pdf，换言之，你在outlook里面直接操作，另存为pdf，这个功能有没有
如果没有，你可以借助pdf虚拟打印机，也就是说，安装一个pdf虚拟打印机并且设置为你的计算机的默认打印机，然后你的代码调用打印功能，打印邮件。