Outlook で送信するすべてのメッセージに名刺を自動的に添付するには、どうすればよいですか？
場合によっては、受信者が自分の情報をアドレス帳にすばやく簡単に保存できるよう、送信するすべてのメッセージに vCard を添付したいこともあるでしょう。Outlook なら、以下の方法でこの作業をより迅速に実行できます。
署名を作成して、送信するすべてのメッセージに名刺を自動的に添付する
VBA コードを使用して、送信するすべてのメッセージに名刺を自動的に添付する
署名を作成して、送信するすべてのメッセージに名刺を自動的に添付する
通常、vCard の署名を作成し、常に有効にしておくことができます。以下の手順に従ってください。
1．新しいメッセージウィンドウで、挿入 > 署名 をクリックします（下記スクリーンショット参照）。
2．表示された署名と定型文ダイアログボックスで、電子メール署名タブをクリックし、新規作成ボタンをクリックして、新しい署名の名前を入力します（下記スクリーンショット参照）。
3．次に、OKをクリックして新しい署名ダイアログボックスを閉じ、その後、編集する署名を選択リストボックスからこの新しい署名名を選択し、名刺をクリックします（下記スクリーンショット参照）。
4．名刺の挿入ダイアログボックスで、検索先ドロップダウンリストから連絡先フォルダーを選択し、下のリストボックスから目的の名刺を選んでください（下記スクリーンショット参照）。
5．次に、OKをクリックしてこのダイアログボックスを閉じ、署名と定型文ダイアログに戻ります。メールアカウントにこの署名を自動的に追加するには、メールアカウントドロップダウンリストから該当するアカウントを指定してください。その際、新しい署名名が選択された状態のまま、新規メッセージドロップダウンリストから作成した署名を選択します。
6．設定が完了したら、OKボタンをクリックしてください。これ以降、新しいメッセージを作成すると、指定した名刺が本文に自動で挿入されると同時に、添付ファイルとしても追加されます（下記スクリーンショット参照）。
Outlook の AI メールアシスタント：ワンクリックで魔法のように、よりスマートな返信と明確なコミュニケーションを実現！
Kutools for Outlook の AI メールアシスタントで、日々のOutlook タスクをもっと効率的に。この強力なツールは過去のメールから学習し、的確で知的な返信を提案したり、メールの内容を最適化したり、メッセージの下書きや修正を簡単にサポートします。
この機能は以下のサポートを提供します：
- スマート返信：過去の会話に基づき、カスタマイズされ、正確で即使用可能な返信を取得できます。
- コンテンツ強化：メール本文を自動で明確かつ効果的な内容にブラッシュアップします。
- 簡単作成：キーワードを入力するだけで、AI が複数の書式スタイルで残りの作業を自動処理します。
- インテリジェント拡張：文脈を的確に捉えた提案であなたのアイデアをさらに広げます。
- 要約機能：長いメールを瞬時に簡潔な概要にまとめてくれます。
- グローバル対応：メールをあらゆる言語に簡単に翻訳できます。
この機能は以下のサポートを提供します：
- スマートメール返信
- 最適化されたコンテンツ
- キーワードベースの下書き
- インテリジェントなコンテンツ拡張
- メール要約
- 多言語翻訳
VBA コードを使用して、送信するすべてのメッセージに名刺を自動的に添付する
すべての送信メッセージに名刺を自動的に添付するには、名刺を.vcf ファイルとして保存し、VBA コードを適用して添付ファイルとして追加できます。以下の手順に従ってください。
1．連絡先ペインに移動し、名刺として送信したい連絡先を選択します。
2． 次に、ファイル>名前を付けて保存をクリックします。「名前を付けて保存」ウィンドウで、名刺の保存先を指定し、ファイル名テキストボックスにファイル名を入力してください。その後、ファイルの種類ドロップダウンリストからvCard ファイルを選択します（下記スクリーンショット参照）。
3．次に、ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
4．次に、ThisOutlookSessionをプロジェクト - Project1ペインでダブルクリックし、表示された空のコードウィンドウに以下のコードをコピー＆ペーストしてください。
VBA コード：送信するすべてのメッセージに名刺を自動的に添付する
Public WithEvents GInpectors As Inspectors
Private Sub Application_Startup()
Set GInpectors = Application.Inspectors
End Sub
Private Sub GInpectors_NewInspector(ByVal Inspector As Inspector)
'Updateby ExtendOffice
Dim xMail As MailItem
Dim xSubject As String
On Error Resume Next
If Inspector.CurrentItem.Class <> olMail Then Exit Sub
Set xMail = Inspector.CurrentItem
xSubject = VBA.UCase$(xMail.Subject)
If (VBA.InStr(xSubject, "RE: ") = 1) Or (VBA.InStr(xSubject, "FW: ") = 1) Then Exit Sub
With xMail
.Attachments.Add "C:\Users\Desktop\Leonel Davis.vcf"
End With
End Sub
5．その後、コードウィンドウを保存して閉じ、Outlook を再起動してコードを有効化します。
6．これで、新しいメッセージを作成すると、指定した名刺が自動的に添付ファイルとして追加されます（下記のスクリーンショットをご参照ください）。
デモ：送信するすべてのメッセージに名刺を自動的に添付する
最高の 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