皆さん、こんにちは。今日は、Outlookでメールを作成する際に、VBA（Visual Basic for Applications）を使ってCC、つまりカーボンコピーを追加する方法についてお話しします。パソコンやスマホがちょっと苦手な方でも大丈夫です。ゆっくりと一緒に学んでいきましょう。
CC（カーボンコピー）とは？
Outlookのイメージ
まず、CCとは何かをご説明します。メールを送るとき、主な宛先は「宛先」欄に入力しますよね。でも、そのメールの内容を他の人にも参考として送りたい場合があります。そんなときに使うのが「CC」欄です。CCに追加された人たちは、メールの内容を確認できますが、直接の返信は求められません。例えば、プロジェクトの進捗をチーム全員に共有したいときなどに便利です。
VBAでOutlookのメールにCCを追加する方法
では、実際にVBAを使って、OutlookのメールにCCを追加する方法を見ていきましょう。難しそうに感じるかもしれませんが、順を追って説明しますのでご安心ください。
1. VBAとは？
VBAは、Microsoftのアプリケーションを自動化するためのプログラミング言語です。ExcelやOutlookなどで繰り返し行う作業を自動化するのに役立ちます。
2. OutlookでVBAを使う準備
まず、OutlookでVBAを使うための準備をしましょう。
- Outlookを開きます。
- キーボードの「Alt」キーを押しながら「F11」キーを押して、VBAエディターを開きます。
- 「挿入」メニューから「モジュール」を選択します。これで、新しいモジュールが作成され、コードを入力できるようになります。
3. メールにCCを追加するコード
次に、実際のコードを入力していきます。以下のコードは、新しいメールを作成し、宛先とCCを設定するものです。
vba
Sub CreateEmailWithCC()
' Outlookアプリケーションを宣言
Dim OutlookApp As Object
Set OutlookApp = CreateObject("Outlook.Application")
' 新しいメールアイテムを作成
Dim Mail As Object
Set Mail = OutlookApp.CreateItem(0) ' 0はolMailItemを指します
' 宛先、CC、件名、本文を設定
With Mail
.To = "mainrecipient@example.com" ' 宛先のメールアドレスを入力
.CC = "ccrecipient@example.com" ' CCのメールアドレスを入力
.Subject = "これはテストメールです"
.Body = "こんにちは、これはテストメールの本文です。"
.Display ' メールを表示
End With
End Sub
コメント