経緯
Excelで申請書を作成した後、そのままOutlookでメールに添付して送信する作業を毎回手作業で行っていました。
宛先や本文もほぼ毎回同じだったため、**「VBAで自動化できないか？」**と思い、実装してみました。
今回の構成では、L1セルを選択するだけで、Outlookが起動し、申請書を添付したメールが作成される仕組みです。
想定構成
- **申請書が記載されたExcelファイル（Sheet1）**がある
- Sheet1の セル L1 に「メール送信」と表示されており、ここを選択することで処理が実行される
- 宛先、CC、件名、本文、添付ファイル（現在のブック）を自動で設定
前準備（Outlookライブラリの有効化）
VBAエディタで以下の設定を行ってください。
ツール→参照設定を開く- 「Microsoft Outlook XX.X Object Library」にチェックを入れる
- 「OK」をクリック
※バージョン番号（XX.X）はご使用のOffice環境により異なります（例：16.0）
モジュール側のコード（SendEmail）
標準モジュール（Module1など）に以下のコードを記述します。
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
Else
MsgBox "メール送信をキャンセルしました。"
End If
' 再保存
ActiveWorkbook.Save
' A1セルにフォーカスを戻す
ThisWorkbook.Sheets(1).Range("A1").Select
End Sub
トリガー設定（Sheet1のL1セルを選択したときに発動）
次に、VBAエディタで Sheet1 モジュールに以下のコードを追加します。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("L1")) Is Nothing Then
Call SendEmail
End If
End Sub
実行時の注意点
- 宛先 (
.To) や CC (.CC) は必ず実際のメールアドレスを記入してください - メールを自動送信したくない場合は、
.Sendをコメントアウトし、.Displayで内容確認できるようにしておくと安全です .Sendを有効にする場合、.Displayは不要になります
まとめ
- Excel VBAとOutlookを連携させることで、申請書の送信業務を自動化できる
- トリガーは「セル選択」などに柔軟に設定可能
- コピペ作業や送信ミスの削減に非常に有効
業務フローにOutlookを使っている方は、ぜひこの方法を取り入れてみてください。
ここまでお読みいただきありがとうございました。参考になれば幸いです。
スクールの紹介
最後に宣伝をさせてください。
技術で未来を切り拓く―あなたの夢を現実にするプログラミングスクール
Webデザインやプログラミングで成功を目指している方々にとって、このオンラインスクールは夢を叶えるための最適な場所です。皆さんのキャリアを次の段階へと引き上げるためにデザインされたこのスクールは、一人ひとりの成功を心から願い、それを実現するための全てを提供しています。ここでは、このスクールの魅力について詳しくご紹介します。
◆圧倒的な費用対効果
このオンラインプログラミングスクールは、Web系教育において最高の費用対効果を提供しています。多くの高額スクールが存在する中で、ここではリーズナブルな価格で、質の高い教材、無限のサポート、そして実際に市場で求められるスキルの習得機会を提供しています。
◆現役フリーランスの講師陣
講師たちは全員、現役のフリーランスプロフェッショナルです。市場で活躍している講師から直接、最新のトレンドや実践的なスキルを学べるのは、このスクールの大きな特徴です。
◆柔軟な学習コース
固定のコースがなく、学習者の興味やニーズに応じて自由に学習できます。進路変更も自由で、最低契約期間は1ヶ月という柔軟性を持っています。自分のペースで、自分に合った学習が可能です。
◆無制限の添削とサポート
理解できるまで、そして満足するまで、無制限に添削と質問への回答を提供しています。進路相談や技術面以外の相談にも対応しており、全面的にサポートします。
◆社長から学べる貴重な機会
デザイナー、プログラマー、ディレクター、マーケターとして豊富な経験を持つ社長から直接学べるのも、このスクールの特別な点です。他のスクールでは得られない、貴重な機会です。
◆実績作りへの徹底的なサポート
就職、転職、フリーランスとして成功するためには、高品質な実績が必要です。生徒の作品レベルを最大限に高め、市場で求められる実績を作り上げることに力を入れています。案件を取得できない生徒には、直接案件を提供することもあります。
◆メッセージからの約束
高額な授業料を支払わせて結果を出せないスクールとは違い、物理的なサポートは提供できないかもしれませんが、継続的な努力を通じて最高の結果を出せるようにサポートします。一緒に不正なスクールを撲滅し、あなたの夢を実現しましょう。
このプログラミングスクールは、Webデザインやプログラミングでの成功を目指す方々に必要な全てを備えています。今こそ、このコミュニティに参加し、あなたのキャリアを加速させる時です。
詳しくはこちら↓
