エクセルからメールを自動発行させたい。

質問

エクセル2010を使っています。
A列にメールアドレスが入ったシートが有って、B列に「数値」、C列には「合格」とか「不合格」とかいう値が入った場合に、定型メールが自動発行されるようにしたいのですが。
先ずは点数を通知して、合否が決っまた段階で、合格の人にだけ、その旨の定型メールが発送されるようにしたいのですが。

更に、出来れば、合否によって2種類のメールが自動で送付されるようになれば手間もさることながら、送付ミス、漏れが無くなり1回の作業で済んでしまうのですが。
全員の点数が入力されたら、上から15番目までに「合格」それ以外は「不合格」とC列に自動で入るように条件設定できれば（これは当方でも関数で可能なので）最高にありがたいのですが。
尚、贅沢をいうようで申し訳無いのですが、当方VBAはほとんど使ったことが無いので、出来るだけ分かり易い説明をお願いします。

回答No.3

Prome_Lin · ベストアンサー

回答No.1です。

「CreateObject」で扱えるのは、オフィスだけ（正確には「だけ」ではありませんが）なのです。

従って、

Set w = CreateObject("Word.Application")

とすれば、ワードを扱えます。

「Outlook」は、オフィスの中の製品なので、「VBA」で比較的簡単に操作できますが、「Windows Live Mail」はこのやり方では、ダメです。

申し訳ありませんが、私は、知りません。

回答No.2

3620313

excelからメール送信するのにbasp21というソフトを使用します。
ライセンスフリーでネットからダウンロードできるのでインストールしてください。
mail1が点数通知用
mail2が合否通知用
です。
Server = "mail.jp.****.com"
は、SMTP送信に入っているアドレスです。
MailFrom = "****@****" ''メールの差出し人
の部分に自分のメールアドレスを設定です。
Ａ列の宛先アドレスも、最初は自分のメールアドレスを入れておくと、自分宛にメールが来るので、内容の確認出来ます。

Sub mail1()
'点数メール送信
'尚、このマクロを有効にするにはbasp21.exeのインストールが必要

Dim bobj, msg As String
Dim Server As String, Mailto As String, MailFrom As String, Subject As String, Body As String

Sheets("メール送信").Select

For i = 1 To Range("A1").End(xlDown).Row

Set bobj = CreateObject("basp21") ''BASP21オブジェクト
Server = "mail.jp.****.com" ''SMTPサーバー

Mailto = Cells(i, 1) ''メールの宛先
MailFrom = "****@****" ''メールの差出し人

Subject = "【点数のお知らせです】" ''メール送信タイトル

Point = Cells(i, 2) ''点数

Body = "点数のお知らせです" & vbCrLf & Point & "点でした" & vbCrLf & "確認ください。" ''メール本文
msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, "")

Set bobj = Nothing

Next

End Sub
Sub mail2()
'合否メール送信
'尚、このマクロを有効にするにはbasp21.exeのインストールが必要

Dim bobj, msg As String
Dim Server As String, Mailto As String, MailFrom As String, Subject As String, Body As String

Sheets("メール送信").Select

For i = 1 To Range("A1").End(xlDown).Row

Set bobj = CreateObject("basp21") ''BASP21オブジェクト
Server = "mail.jp.****.com" ''SMTPサーバー

Mailto = Cells(i, 1) ''メールの宛先
MailFrom = "****@****"" ''メールの差出し人"

Subject = "【合否結果の連絡です】" ''メール送信タイトル

Select Case Cells(i, 3)

Case "合格"

Body = "合格です" & vbCrLf & "おめでとうございます" & vbCrLf & "確認ください。" ''メール本文
msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, "")

Set bobj = Nothing

Case "不合格"

Body = "不合格です" & vbCrLf & "残念でした" & vbCrLf & "確認ください。" ''メール本文
msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, "")

Set bobj = Nothing

End Select

Next

End Sub

