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

  • 質問

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

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

    Sub 集計表送付()

        With ActiveSheet.MailEnvelope
            .Introduction = "週間売上集計表を送付します。"
            With .Item
                .Recipients.Add "111@11.1111.ne.jp" 'アドレスです
                .Subject = "週間売上集計表(" & Date & ")"
                .send
            End With
        End With

    End Sub

    • 編集済み yaabamas 2013年5月10日 6:12
    2013年5月10日 6:08

回答

すべての返信

  • 以下のページを読むと、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/

    • 回答としてマーク yaabamas 2013年5月11日 5:08
    2013年5月10日 7:06
    モデレータ
  • 情報、ありがとうございます

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

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

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

    2013年5月11日 5:12
  • Sub 集計表送付()

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

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

        ActiveWorkbook.EnvelopeVisible = True

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

        With ActiveSheet.MailEnvelope
            .Introduction = "週間売上集計表を送付します。"
            With .Item
                .Recipients.Add "111@11.1111.ne.jp" 'アドレスです
                .Subject = "週間売上集計表(" & Date & ")"
                .send
            End With
        End With

    End Sub


    2016年2月4日 4:46