

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

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

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

**エラーメッセージ**

[code]

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

**コード**

[code]

    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
    
[/code]


CC BY-SA 4.0
2019-08-28T06:38:11.070
57656
2022-01-27T05:00:55.117
2019-08-28T06:46:01.767
3060
35630
question
excel vba
Office365 OPP(64bit)環境のExcel VBAでOutlook Mail送信が失敗する。


コメントありがとうございます。  
諸々の手段を試しましたが、どうしてもダメだったので、職場の管理担当部署へ問い合わせたところ、独自のセキュリティ設定が邪魔しているようでした。  
ｺｰﾄﾞ自体はおそらく問題なく、自社の環境の問題でした。  
大変お騒がせいたしまして、申し訳ございません。


CC BY-SA 4.0
2019-09-06T10:11:11.210
57908
2019-09-06T10:11:11.210
35631
57656
answer