皆さん、こんにちは。今日は、パソコンやスマホの操作がちょっと苦手な方でも簡単に理解できる、VBAを使ってOutlookメールにファイルを添付する方法をご紹介します。これをマスターすれば、毎日のメール作成がぐっと楽になりますよ。
VBAと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
これで、指定したファイルがメールに添付された状態で作成画面が表示されます。
よくある質問や疑問
Q1: ファイルのパスがわからない場合はどうすればいいですか?
ファイルのパスを確認するには、添付したいファイルを右クリックし、「プロパティ」を選択します。表示されたウィンドウの「場所」と「ファイル名」を組み合わせたものがフルパスになります。
Q2: 複数のファイルを添付することはできますか?
はい、可能です。`.Attachments.Add`の行を添付したいファイルの数だけ追加すれば、複数のファイルを添付できます。
まとめ
いかがでしたか?VBAを使ってOutlookでメールを作成し、ファイルを添付する方法をご紹介しました。最初は少し難しく感じるかもしれませんが、慣れてくるととても便利です。ぜひ試してみてくださいね。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。



コメント