自己添付メールの作成　味はソコソコ？Excel Tips（しお味）

自己添付メール作成

ここでは、outlook関係の処理をvbaでより簡単にするサンプルを考えます。
よくあるのは、定型の文書の雛形を作る例があります。すなわち、宛先、見出し、送信者、本文の一部をあらかじめ設定し、メールを送信する手間を大幅に節減するようにする例です。ここではその処理をさらに拡大して、添付ファイルを自動で添付する様にしてみました。

●vbaでoutlookを操作するには・・・
まず、vbaの編集ツールである VBE(Visual Basic Edtor)のメニューで、
「ツール」->「参照設定」と進み [Microsoft Outlook 16.0 object Library]※
にチェックを入れてOKボタンを押します。

参照設定	ライブラリー選択

(※16.0の部分はexcelのバージョンにより変わります)

●outlook自己添付メール作成

outlookでのメール作成の自動化としてはよく使われているのは、

・宛先情報（メールアドレス　TO：、CC：、BCC：）
・発信元情報（自分のアドレス、名前情報）
・メール表題
・本文の内容（手動作成、半自動作成、自動作成・・・）

等の情報を自動でoutlookに入れ込んで、ワンタッチでメールを作成、送信出来るものです。
日々の業務で、定期的にメールを送信する必要がある場合は、いちいちoutlookを開いて様々な情報を入れてメールを作成、送信するのはかなりの手間ですが、多くの場合vba等での自動作成が一般的になっているのかもしれません。
ここでは、これをさらに進めて、excelで何らかの情報ファイルを作成してそこから自動的にoutlook メールを作成し、そのメールに自身のファイルを自動添付させるツールを作ってみました。
業務日報等を、日々outlookで作成送信する場合など、excelで日報を作成すればあとは、ほぼ自動でメールが作成、送信出来るようになり大幅に、メール関係にさく工数が削減出来ます。

outlook自己添付メール作成

自己添付ﾒｰﾙ作成	パラメータ設定	メール本体

この例は、excelで作成した表等をワンタッチでメールの自動作成をしてそのメールに自動で自分自身のファイルを自動添付して送信出来ます。

