タイトルの件、お助けいただきたくお願いします。

32bit環境では正常に動作していた以下のコードが、新しい環境だとエラーとなってしまいます。
参照設定は、Microsoft Office 16.0 Object Libraryをチェック済みです。
olMailItemのプロパティを見るとSubjectは入っていますが、ToとBodyでエラーとなっているようです。またウォッチ式を見るとToとBodyの型がVariant/Integerと表示されています。

なお、Sendメソッドは失敗しますが、Saveまでは動作します。
また、コードは参照設定にしない書き方でも同様の現象が発生しました。
Sendメソッドを実行させる方法を知りたく、ご教示いただけると幸いです。

エラーメッセージ

実行時エラー '287': アプリケーション定義またはオブジェクト定義のエラーです。

コード

Sub S01() '参照設定を使用する場合。

    Dim olAppObj As Outlook.Application
    Dim mailObj As Outlook.MailItem
    Dim toAddress As String

    Set olAppObj = New Outlook.Application
    Set mailObj = olAppObj.CreateItem(olMailItem) '指定するアイテムの種類名＝olMailItem、値＝0

    toAddress = "********@*****"

    With mailObj
        .To = toAddress
        .Subject = "*****"
        .Body = "*****"
        .BodyFormat = olFormatHTML
    End With

    mailObj.Send

    Set olAppObj = Nothing
    Set mailObj = Nothing

End Sub