みなさん、こんにちは。今日は、OutlookのVBAを使って、メールの送信者や受信者の表示名を取得する方法についてお話しします。パソコンやスマホの操作がちょっと苦手な方でも、大丈夫です。一緒にゆっくりと学んでいきましょう。
Outlook VBAとは何か？
Outlookのイメージ
まず、VBAという言葉を聞いたことがありますか？これは「Visual Basic for Applications」の略で、ExcelやOutlookなどのMicrosoft Office製品を自動化するためのプログラミング言語です。例えば、毎日同じようなメールを送る作業を自動化したり、特定の条件のメールを自動で分類したりすることができます。
表示名を取得する場面とは？
では、Outlookで表示名を取得するとは、具体的にどのような場面で役立つのでしょうか。例えば、受信トレイに届いたメールの送信者の名前を一覧にしたいときや、特定の人からのメールだけを抽出したいときなどに、表示名の取得が必要となります。
Outlook VBAで表示名を取得する基本的な手順
それでは、実際にOutlook VBAを使って表示名を取得する基本的な手順を見ていきましょう。難しく感じるかもしれませんが、一つ一つ確認していけば大丈夫です。
- Outlookオブジェクトの取得まず、Outlookを操作するためのオブジェクトを取得します。
- 受信トレイの取得次に、受信トレイのフォルダを指定します。
- メールアイテムの取得受信トレイ内の各メールを順番に取得します。
- 表示名の取得各メールの送信者や受信者の表示名を取得します。
具体的なコード例
具体的なコードを見てみましょう。以下のコードは、受信トレイ内のメールの送信者の表示名を取得し、Excelのシートに書き出す例です。
vba
Sub GetOutlookSenderNames()
' Outlookアプリケーションを操作するためのオブジェクトを取得
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
' Outlookの名前空間を取得
Dim myNamespace As Object
Set myNamespace = objOutlook.GetNamespace("MAPI")
' 受信トレイフォルダを取得
Dim myFolder As Object
Set myFolder = myNamespace.GetDefaultFolder(6) ' 6は受信トレイを指す
' Excelのシートを指定
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
' 受信トレイ内のメールを順番に処理
Dim i As Long
For i = 1 To myFolder.Items.Count
On Error Resume Next ' エラーが発生しても次の行を実行
' メールアイテムを取得
Dim mailItem As Object
Set mailItem = myFolder.Items.Item(i)
' 送信者の表示名を取得してシートに書き出し
ws.Cells(i, 1).Value = mailItem.SenderName
On Error GoTo 0 ' エラー処理を元に戻す
Next i
End Sub
このコードを実行すると、受信トレイ内の各メールの送信者の表示名が、Excelのシートに順番に書き出されます。
このサイトをチップで応援
注意点と補足情報
– エラー処理メールアイテム以外のアイテムが含まれている場合や、特定のプロパティが存在しない場合にエラーが発生することがあります。そのため、`On Error Resume Next`を使用してエラーを無視し、処理を続行しています。
– フォルダの指定`GetDefaultFolder(6)`の`6`は受信トレイを指します。他のフォルダを指定する場合は、以下のように数値を変更します。
- `3`削除済みアイテム
- `4`送信トレイ
- `5`送信済みアイテム
- `9`予定表
- `10`連絡先
- `11`ジャーナル
- `12`メモ
- `13`タスク
よくある質問や疑問
Q1: VBAのコードをどこに入力すれば良いですか？
Excelを開き、`Alt + F11`キーを押してVBAエディタを開きます。左側のプロジェクトエクスプローラで対象のブックを選択し、挿入メニューから「標準モジュール」を選択します。表示されたコードウィンドウに上記のコードを貼り付けてください。
Q2: このコードはOutlookがインストールされていないと動作しませんか？
はい、このコードはOutlookアプリケーションを操作するものですので、Outlookがインストールされている必要があります。
まとめ
今回は、Outlook VBAを使ってメールの送信者の表示名を取得する方法をご紹介しました。最初は難しく感じるかもしれませんが、一つ一つの手順を確認しながら進めれば、きっと理解できると思います。もし他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント