1

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

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
3
  • 新しい環境ということですので、確認ですが、もちろんOutlookはインストールされていますよね。 Commented 2019年8月28日 9:02
  • 池田様、コメントありがとうございます。Outlookはインストールできており、オブジェクトも作れています。Subjectは入るのですが、TOとBodyでエラーが生じ、Sendを実行できないようです。なお、VBAでドラフトしたメールを手動で送信することは可能です。ToとBodyをウォッチ式でみたところ、型がVariant/Integerと表示されているのが気になっています。
    – h.tnk
    Commented 2019年8月28日 23:50
  • Bodyに関してはBodyFormatの設定を先に行って、その後にBodyではなくHTMLBodyにHTMLの形式で内容を設定してみてはどうでしょう?MailItem.BodyFormat, Outlook does not render html contentToの方は、RecipientsAddResolveに変えてみるとか?MailItem.To, Recipients.Add, Recipient.Resolve
    – kunif
    Commented 2019年8月29日 4:40

1 件の回答 1

1

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

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。