【Outlook VBA】CurrentItemプロパティで今開いているメールのMailItemオブジェクトを取得する方法