Outlookで会議を受け入れた後、会議にカラーカテゴリを自動的に割り当てるにはどうすればよいですか?
日常業務では、Outlookで複数の会議メールを受信する場合があります。 会議が承認されたときに、特定の色のカテゴリを会議に自動的に割り当てたい場合があります。 通常は手動で割り当てることができますが、XNUMXつずつ設定するのは面倒です。 この記事では、Outlookでそれを自動実行する方法について説明します。
VBAコードで会議を受け入れた後、会議にカラーカテゴリを自動的に割り当てます
VBAコードで会議を受け入れた後、会議にカラーカテゴリを自動的に割り当てます
1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession Project1(VbaProject.OTM) ペインでモードを開き、次のコードをコピーして空のモジュールに貼り付けます。
VBAコード:会議を受け入れた後、会議に色のカテゴリを自動割り当てします
Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
Set xMeetingItem = Item
If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
Set xMeetingItemAccepted = xMeetingItem
Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
With xAppointmentItem
.Categories = .Categories & "Red Category"
.Save
End With
End If
End If
End Sub
注意:上記のコードでは、変更できます 赤のカテゴリ ご希望のカラーカテゴリ名に。
3。 次に、Outlookを再起動して、このマクロをトリガーします。
4。 次に、会議の電子メールを受け入れた後、をクリックします 今すぐ返信を送信 オプションを選択すると、特定の色のカテゴリが承認された会議に一度に割り当てられます。 スクリーンショットを参照してください:
注意:このコードは、デフォルトのデータアカウントにのみ適用されます。
最高のオフィス生産性向上ツール
速報: Outlook 向け Kutools がリリース 無償版!
まったく新しいKutools for Outlookを体験してください 70以上の素晴らしい機能を備えた無料版を永久にご利用いただけます! 今すぐダウンロードするにはクリックしてください!
🤖 クツールAI : 高度な AI テクノロジーを使用して、メールの返信、要約、最適化、拡張、翻訳、作成など、メールを簡単に処理します。
📧 自動メール: 自動返信(POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールの取り消し / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / 重要なメールが届いたら通知する / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
ワンクリックでKutools for Outlookを即座にロック解除—永久に無料待たずに今すぐダウンロードして効率を高めましょう!