VBAでOutlookメールにファイルを添付する方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、パソコンやスマホの操作がちょっと苦手な方でも簡単に理解できる、VBAを使ってOutlookメールにファイルを添付する方法をご紹介します。これをマスターすれば、毎日のメール作成がぐっと楽になりますよ。

VBAとOutlookの基本を理解しよう
1. OutlookをVBAで操作するための準備
VBAでOutlookメールを作成し、ファイルを添付する方法
1. 基本的なメール作成の手順
2. ファイルを添付する方法
よくある質問や疑問
1. Q1: ファイルのパスがわからない場合はどうすればいいですか？
2. Q2: 複数のファイルを添付することはできますか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAとOutlookの基本を理解しよう

Outlookのイメージ

まず、VBAとは何でしょうか？これは「Visual Basic for Applications」の略で、ExcelやOutlookなどのMicrosoft Office製品を自動化するためのプログラム言語です。難しそうに聞こえるかもしれませんが、ポイントを押さえれば大丈夫です。

OutlookをVBAで操作するための準備

OutlookをVBAで操作するには、ExcelからOutlookを動かすための設定が必要です。以下の手順で設定してみましょう。

Excelを開き、キーボードの「Alt」キーを押しながら「F11」キーを押して、VBAの画面を表示します。
上部のメニューから「ツール」をクリックし、「参照設定」を選択します。
表示された一覧から「Microsoft Outlook XX.X Object Library」にチェックを入れ、「OK」をクリックします。※「XX.X」はバージョン番号です。

これで、ExcelからOutlookを操作する準備が整いました。

VBAでOutlookメールを作成し、ファイルを添付する方法

それでは、実際にVBAを使ってOutlookメールを作成し、ファイルを添付する方法を見ていきましょう。

基本的なメール作成の手順

以下のコードをVBAの画面に入力してみてください。

vba

Sub メール作成()

    ' Outlookアプリケーションを起動

    Dim objOutlook As Object

    Set objOutlook = CreateObject("Outlook.Application")
    ' 新しいメールアイテムを作成

    Dim objMail As Object

    Set objMail = objOutlook.CreateItem(0)

' メールの各種設定 With objMail .To = "example@example.com" ' 宛先 .CC = "cc@example.com" ' CC .BCC = "bcc@example.com" ' BCC .Subject = "件名をここに入力" ' 件名 .Body = "本文をここに入力" ' 本文 .Display ' メールを表示 End With End Sub

このコードを実行すると、新しいメール作成画面が表示され、宛先や件名、本文が自動的に入力されます。

ファイルを添付する方法

メールにファイルを添付するには、先ほどのコードに以下の一行を追加します。

vba

.Attachments.Add "C:\パス\ファイル名.txt"

例えば、先ほどのコードに組み込むと以下のようになります。

vba

Sub メール作成()

    ' Outlookアプリケーションを起動

    Dim objOutlook As Object

    Set objOutlook = CreateObject("Outlook.Application")
    ' 新しいメールアイテムを作成

    Dim objMail As Object

    Set objMail = objOutlook.CreateItem(0)

' メールの各種設定 With objMail .To = "example@example.com" ' 宛先 .CC = "cc@example.com" ' CC .BCC = "bcc@example.com" ' BCC .Subject = "件名をここに入力" ' 件名 .Body = "本文をここに入力" ' 本文 .Attachments.Add "C:\Users\ユーザー名\Documents\ファイル名.txt" ' ファイルを添付 .Display ' メールを表示 End With End Sub

これで、指定したファイルがメールに添付された状態で作成画面が表示されます。