Outlookで連絡先の情報と写真を一緒にエクスポートするにはどうすればよいですか?
Outlookから連絡先をファイルにエクスポートする場合、連絡先のテキスト情報のみがエクスポートされます。しかし、時には写真も連絡先のテキスト情報と一緒にエクスポートしたい場合があります。Outlookでこのタスクをどのように処理すればよいでしょうか?
VBAコードを使用して連絡先情報を関連する写真と共にエクスポートする
VBAコードを使用して連絡先情報を関連する写真と共にエクスポートする
以下のVBAコードは、特定の連絡先フォルダ内のすべての連絡先を写真付きで個別のテキストファイルにエクスポートするのに役立ちます。次の手順に従ってください:
1. 写真付きでエクスポートしたい連絡先フォルダを選択します。
2. 次に、「ALT」キーと「F11」キーを同時に押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。
3. その後、「挿入」>「モジュール」をクリックし、以下のコードをコピーして開かれた空白のモジュールに貼り付けます。スクリーンショットをご覧ください:
VBAコード:写真付きで連絡先情報をエクスポートする
Sub BatchExportContactPhotosandInformation()
Dim xContactItems As Outlook.Items
Dim xItem As Object
Dim xContactItem As ContactItem
Dim xContactInfo As String
Dim xShell As Object
Dim xFSO As Scripting.FileSystemObject
Dim xTextFile As Scripting.TextStream
Dim xAttachments As Attachments
Dim xAttachment As Attachment
Dim xSavePath, xEmailAddress As String
Dim xFolder As Outlook.Folder
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xShell = CreateObject("Shell.application").BrowseforFolder(0, "Select a Folder", 0, 16)
If xShell Is Nothing Then Exit Sub
xSavePath = xShell.Items.Item.Path & "\"
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
Set xFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
Else
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
End If
Set xContactItems = xFolder.Items
For i = xContactItems.Count To 1 Step -1
Set xItem = xContactItems.Item(i)
If xItem.Class = olContact Then
Set xContactItem = xItem
With xContactItem
xEmailAddress = .Email1Address
If Len(Trim(.Email2Address)) <> 0 Then
xEmailAddress = xEmailAddress & ";" & .Email2Address
End If
If Len(Trim(.Email3Address)) <> 0 Then
xEmailAddress = xEmailAddress & ";" & .Email3Address
End If
xContactInfo = "Name: " & .FullName & vbCrLf & "Email: " & _
xEmailAddress & vbCrLf & "Company: " & .CompanyName & _
vbCrLf & "Department: " & .Department & _
vbCrLf & "Job Title: " & .JobTitle & _
vbCrLf & "IM: " & .IMAddress & _
vbCrLf & "Business Phone: " & .BusinessTelephoneNumber & _
vbCrLf & "Home Phone: " & .HomeTelephoneNumber & _
vbCrLf & "BusinessFax Phone: " & .BusinessFaxNumber & _
vbCrLf & "Mobile Phone: " & .MobileTelephoneNumber & _
vbCrLf & "Business Address: " & .BusinessAddress
Set xTextFile = xFSO.CreateTextFile(xSavePath & .FullName & ".txt", True)
xTextFile.WriteLine xContactInfo
If .Attachments.Count > 0 Then
Set xAttachments = .Attachments
For Each xAttachment In xAttachments
If InStr(LCase(xAttachment.FileName), "contactpicture.jpg") > 0 Then
xAttachment.SaveAsFile (xSavePath & .FullName & ".jpg")
End If
Next
End If
End With
End If
Next i
End Sub

4. コードをモジュールに貼り付けた後、「ツール」>「参照設定」を「Microsoft Visual Basic for Applications」ウィンドウでクリックします。「参照設定 - プロジェクト1」ダイアログボックスが表示されたら、「利用可能な参照」リストボックスから「Microsoft Scripting Runtime」オプションをチェックしてください。スクリーンショットをご覧ください:

5. 「OK」をクリックしてダイアログを閉じ、次に「F5」キーを押してこのコードを実行します。「フォルダーの参照」ダイアログボックスが表示されたら、エクスポートした連絡先を保存したいフォルダーを指定します。スクリーンショットをご覧ください:

6. 「OK」をクリックすると、すべての情報と連絡先の写真が個別に指定したフォルダーにエクスポートされます。スクリーンショットをご覧ください:

最高のオフィス生産性ツール
最新情報: Kutools for Outlook 無料版リリース!
新しくなった Kutools for Outlook を100以上の素晴らしい機能とともに体験してください!今すぐダウンロードしてみましょう!
🤖 Kutools AI : 高度なAI技術を活用し、メールの返信、要約、最適化、拡張、翻訳、作成までを簡単に処理します。
📧 メール自動化: 自動返信(POPとIMAPに対応) / スケジュール電子メールを送信 /送信時にルールで自動 CC/BCC / 高度なルールによる自動転送 / 挨拶を自動追加 / 複数宛先メールを自動的に一通ずつ分割...
📨 メール管理: メールの取り消し / 件名などで詐欺メールをブロックする / 重複メールを削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: 一括保存 / 一括切り離し / 一括圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェイスマジック: 😊さらに美しくてクールな絵文字 /重要なメール到着時に通知 / Outlookを閉じるのではなくグループを最小化...
👍 ワンクリック便利機能: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーン表示...
👩🏼🤝👩🏻 連絡先&カレンダー: 選択したメールから一括で連絡先を追加 /連絡先グループを個別グループに分割 / 誕生日のリマインダーを削除...
お好みの言語で Kutools を利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語に対応!
Kutools for Outlookをワンクリックですぐに利用開始。待たずに今すぐダウンロードして効率を高めましょう!


🚀 ワンクリックダウンロード — Office用アドインをすべて入手
強くおすすめ: Kutools for Office(5-in-1)
ワンクリックで五つのインストーラーを同時ダウンロード ― Kutools for Excel、Outlook、Word、PowerPoint、Office Tab Pro。 今すぐダウンロード!
- ✅ ワンクリックの便利さ: 五つのセットアップパッケージを一度にダウンロードできます。
- 🚀 あらゆるOffice作業に準備完了: 必要なアドインをいつでもインストール可能です。
- 🧰 含まれるもの: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint