Window７+excel2010のVBAでシートをメールしようとすると、ActiveSheet.MailEnvelopeのところでオートメーションエラーが出るのですが？どうすれば解決できますでしょうか？

Question

すいません、誤って、先に出してしまったようです

下記のようなコードで試したのですが、よろしくお願いします

Sub 集計表送付()

    With ActiveSheet.MailEnvelope
        .Introduction = "週間売上集計表を送付します。"
        With .Item
            .Recipients.Add "[e-mail]" 'アドレスです
            .Subject = "週間売上集計表(" & Date & ")"
            .send
        End With
    End With

End Sub

Answer 1

以下のページを読むと、ExcelとOutlookのバージョンが一致している必要があるようですが、いかがでしょうか？

MailEnvelope not working in Excel 2007
http://www.outlookforums.com/threads/14617-mailenvelope-not-working-excel-2007-a/

---

★良い回答には回答済みマークを付けよう！ わんくま同盟 MVP - Visual C# http://d.hatena.ne.jp/trapemiya/

Answer 2

情報、ありがとうございます

はい、両方のバージョンが同じでなくてはいけないことはわかりました

現在、両方とも、14.0.6129.5000ですが、同じ、症状が出ます

他の方で、違う情報をお持ちでしたら、どうぞ、ご指導、よろしくお願いします

Answer 3

Sub 集計表送付()

   'この1行を加えてください

   ' ********************************

    ActiveWorkbook.EnvelopeVisible = True

    ' ********************************

    With ActiveSheet.MailEnvelope
        .Introduction = "週間売上集計表を送付します。"
        With .Item
            .Recipients.Add "[e-mail]" 'アドレスです
            .Subject = "週間売上集計表(" & Date & ")"
            .send
        End With
    End With

End Sub