outlook自己添付メール作成（メイン）

  Sub MakeMail()

  'メールの自動作成****************************************************************
  '正常動作には一度、outlookを起動しておく必要があります。（タスクバーに入った状態で問題ありません）
  '正常な動作には場合によりMicrosoft Outlook 9.0 Object Library （PC環境によりバージョンが異なる場合もあります）への参照を設定する必要があります。

      Dim outlk As Object                            'オブジェクトの定義
      Dim fso As New FileSystemObject                'パスの有効性ルーチンを稼動させる場合
      Dim svPath As String                           '保存用のパス
      Dim wbook As Workbook                          'ブックオブジェクト
      Dim wsm As Worksheet                           'ワークシートオブジェクト
      Dim wsp As Worksheet                           'ワークシートオブジェクト

      On Error Resume Next                           'エラーの対応

      svPath = Worksheets("param").Cells(6, 2)     '保存用のパス取得

      Worksheets("main").Unprotect

      Set outlk = GetObject(, "Outlook.Application") 'outlookが起動している

      '////////処理の続行の可否///////////////////////////////////////////////////////////////////////////////////////

       RC = MsgBox("アウトルックに所定のデータを自動入力し、このmainを添付ファイルにしてメールを送信します。処理を続けますか？", vbYesNo + vbQuestion)

                  If RC = vbYes Then

                       ' MsgBox "処理を続けます", vbInformation

                    Else

                        MsgBox "処理を中止します", vbExclamation

                        Exit Sub

                  End If

      '//////////////////////////////////////////////////////////////////////////////////////////////////////////////

      Dim ftime As String

      ftime = Format(Now, "yyyy_mm_dd")  '"yyyy_mm_dd hh:nn AM/PM"現在の時刻取得

      Set wbook = ThisWorkbook                       'ワークブックの取得
      Set wsm = Worksheets("main")                   'ワークシートの取得
      Set wsp = Worksheets("param")                  'ワークシートの取得

      wsm.Cells(7, 2) = wsp.Cells(7, 2) & "_" & ftime


     '/////添付するファイル（mainシートのみ）を一旦所定のフォルダーに保存////////////////////
      wsm.Copy

      ActiveWorkbook.SaveAs (wsp.Cells(6, 2) & "\" & wsm.Cells(7, 2) & ".xlsx")

      ActiveWorkbook.Close


      '////////outlookの起動確認////////////////////////////////////////////////////////////

      If outlk Is Nothing Then

           MsgBox "Outlookが起動状態になっていません。", vbExclamation
           'Set outlk = CreateObject("Outlook.Application")      'Outlookを強制起動
           Exit Sub

           Else

      End If

      '保存パスのチェック/////////////////////////////////////////////////

      If fso.FolderExists(svPath) = False Then

              MsgBox ("無効な保存パスです。"), vbCritical
              Exit Sub

      End If

      '///////////////////////////////////////////////////////////////////


      'Outlookへデータを各項目にセット/////////////////////////////////////

      With outlk.CreateItem(0)

          .To = wsp.Cells(12, 2).Value               ' TO
          .CC = wsp.Cells(13, 2).Value               ' CC
          .BCC = wsp.Cells(14, 2).Value              ' BCC
          .subject = wsp.Cells(10, 2).Value          ' 件名
          .Display                                                   ' 表示
          .Body = wsp.Cells(16, 2).Value & vbCrLf & wsp.Cells(17, 2).Value & vbCrLf & vbCrLf & wsp.Cells(18, 2).Value & vbCrLf & vbCrLf & wsp.Cells(9, 2).Value  ' 本文
          .Attachments.Add wsp.Cells(6, 2).Value & "\" & wsm.Cells(7, 2) & ".xlsx"  '添付ファイル

      End With

      '///////////////////////////////////////////////////////////////////

      Set outlk = Nothing

      MsgBox "メールの処理が完了しました", vbInformation


  End Sub

outlook自己添付メール作成（保存のみ）

  Sub savefunc()

  Dim outlk As Object                            'オブジェクトの定義
      Dim fso As New FileSystemObject                'パスの有効性ルーチンを稼動させる場合
      Dim svPath As String                           '保存用のパス
      Dim wbook As Workbook                          'ブックオブジェクト
      Dim wsheet As Worksheet                        'ワークシートオブジェクト
      Dim wsm As Worksheet                           'ワークシートオブジェクト
      Dim wsp As Worksheet                           'ワークシートオブジェクト


      On Error Resume Next                           'エラーの対応

      svPath = Worksheets("param").Cells(6, 2)     '保存用のパス取得

      Worksheets("main").Unprotect

      Set outlk = GetObject(, "Outlook.Application") 'outlookが起動している

      '////////処理の続行の可否///////////////////////////////////////////////////////////////////////

       RC = MsgBox("このmain文書を保存します。処理を続けますか？", vbYesNo + vbQuestion)

                  If RC = vbYes Then

                       ' MsgBox "処理を続けます", vbInformation

                   Else

                        MsgBox "処理を中止します", vbExclamation

                        Exit Sub

                  End If

      '//////ファイルの保存/////////////////////////////////////////////////////////////////////////////////////////

      Dim ftime As String

      ftime = Format(Now, "yyyy_mm_dd")  '"yyyy_mm_dd hh:nn AM/PM"現在の時刻取得

      Set wbook = ThisWorkbook                       'ワークブックの取得
      Set wsm = Worksheets("main")                   'ワークシートの取得
      Set wsp = Worksheets("param")                  'ワークシートの取得

      wsm.Cells(7, 2) = wsp.Cells(7, 2) & "_" & ftime

      wbook.SaveAs (wsp.Cells(6, 2) & "\" & wsm.Cells(7, 2) & ".xlsx")

      '///////完了表示////////////////////////////////////////////////////////////////////////////////////////


      MsgBox "文書の保存が完了しました"


  End Sub

自己添付メール作成（ダウンロード）

自己添付メール作成（総まとめ）

自己添付メール作成サンプルファイルです。
スケジュール管理に使えるオマケ的な簡易ガントチャートがついています。

outlook自己添付メール作成　ダウンロード