Outlookのカレンダーで予定の件名を検索して置換するにはどうすればよいですか?
Outlookカレンダーで予定の件名を検索して置き換えることは、複数の件名を同じテキストに置き換えたい場合や、Outlookでのデータインポート後に件名フィールドの「コピー」という単語を置き換えたい場合に役立ちます。この記事では、複数の予定の件名を検索して置換するためのVBAコードを提供します。詳細は以下をご覧ください。
VBAコードを使用して予定の件名を検索および置換する
このセクションでは、次の手順に従ってVBAコードを使用して予定の件名を検索および置換できます。
1. まず、Outlookでマクロ設定を低く設定する必要があります。
1) Outlook 2010および2013では、「ファイル」>「オプション」をクリックします。「Outlookオプション」ダイアログボックスで、左側のバーにある「トラストセンター」をクリックし、「トラストセンターの設定」ボタンをクリックします。
「トラストセンター」ダイアログボックスで、左側のバーにある「マクロの設定」をクリックし、「すべてのマクロを有効にする」オプションを選択します。そして、「OK」ボタンをクリックします。スクリーンショットをご覧ください:
2) Outlook 2007では、「ツール」>「トラストセンター」をクリックしてください。「トラストセンター」ダイアログボックスで、左側のバーにある「マクロの設定」をクリックし、「マクロのセキュリティチェックなし」オプションを選択して「OK」ボタンをクリックします。
2. 「Alt」+「F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。
3. 「Microsoft Visual Basic for Applications」ウィンドウで、「project1」>「Microsoft Outlook Objects」>「ThisOutlookSession」をダブルクリックして展開し、VBAエディターを開きます。スクリーンショットをご覧ください:
4. 次のVBAコードをコピーしてVBAエディターに貼り付けます。そして、「F5」キーを押してコードを実行します。
VBA: 予定の件名を検索して置換
Sub FindReplaceAppointment()
Dim oApp As Outlook.Application
Dim oCalFolder As Outlook.MAPIFolder
Dim oAppt As Outlook.AppointmentItem
Dim sOldText As String
Dim sNewText As String
Dim iCalChangedCount As Integer
Set oApp = Outlook.Application
MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
sOldText = InputBox("What is the text string that you would like to replace?")
sNewText = InputBox("With what would you like to replace it?")
' Check to be sure a Calendar folder was selected
Do
If Not (oCalFolder Is Nothing) Then
If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
End If
MsgBox ("Please select a calendar folder from the following list.")
Set oCalFolder = Application.Session.PickFolder
On Error GoTo ErrHandler:
Loop Until oCalFolder.DefaultItemType = olAppointmentItem
' Loop through appointments in calendar, change text where necessary, keep count
iCalChangedCount = 0
For Each oAppt In oCalFolder.Items
If InStr(oAppt.Subject, sOldText) <> 0 Then
Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
oAppt.Save
iCalChangedCount = iCalChangedCount + 1
End If
Next
' Display results and clear table
MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
Set oAppt = Nothing
Set oCalFolder = Nothing
Exit Sub
ErrHandler:
MsgBox ("Macro terminated.")
End Sub
5. コードを実行すると、「Microsoft Outlook」ダイアログボックスが表示されます。「OK」ボタンをクリックします。
6. 2番目の「Microsoft Outlook」ダイアログボックスで、置換したいテキストを入力し、「OK」ボタンをクリックします。
7. 3番目の「Microsoft Outlook」ダイアログボックスで、置換後のテキストを入力し、「OK」をクリックします。
ノート: 特定のカレンダー内の件名から「Copy」の単語をすべて削除したい場合は、このボックスを空欄にしておいてください。
8. 下のダイアログボックスで「OK」ボタンをクリックします。
9. 「フォルダを選択」ダイアログボックスで、指定されたメールアカウントの下のカレンダーを選択し、「OK」ボタンをクリックします。スクリーンショットをご覧ください:
10. その後、置換が成功したことを知らせるダイアログボックスが表示されます。「OK」ボタンをクリックしてください。
11. これで、選択したカレンダーの件名内のすべてのテキストが新しい内容に置き換えられます。
最高のオフィス生産性ツール
最新情報: 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