奇怪，我在自己电脑上试了所有步骤和脚本，工作相当正常。

你确信你的代码是在VBA中双击“ThisOutlookSession”之后打开的编辑区中录入的吗？。