【電帳法対応】請求書メール送付が一瞬で終わる！Excel×Outlook自動化テンプレ（無料サンプルあり）

2025年8月22日2026年1月15日

この記事では、電帳法対応のためにExcelで作成した請求書を、Outlookメールに自動で添付・送信する方法を、
サンプル付きで解説します。

メールってめんどくさい

突然ですけど、メールを打つのってめんどくさい。
特にExcelで作った請求書を保存して⇒メールに添付して⇒文章打って…
毎日やる作業だったらめんどくさいし、たまにやる作業でもめんどくさい。やりたくない。
だから私はボタン一つでなんとかさせます。任せてください！！
サンプル版は↓↓↓からダウンロード

電子帳簿保存法対応！
請求書を作成～メールに添付するまでを一発でやっちゃうか

弊社では電子帳簿保存法に対応するため、システムを入れ……ません！
とのことだったので、請求書をExcelで作成してメールにつけて送ることになりまーす！えー！！！めんどくさい！！！
で、作ってみたのが↑上に貼ってあるサンプルです。経理部でめちゃ感謝されました。

電子帳簿保存法で、何が「めんどくさく」なったのか

電子帳簿保存法の改正により、
Excelで請求書を作成してメールで送るだけの業務でも、
以前より気をつけるべき点が大きく増えました。

「電子化すれば楽になる」と思われがちですが、
実務レベルではむしろ地味に面倒な作業が増えたと感じている方も多いのではないでしょうか。私もです。

ファイル名・保存ルールを意識しなければならない

電子帳簿保存法では、

• 日付
• 取引先
• 金額

などで検索できる状態であることが求められます。
そのため、

• ファイル名を毎回考える
• 保存先フォルダを意識する
• 入力ミスがないか確認する

といった、ミスが起きやすい作業が増えました。特に件数が多い場合、この手作業はかなりの負担になります。

メール送付と保存作業が分断されている

請求書送付の流れを整理すると、

1. Excelで請求書作成
2. PDFとして保存
3. Outlookを起動
4. メール作成
5. ファイルを添付

と、作業が分かれています。
これを毎回手作業で行うと、

• 添付漏れ
• 保存忘れ
• ファイル選択ミス

などのリスクが高くなります。

試しにサンプルを使ってみる

サンプルではExcelで請求書を作った後自動でOutlookを起動させてPDFを貼り付けてくれるプログラムが入っています。
また検索しやすいようファイル名を

yyyymmdd(請求日)_会社名_金額_請求書

という形式で名前をつけてくれ、任意のメールアドレス宛で文も自動で入るため確認して送信するだけまで整えてくれます。

Master シート

印刷面

Masterシートの印刷面（PDF作成範囲）です。

各種設定

MasterシートのI列～送付メールの設定ができます。
サンプル版では
・メール文面は固定
・宛先は1件のみ（CC・BCC非対応）
・請求書PDFの自動保存先指定非対応
相手先名/請求書No.はPDF作成範囲の内容が自動で入るようになっています。

使い方シート

使い方の説明です。注意・免責事項もこちらに記載しました。

請求書を作る

請求書の内容を変更する

①請求書かどうか
　ここに入っている文字がメールの件名とPDFの名前に入ります。
　実は見積書にすれば見積書ができます(笑)
　（その場合、文面と「請求金額」を「見積金額」に変更してくださいね）
②相手の会社名などを入力する
　会社名がPDFの名前に入ります。
③請求書No.と請求日を入力する
　請求書No.はメールの件名に入ります。
　請求日はPDFの名前に入ります。
④請求書の内容を入力する
　請求金額がPDFの名前に入ります。

メール文面を変更する

デフォルトのメールから文章を変更する場合は変更してください。
宛先は1件のみでCC/BCCは非対応です。

メールを作成ボタンを押す

ポチっとな

Outlookでメールができます。
請求書はPDFで添付されています。

VBAのコード

Sub 請求書をメールにつけて送る()

    Dim thiswb As Workbook, thatwb As Workbook
    Dim wsActive As Worksheet, mailws As Worksheet
    Dim olApp As Object
    Dim olMail As Object
    Dim mailTo As String, mailCC As String, mailBCC As String, mailsbjct As String
    Dim mailBody As String
    Dim lastRow As Long, i As Long
    Dim tempFol As String, Pt As String

    Set thiswb = ThisWorkbook

    ' シートの設定 ==========================================
    Set wsActive = thiswb.ActiveSheet

    ' メールの設定 ==========================================
    With wsActive
        mailTo = .Cells(5, 10).Value ' 送付先メアド
        mailsbjct = .Cells(1, 1) & "(No：" & .Cells(1, 7) & ")送付のご案内" ' 件名

        ' 本文を結合
        lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
        mailBody = .Cells(4, 1).Value & vbCrLf & _ '
                   .Cells(7, 1).Value & vbCrLf & _
                   vbCrLf & _
                   "いつもお世話になっております。" & vbCrLf & _
                   .Cells(1, 1).Value & "を送付致します。" & vbCrLf & _
                   "ご査収いただきますようお願い申し上げます。"
    End With

    ' 一時保存パスを取得してPDFとして保存 =====================
    tempFol = Environ("TEMP") & "\"

    Pt = tempFol & Format(wsActive.Cells(2, 7).Value, "yyyymmdd") & "_" & wsActive.Cells(4, 1).Value & "御中_" & wsActive.Cells(10, 3).Value & "_" & wsActive.Cells(1, 1).Value & ".pdf"
      'ファイル名（年月日_会社名_金額_書類の種類）
    wsActive.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pt, Quality:=xlQualityStandard

    ' メールを作成 ==========================================
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)

    With olMail
        .To = mailTo
        .CC = mailCC
        .BCC = mailBCC
        .Subject = mailsbjct
        .Body = mailBody
        .Attachments.Add Pt
        .Display ' メールを表示
    End With

    ' 解放 ==================================================
    Set olMail = Nothing
    Set olApp = Nothing

End Sub

サンプル版はこんな感じとなっております。

まとめ：請求書作成+メール作成をセットにして効率アップ！

時間も手間も削減！

請求書を作ってメールに貼り付けて送付するなんてシステムでやりたいところですが…(笑)
対応してない中小企業さんも多いと思い作ってみました。

完全版は機能制限なし！実務でバリバリ活躍します！

完全版では制限なしですべての機能が使えます。

※この記事で配布しているExcelは、動作確認・学習用の 無料サンプル版 です。

実務での利用を想定した
・文面編集
・複数宛先対応
・メール本文の編集
などの機能は 完全版のみ対応 しています。