エクセルVBAでメール送信

遅くなりました。 > 最初に教えていただいた、ブック添付の方は「件名」を指定でき > ましたが、こっちのやりかたでは多分これも無理ですね？ PostMessage でなんとか件名を送信する方法がないか、あれこれ 試してみましたが、件名を入力するコントロールがどうしても捉まえ られず断念しました... (´・ω・`) Excel に準備されている「メールの宛先」機能を使う以上、無理そう ですね。 もともと、この機能自体が環境依存するので、汎用性がないです。 OUTLOOK やメール送信の外部コンポーネントを利用する方法を考えて みて下さい。 Excel から Outlook を使って HTMLメールを送信するサンプルなら WEB 検索でヒットします。

あ、、#3 の方法じゃダメですね。。 それと別に新規ブックでなくても、ThisWorkbook 内に複製しても良かったかも？ ただ、この一時的な作業シート（ブック）はユーザーの送信等の操作があって から削除を行う必要があるわけですから、「選択範囲を送信」ボタンのクリック を検知しなければなりません。 VBA では難しいですね。。 Excel のツールバーに表示されるメール送信機能を使う以上は、恐らく、不可能 だと思います。

> これを自動削除する方法はないでしょうか？ ん？ merlionXX さんならできると思います。こんな感じのコードを付け足す だけですよ。 Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True ThisWorkbook.Activate っていうか、、苦し紛れの SendKeys で逃げて済みません。m(__;)m

こんにちは。KenKen_SP です。 Excel の SendMail メソッドを使って？ 同一ブックでやろうとすると難しいかもしれません。 ドロップダウンが入力規則なのかコントロールか分かりませんが、 　　1.　シートを複製 　　2.　複製されたシート上で不要なモノを削除 　　3.　添付できるように保存 　　3.　SendMail メソッドで送信 　　4.　3.で保存されたものが不要なら削除 といった流れでできると思います。 Option Explicit Sub Sample() 　　Dim strDir　　　As String 　　Dim strSubject　As String 　　Dim strTo　　　 As String 　　Dim strFilename As String 　　 　　strSubject = "送信テスト" 　　strTo = "宛先メールアドレス" 　　　　 　　' Activesheet を複製 --＞ 新規ブックに複製されます 　　ActiveSheet.Copy 　　' 新規ブックの複製されたシートが現在アクティブになってます 　　' --> ThisWorkbook ではない 　　' ここで不要なものを削除するなど必要な処理を行う 　　With ActiveSheet 　　　　' コントロールやシェープ等の削除 　　　　.DrawingObjects.Delete 　　　　' 入力規則の削除 　　　　.Cells.Validation.Delete 　　　　' A 列の削除 　　　　.Columns(1).Delete 　　End With 　　' 適切なファイル名を生成 　　strFilename = ThisWorkbook.Path & "\" _ 　　　　　　　　& Format$(Now(), "yymmddhhmmss_") & ThisWorkbook.Name 　　 　　With ActiveWorkbook 　　　　' メール送信できるように保存 　　　　.SaveAs strFilename 　　　　' メール送信 　　　　.SendMail Recipients:=strTo, Subject:=strSubject 　　End With 　　' 必要なら一時ファイルを削除(アラートは適当に処理） 　　ActiveWorkbook.Close 　　Kill (strFilename) End Sub Outlook を使う場合も、その他のメール送信コンポーネントを使用する 場合でも、基本的な流れは一緒です。