さまざまな種類のOutlookアイテムにさまざまなクイッククリックフラグを設定する方法

Outlookソリューション 2025 年 9 月 29 日

「クイッククリックフラグ」とは、Outlookアイテムのフラグ列をシングルクリックしたときのデフォルトのフラグを指します。 Outlookでは、アイテムの種類に関係なく、クイッククリックフラグをXNUMXつだけ設定できます。したがって、アイテムタイプに基づいて異なるクイッククリックフラグを設定する場合は、この記事で紹介した方法を使用できます。

クイッククリックフラグを設定するには、アイテムの「フラグ」列を右クリックして、「クイッククリックの設定」を選択します。次に、ポップアップの小さなダイアログボックスで、フラグを自由に選択します。既定では、Outlookはこのクイッククリックフラグをすべての種類のアイテムに適用します。それにもかかわらず、実際には、大多数のユーザーは、さまざまな種類のOutlookアイテムにさまざまなクイッククリックフラグを適用することを望んでいます。したがって、以下では、電子メールと連絡先の例を使用してそれを取得する方法を説明します。

さまざまな種類のOutlookアイテムにさまざまなクイッククリックフラグを設定する

非常に最初に、start「OutlookVBAエディター」OutlookでVBAコードを実行する方法"
次に、以下のVBAコードを「ThisOutlookSession」プロジェクトにコピーします。

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
       Set objContact = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          '"Tomorrow" Flag for Emails
          objMail.TaskStartDate = Now + 1
          objMail.Save
       End If
   End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          '"Today" Flag for Contacts
          objContact.TaskStartDate = Date & " 17:00"
          objContact.Save
       End If
    End If
End Sub

その後、「Application_S」にカーソルを置きますtar「tup」サブルーチンを選択し、「F5」キーを押してこのマクロをアクティブにします。
最終的には、試してみることができます。

メールを選択し、「フラグ」列をクリックします。すぐに、「明日」フラグが電子メールに追加されます。
次に、連絡先を売り込み、「フラグ」列をクリックします。すぐに、「今日」フラグが選択した連絡先に追加されます。

悪意のあるメールを禁止する

マクロはOutlookでの作業に大きく貢献しますが、マクロ、特に外部の不明な電子メールからのマクロには注意が必要です。これは、マクロにウイルスが含まれている可能性があるためです。ウイルスは、Outlookデータを簡単に攻撃する可能性があります。 Outlookファイルが感染したら、ウイルスを殺す以外に、Outlookファイルを修復する必要があります。通常、受信トレイ修復ツールは効果を発揮しません。あなたの唯一の手段は、より強力で信用できる第三者です Outlookの修正などのツール DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを修復すると見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com