当サイトの記事にはプロモーションが含まれています。

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

パソコンパソコン・スマホ教室
スポンサーリンク

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

スポンサーリンク

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

Outlookのイメージ

Outlookのイメージ

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

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

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

  1. Excelを開き、キーボードの「Alt」キーを押しながら「F11」キーを押して、VBAの画面を表示します。
  2. 上部のメニューから「ツール」をクリックし、「参照設定」を選択します。
  3. 表示された一覧から「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

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

よくある質問や疑問

Q1: ファイルのパスがわからない場合はどうすればいいですか?

ファイルのパスを確認するには、添付したいファイルを右クリックし、「プロパティ」を選択します。表示されたウィンドウの「場所」と「ファイル名」を組み合わせたものがフルパスになります。

Q2: 複数のファイルを添付することはできますか?

はい、可能です。`.Attachments.Add`の行を添付したいファイルの数だけ追加すれば、複数のファイルを添付できます。

まとめ

いかがでしたか?VBAを使ってOutlookでメールを作成し、ファイルを添付する方法をご紹介しました。最初は少し難しく感じるかもしれませんが、慣れてくるととても便利です。ぜひ試してみてくださいね。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。

この記事を書いた人
この記事を書いた人

企業の情報システム部門で10年以上、PC・アカウント・社内ネットワーク・Microsoft 365/Google Workspace運用を担当。年間数百件の問い合わせ対応(PC不調、メール送受信、Excel/Word資料、Teams会議、スマホ連携など)を通じて、初心者がつまずくポイントを「再現→原因切り分け→最短解決」の手順に落とし込んできました

現場や身近で実際に起きたトラブルをベースに、手順だけでなく「なぜそうなるか」「失敗しやすい落とし穴」「安全な設定(セキュリティ)」まで含めて解説します。

相談窓口(問い合わせ/LINE等)を設け、記事で解決しないケースも個別にサポートしていますので「パソコンが急に動かなくなった」「スマホの設定がわからない」などの悩みは一人で抱え込まず、お気軽にご相談ください。

【お問い合わせは下記URLから】
https://m32006400n.xsrv.jp/inquiry-form/

【公式LINEは下記URLから】
https://lin.ee/t8TDjcj

uri uriをフォローする
スポンサーリンク
よかったらシェアしてね! /
uri uriをフォローする

コメント

タイトルとURLをコピーしました