Outlook VBAで役職情報を取得する方法【初心者向け解決ガイド】

2025.03.05

皆さん、こんにちは。今日は、OutlookのVBAを使って、連絡先の役職情報を取得する方法についてお話しします。難しそうに聞こえるかもしれませんが、一緒に進めていきましょう。

Outlook VBAとは？
役職情報を取得するための基本的な考え方
実際のコード例
よくある質問や疑問
1. Q1: VBAを使うのは初めてですが、大丈夫でしょうか？
2. Q2: このコードを実行しても何も表示されません。なぜでしょうか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは？

Outlookのイメージ

まず、Outlook VBAについて簡単に説明します。VBAは「Visual Basic for Applications」の略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。Outlook VBAを使えば、メールの自動送信や連絡先の情報取得など、Outlookのさまざまな操作を自動化できます。

役職情報を取得するための基本的な考え方

Outlookの連絡先には、名前やメールアドレスだけでなく、役職（JobTitle）などの情報も含まれています。これらの情報は、VBAを使って簡単に取得できます。具体的には、ContactItemオブジェクトのJobTitleプロパティを利用します。

実際のコード例

それでは、実際に役職情報を取得するコードを見てみましょう。以下のコードは、Outlookの連絡先から役職情報を取得し、メッセージボックスに表示するものです。

vba

Sub GetContactJobTitle()

    Dim olApp As Outlook.Application

    Dim olNamespace As Outlook.Namespace

    Dim olContactFolder As Outlook.MAPIFolder

    Dim olContact As Outlook.ContactItem

    Dim olItems As Outlook.Items

    Dim i As Integer
    ' Outlookアプリケーションの取得

    Set olApp = Outlook.Application

    Set olNamespace = olApp.GetNamespace("MAPI")

    Set olContactFolder = olNamespace.GetDefaultFolder(olFolderContacts)

    Set olItems = olContactFolder.Items

' 連絡先フォルダ内の各アイテムをループ For i = 1 To olItems.Count If TypeName(olItems(i)) = "ContactItem" Then Set olContact = olItems(i) ' 役職情報の表示 MsgBox "名前: " & olContact.FullName & vbCrLf & _ "役職: " & olContact.JobTitle End If Next i End Sub

このコードを実行すると、連絡先に登録されている各人の名前と役職が順番に表示されます。