メール送信自動化(Outlook)【VBA】

目次

経緯

申請書をExcelで作ったあと、メールを送信していた。

宛先も本文も一緒なので、いちいちメールをコピペするのがめんどくさかったので、今回メール送信を自動化してみました。

想定

Excelで申請ファイルがあります。

Sheet1に申請のテンプレが記入されてます。

そのファイルのL1セルに”メール送信”という文字があります。(これがトリガーです。)
L1にセルを合わせると、Outlookが開ます。申請ファイルも添付されます。

前準備

VBAの開発でエディタを開いたら、

”ツール” → ”参照設定” → ”「参照可能なライブラリ」から「Microsoft Outlook 16.0 Object Libray」にチェック” → ”OK”

をしてください。

コード

では、コードです。moduleを作ってその中に以下のコードをコピペしてください。

Sub SendEmail()

Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim currentWorkbookPath As String

Dim ans As Integer

Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
currentWorkbookPath = ThisWorkbook.FullName ' 現在のワークブックのフルパスを取得

'メール送信 始め
ans = MsgBox("メールを送信しますか", _
                vbYesNo + vbExclamation, "メール送信確認")

'一応保存
ActiveWorkbook.Save

If ans = vbYes Then
    MsgBox ("メール内容を確認したら、送信ボタンを押してください。")

    With objMail
        .To = "" 'メール宛先
        .CC = "" 'CC
        .Subject = "申請書" 'メール件名
        .BodyFormat = olFormatPlain 'メールの形式
        .Body = "林さん" & vbCrLf & _
                vbCrLf & _
                "申請書を添付しました。" & vbCrLf & _
                "よろしくお願いします。" & vbCrLf & _
                vbCrLf & _
                "森"
        .Attachments.Add currentWorkbookPath ' 現在のワークブックを添付
        .Display 'メールを表示
        '.Send 'メールを送信
    End With
    
    Set objOutlook = Nothing
    'MsgBox "プログラム完了しました"

Else
    MsgBox "メール送信をキャンセルしました。"
End If

'一応保存
ActiveWorkbook.Save

' A1セルにフォーカスを移動
ThisWorkbook.Sheets(1).Range("A1").Select

End Sub

次に、トリガーを作ります。

VBAのエディタの”Sheet1″に以下のコードを貼り付けてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("L1")) Is Nothing Then
        Call SendEmail ' "SendEmail" は前に作成したメール送信のサブプロシージャの名前です
    End If
End Sub

こんな感じです。

宛先やCCは各々のメールアドレスを記入してください。

私はメール画面を確認したいので、「’.Send ‘メールを送信」のところはシングルクォーテーションを付けて実行されないようにしてますが、

その確認が要らない人はシングルクォーテーションを消してもいいかもです。その場合「.display」は要らないと思います。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。

スクールの紹介

最後に宣伝をさせてください。

夢見るAIエンジニアへ、今こそ一歩を踏み出せ!

最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。

しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです!

なぜこのサービスが選ばれるのか?その理由はこちら

  1. 初心者から上級者まで
    完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。
  2. 徹底的な進捗管理
    受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。
  3. 専属メンターによる徹底サポート
    AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。
  4. 場所を選ばず学べるオンライン完結
    東京以外の地域からも、気軽に学び始めることができます。

信頼の実績多数!
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現

夢を叶えるための第一歩を、一緒に踏み出しませんか?今なら、あなたもその一員として学び始めることができます!

よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!

この記事を書いた人

私が勉強したこと、実践したこと、してることを書いているブログです。
主に資産運用について書いていたのですが、
最近はプログラミングに興味があるので、今はそればっかりです。

目次