• ベストアンサー

エクセルVBAで、シートのみを本文として送信する方法

エクセルのブックを送信する場合は、 ActiveWorkbook.SendMail Recipients:="***@***.com" で出来ますが、シートのみを本文として送信するのは、VBAでは出来ないのでしょうか? メニューからですと、「ファイル」→「送信」→「メールのあて先」で、シートのみを本文として送信出来るのですが…。

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

http://www.hi-ho.ne.jp/babaq/vbtips.htmlや「Basp21」でWEB照会して、出てくるものを拾い読みして 何か得られるものはないでしょうか。 「シートのみを本文として」は気持ちは判りますが、具体的には、テキスト(Prn形式)で良いのでしょうか、画像でしょうか、他のシートを送りたくないと言うことなのでしょうか。

goonejp
質問者

お礼

ありがとう御座います。 Basp21っていうのは、使えるかもしれません。

その他の回答 (2)

noname#29107
noname#29107
回答No.3

一旦送信したいシートのみ、新しいブックにコピーすれば、いいのではないでしょうか? ActiveSheet.Copy '送信するファイル名を一定にするため、保存。 ActiveWorkbook.SaveAs Filename:="testdt.xls" ActiveWorkbook.SendMail Recipients:=":="***@***.com", Subject:="表題"

goonejp
質問者

お礼

ありがとう御座います。 でも、添付ファイルになってしまうので、テキストファイルにかきだして、それをメール送信することにしました。

  • daitai126
  • ベストアンサー率29% (59/201)
回答No.1

その一連の動作をマクロの記録でやってみてはいかがですか?

goonejp
質問者

補足

残念ながら、やって見たのですが、その部分は記録されませんでした。

