Outlook でメールに返信する際に、自動的に連絡先を追加する方法は？
メールに返信する際、送信者や受信者を自動的にOutlook の連絡先に追加したいことはよくあります。これにより時間を節約でき、重要な連絡先情報を失うリスクも回避できます。ただし、残念ながらOutlook には返信時に自動で連絡先を追加する機能は標準で搭載されていません。そこで、メールから自動で連絡先を追加する2 つの方法（Kutools for Outlook の機能を含む）をご紹介します。
VBA を使用してOutlook メールに返信時に自動で連絡先を追加
一括追加で選択したアイテムから複数の送信者および受信者を連絡先に追加
VBA を使用してOutlook メールに返信時に自動で連絡先を追加
この VBA は、Outlook でメールに返信する際に、そのメールの送信者とすべての受信者を自動的に連絡先に追加します。以下の手順に従ってください。
1。［Alt＋F11］キーを押して、Microsoft Visual Basic for Applications ウィンドウを開きます。
2。Project1 を展開し、ThisOutlookSessionをダブルクリックして開き、以下の VBA コードを ThisOutlookSession ウィンドウに貼り付けてください。下記のスクリーンショットをご参照ください。
VBA：Outlook でメールに返信時に自動で連絡先を追加
Public WithEvents xExplorer As Outlook.Explorer
Public WithEvents xMailItem As Outlook.MailItem
Sub Application_Startup()
Set xExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub xExplorer_SelectionChange()
On Error Resume Next
Set xMailItem = xExplorer.Selection.Item(1)
End Sub
Private Sub xMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xNameSpace As NameSpace
Dim xSenderAddress As String
Dim xContactItems As Outlook.Items
Dim i, k As Long
Dim xFilterAddress As String
Dim xContact As Outlook.ContactItem
Dim xNewContact As Outlook.ContactItem
Dim Arr() As String
Dim ArrName() As String
Dim xArrCount As Integer
On Error Resume Next
ReDim Arr(xMailItem.Recipients.Count + 1)
ReDim ArrName(xMailItem.Recipients.Count + 1)
xSenderAddress = xMailItem.SenderEmailAddress
Arr(0) = xSenderAddress
ArrName(0) = xMailItem.SenderName
For i = LBound(Arr) + 1 To UBound(Arr) - 1
Arr(i) = xMailItem.Recipients.Item(i).Address
ArrName(i) = xMailItem.Recipients.Item(i).Name
Next i
Set xNameSpace = Outlook.Application.GetNamespace("MAPI")
Set xContactItems = xNameSpace.GetDefaultFolder(olFolderContacts).Items
For i = LBound(Arr) To UBound(Arr) - 1
For k = 1 To 3
xFilterAddress = "[Email" & k & "Address] = " & Arr(i)
Set xContact = xContactItems.Find(xFilterAddress)
If Not (xContact Is Nothing) Then
Exit For
End If
Next k
If xContact Is Nothing Then
Set xNewContact = Outlook.Application.CreateItem(olContactItem)
With xNewContact
.FullName = ArrName(i)
.Email1Address = Arr(i)
.Categories = "From Email"
.Save
End With
End If
Next i
End Sub
3。VBA コードを保存して、Microsoft Outlook を再起動してください。
今後、Outlook でメールに返信すると、そのメールの送信者とすべての受信者が、既定のメールアカウントに紐づく既定の連絡先フォルダーに自動的に保存されます。
一括追加で選択したアイテムから複数の送信者および受信者を連絡先に追加
Kutools for Outlookは、選択したメールの送信者および複数の受信者を連絡先に追加機能で、連絡先の追加を簡単にします。これにより、1 通または複数のメールから一括で連絡先を登録できます。
手順1。Kutools for Outlook をダウンロードしてインストールします。その後、送信済みアイテムフォルダー（または他の任意のフォルダー）に移動し、送信者と受信者を連絡先に追加したいメールを選択してください。
手順2。Kutools＞連絡先を追加＞選択したメールの送信者および複数の受信者を連絡先に追加をクリックします。
手順3。メールから連絡先を追加ダイアログで、
連絡先フォルダーを選択：連絡先を保存するフォルダーを選びましょう。
アドレスを選択：初期設定では、既存のアドレスを除くすべてのアドレスが選択されています。リストを確認し、追加したくないアドレスのチェックを外してください。
OK をクリック：選択内容を確定し、連絡先を指定したフォルダーに保存します。
手順4。ダイアログボックスが表示され、追加に成功した連絡先の件数が示されます。OKをクリックしてダイアログを閉じます。
関連記事
最高の Office 生産性ツール
まったく新しい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）
ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！
- ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
- 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
- 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint