Outlookで、すべての送信メッセージに自動的に名刺を添付するにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

場合によっては、受信者がアドレス帳に情報をすばやく簡単に保存できるようにするために、すべての送信メッセージにvCardを送信したいことがあります。Outlookでは、このタスクを以下の方法でできるだけ早く解決できます。

署名を作成して、すべての送信メッセージに自動的に名刺を添付する

VBAコードを使用して、すべての送信メッセージに自動的に名刺を添付する

署名を作成して、すべての送信メッセージに自動的に名刺を添付する

通常、vCardの署名を作成し、常にその署名をオンにします。以下のように操作してください：

1. 新しいメールを作成し、新しいメッセージウィンドウで、挿入 > 署名をクリックします。スクリーンショットをご覧ください：

the steps of attaching business card for all outgoing messages automatically by creating signature

2. 表示された「署名と文房具」ダイアログボックスで、「メール署名」タブの下にある新規ボタンをクリックし、この新しい署名の名前を入力します。スクリーンショットをご覧ください：

3. 次に、OKをクリックして「新しい署名」ダイアログボックスを閉じ、「編集する署名を選択」リストボックスからこの新しい署名名を選択し、「名刺」をクリックします。スクリーンショットをご覧ください：

4. 「 名刺の挿入」ダイアログボックスで、「 参照先」ドロップダウンリストから連絡先フォルダーを選択し、下のリストボックスで指定された名刺を選択します。スクリーンショットをご覧ください：

5. 次に、OKをクリックしてこのダイアログボックスを閉じ、「署名と文房具」ダイアログに戻ります。新しい署名名を選択したままにしておき、自動的にこの署名を追加したいメールアカウントを「メールアカウント」ドロップダウンリストから指定します。そして、「新しいメッセージ」ドロップダウンリストから新しく作成した署名名を選択します。

注意: すべての返信および転送にvCardを追加したい場合は、「返信/転送」リストでvCard付きの新しい署名名を選択してください。

6. 設定が完了したら、OKボタンをクリックしてください。これで、新しいメッセージを作成するたびに、指定された名刺が本文に挿入され、同時に添付ファイルとして追加されます。スクリーンショットをご覧ください：

OutlookのAIメールアシスタント：スマートな返信、クリアなコミュニケーション（ワンクリックで魔法のような操作！）無料

Kutools for OutlookのAIメールアシスタントを使用して、毎日のOutlookタスクを効率化しましょう。この強力なツールは、過去のメールから学習し、インテリジェントで正確な返信を提供し、メールの内容を最適化し、メッセージの作成や修正を手間なく行うことができます。

この機能がサポートする内容：

スマート返信：過去の会話に基づいて調整された、的確で使用準備の整った返信を取得します。
強化されたコンテンツ：メールの文章を自動的に洗練させ、明瞭さと影響力を高めます。
簡単な作成：キーワードを入力するだけで、複数のライティングスタイルでAIが残りを処理します。
インテリジェント拡張：文脈を理解した提案で考えを広げます。
要約：長文のメールを瞬時に簡潔にまとめます。
グローバル対応：メールを簡単にどの言語にも翻訳できます。

この機能がサポートする内容：

スマートメール返信
最適化されたコンテンツ
キーワードベースの下書き
インテリジェントなコンテンツ拡張
メールの要約
多言語翻訳

何より、この機能は永遠に完全無料です！今すぐAIメールアシスタントをダウンロードしてお楽しみください！

VBAコードを使用して、すべての送信メッセージに自動的に名刺を添付する

すべての送信メッセージに名刺を添付するには、名刺をvcfファイルとして保存し、VBAコードを適用してそれを自動的に添付ファイルとして追加します。次の手順で行ってください：

1. ピープルペインに移動し、名刺として送信したい連絡先を選択します。

2. 次に、 ファイル > 名前を付けて保存をクリックし、「名前を付けて保存」ウィンドウで、このカードを保存する場所を指定し、ファイル名テキストボックスに名前を入力し、「保存形式」ドロップダウンからvCardファイルを選択します。スクリーンショットをご覧ください：

the steps of attaching business card for all outgoing messages automatically by using VBA code

3. 次に、ALT + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

4. 次に、「プロジェクト-プロジェクト1」ペインからThisOutlookSessionをダブルクリックし、以下のコードを空白のコードウィンドウにコピーして貼り付けます：

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

注意: 上記のコードでは、C:\Users\Desktop\Leonel Davis.vcfは保存した名刺のファイルパスです。必要に応じて変更してください。