シェア
コードmsgbox GetolAccountNamePrivate Function GetolAccountName() Set olapp = CreateObje…
全体' Outlookのインスタンスを生成 ---0Set olApp = CreateObject("Outlook.Application")' …