関連するQ&A

  • エクセルでメール送信

    エクセルのワークシートが複数あります。 VBAで  ActiveWorkbook.SendMail Recipients:="xxxxxx@xxx.ne.jp" とすると、ワークブックがメールに添付され送信されますよね。 これを、ワークブック全体ではなく、特定のシートだけをメールに添付して送信したいのですが・・・ 送信側はワークブックにて入力用シートでデータの入力をし、送信用のシートを完成させます。受信側では入力用シートは不要です。 すいません、このような以前にもありましたか? どなたか教えてください。お願いします。

  • エクセルシートだけをメールで送信するには

    業務見積もりに電子メールに添付しています。 通常エクセルブックで作成したブックを添付しています。 お聞きしたいのが ブックの中の1つのシートだけを添付することはできないのでしょうか? 今のところ1つのシートを送ることは ファイルメニューから 送信→メールの宛先 という手段で行っていますが、エクセルのシートとして 添付できないようです。 エクセルブックの中から1つのシートだけを エクセルブックとして送る良い方法、 ご存知でしたら教えてください。

  • EXCELの表をNotesメール本文に貼り付けたい

    過去の質問で、同じようなものがあったのでその通りにしてみたのですが、うまくいきません。 excel2003作成の表の一部をメールの本文に表がずれないように貼りつけたいのです。 解決策として、 1.[ファイル] メニューの [送信] をポイントし、[メールの宛先] をクリックします。 2.ブック全体または現在のシートのどちらを送信するかを確認するメッセージが表示されたら、[メッセージ本文として現在のシートだけを送信] をクリックします。 と説明があるのですが、2の選択ができません。 1の時点で、、[メールの宛先(校閲用)]か、、[メールの宛先(添付ファイル)]を選択させられます。 Lotus Notes6.5を使用しています。 どうぞ宜しくお願いします。

  • EXCELの一部のシートのみを添付ファイルとしてメール送信する方法?

    EXCELでシートのみを添付ファイルとしてメール送信する方法を考えています。 シート「1」、シート「2」・・・シート「30」 といったような構成のEXCELブックがあり、 さらにシート「メール送信」というシートを設け、 そのシートのみを添付ファイルとしてメール送信する方法です。 BASP、SendMailメソッド、アドイン、いろいろな方策は見当たりましたが、 なかなか「シートのみを添付ファイルで送信」といったような実例が見当たらず困ってしまっています。 やはりVBAで考えるのが早いでしょうか? もしVBAでやるとすれば、みなさんならばどういったものになるのかぜひ教えてください。 その他、いい方策があれば教えて頂きたいです。 具体的なイメージとしてはこうです。 シート「メール送信」のA1セルにシート「5」のA1セル(売上)をリンク シート「メール送信」のB1セルあたりにコマンドボタン「メールを送信する」 添付されるシートには数式ではなく、値としてデータが挿入されている といったような運用方法です

  • エクセルVBAでメール送信

    エクセルのワークシートから、メニューの、「ファイル」、「送信」、「あて先」で現在のシート記載事項をメール本文として送信できますが、その際、ワークシート上のオブジェクトを自動で削除するためにはどうしたらよいでしょうか? やりたいことは、ワークシート上のドロップダウン等で選んだ定型の文言(ドロップダウン操作により、自動的にシート上に表示されます。)だけを任意のアドレスにメール送信したいということです。現状ではドロップダウン自体やボタンまでメールに添付され、手動で削除しなくてはなりません。

  • ExcelVBAで、シートを本文として送信したい

    こんにちは。初めて質問させていただきます。 Excelを使用する仕事をしています。 シートを本文としてメールを送信する業務が毎日大量にあり、 普段はExcelのツールからメール送信を選択し、作業を行っておりましたが 最近、送信先や送信データが増えてしまい困っています。 VBAでなんとか出来ないかと、試行錯誤したのですがうまく出来ません。 どうかお知恵を貸して頂けないでしょうか? お願い致します。 ちなみに、送り先の事情でファイル添付は出来ない状況です。 OSはExcel、OutLookともに2002です。 VBAのスキルは基本的に自動書記を加工するという程度ですが 一応変数なども(なんとか)理解しています。

  • EXCEL VBAでメール添付して送信

    こんにちは。 EXCEL VBAで 自分のファイルをある宛先にメールで送信したい場合は、 どのようにしたらできますか? どなたか、わかる方・・・教えてください。 よろしくお願いします。

  • EXCELマクロで複数のEMAIL宛先を指定

    WIN XP, EXCEL2002, メーラーはOUTLOOK2002を使っています。 EXCELマクロで複数のEMAIL宛先を指定することはできますか? ActiveWorkbook.SendMail Recipients:="email@*****.co.jp", Subject:="test" にてひとつの宛先の場合はちゃんと送信できましたが、複数の宛先を指定する方法が分かりません。 よろしくお願いいたします。

  • VBAでメールにアクティブブックを添付したい

    EXCEL2003を使用しています。 ・アクティブブックを保存し、メールに添付 ・送信先アドレス、件名を指定 ということをVBAで行ないたいです。 調べてみた所、メール送信に関するVBAの記述としては「SendMailメソッド」を使えばいいらしいのですが、こちらは送信まで行なってしまうようです。 でも今回の場合は自動送信ではなく、上記の通り送信の直前で止めたいのです。 (本文記述と送信ボタン押下は手動) できればメニューの[ファイル]-[送信]機能ではなく、VBAで処理したいのですが…どうすればいいのでしょうか。

  • エクセルでシートをそのまま送信

    いろいろ調べましたが、解決に至らないため質問させていただきます。 作業中のエクセル画面をそのまま電子メールで送信する場合、 ファイル>送信>メールの宛先を選択し、相手アドレスを入力後、 「このシートを送信する」で今までは送信できていたのですが、 現在はできません。できなくなったのは先週ウィンドウズアップデート後です。ファイル>送信>メールの宛先を選んだ後、「宛先」「CC」「件名」「備考」という4つの入力項目が表示されます。アップデート前は「備考」は無かったと思います。宛先にメールアドレスを入力後、「このシートを送信する」をクリックしても送信されないんです・・・。 アップデート前のようにシートをそのまま送信できるようにするにはどうしたらいいでしょうか。知識が浅いため大変困っています。 よろしくお願いいたします。

専門家に質問してみよう