私もexcelからメール送信やってて、参考になればです。

お礼

ご丁寧が回答内容に感謝いたします。
ありがとうございました。

補足

ご回答ありがとうございました。
そういうソフトがあるのですね。
慣れればおそらく使いやすそうな感じがしますし、実際のプログラムまでご丁寧に教えていただき大感謝です。

しかし、会社のPCには原則としてアプリの導入は禁止されており、どうしても必要な場合はシステムの許可が必要で、基本NGです。

残念ですが・・・
でもこのようなソフトがあることを知ったので参考にさせていただきます。

回答No.1

Prome_Lin

まず、メールアドレスなどのデータの入っているエクセルファイルを開いて、「Alt＋F11」（「Alt」（「オルト」と読みます）キーを押しながら、「F11」キーを押す）で、「Visual Basic」の画面を出します。

メニューの「挿入」から「標準モジュール」を選択すると、画面の右側が白くなりますから、その白くなった部分に、以下のマクロをコピー＆ペーストしてください。

エクセルの画面にもどって、「F12」（「名前を付けて保存」）で、ファイル名が表示されている１行下、右端の「∨」をクリックして、「Excel マクロ有効ブック」を選択して、保存しておいてください。

「Visual Basic」の画面にもどって、「F5」を押して、実行するのですが、今のところは、全く、質問者のご希望どおりではありません。

あくまでも、「Outlook」を使って、エクセルの「VBA」でメールを送信する方法です。

Sub Test()
For i = 1 To Range("A1").End(xlDown).Row
Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)
m.To = Cells(i, 1).Value
m.Subject = Cells(i, 2).Value
m.Body = Cells(i, 3).Value
m.Attachments.Add (Cells(i, 4).Value & "\" & Cells(i, 5).Value)
m.Send
Set m = Nothing
Set o = Nothing
Next i

簡単な説明です。

For i = 1 To Range("A1").End(xlDown).Row

１行目から、列「A」について、データの入っている最終行までを処理しますが、このときの「最終行」とは、列「A」の途中に空白セルがあった場合、その１行上が空白セルとされます。

Set o = CreateObject("Outlook.Application")

「Outlook」を扱えるようにしています。

Set m = o.CreateItem(0)

メールの機能を使えるようにしています。

m.To = Cells(i, 1).Value

「i」行目、１番目の列（＝列「A」）の値を、「送信先」にセット。

m.Subject = Cells(i, 2).Value

同じく、２番目の列（＝列「B」）の値を、「件名」にセット。

m.Body = Cells(i, 3).Value

同じく、３番目の列（＝列「C」）の値を、「本文」にセット。

m.Attachments.Add (Cells(i, 4).Value & "\" & Cells(i, 5).Value)

これは、添付ファイルですので、質問者の内容から考えて、必要のない行ですが、一応、念のためおいておきます。

４番目の列（＝列「D」）と５番目の列（＝列「E」）を、「\」で足しています。

何をしているかというと、列「D」には、フォルダ名が入っていて、列「E」には、実際に添付するファイル名が入っていることを想定しています。

m.Send

メールを送っています。

Set m = Nothing
Set o = Nothing

終了処理です。

を、繰り返しています。

したがって、「件名」や「本文」の入っている列などを上の例にならって、設定してください。

補足

早々にマクロを解説付きで紹介、おまけに添付ファイルの事まで考慮されている（これも聞きたかったが厚かましいと遠慮）ので、俄然やる気が起きました。
何とか頑張ってみます。
ちなみに質問で抜けてしまって、後追いで補足しようとしたのですがNET環境が悪くついそのままになってしまっていましたが、メールソフトはWindows Live メールなのですが、"Windows Live Mail.Application"で行けるのでしょうか？
不明ならOUTLOOKも使えるので問題ないのですが。
アカウントが違っているのでどちらが良いか選択したいので。
却って違う方が使い分けできるのかも？という気もしますし。。。。