計算鏈接到 Outlook 聯繫人的約會的 2 種快速方法

如果您想獲取鏈接到特定聯繫人的約會數量，則可以使用本文介紹的兩種方法之一。

Outlook 允許用戶將約會鏈接到聯繫人。 如果您已將許多約會鏈接到一個特定的聯繫人，以後又想對它們進行計數，則必須不喜歡一個一個地計數。 因此，在下文中，我們將向您介紹兩種方法。 您可以根據自己的喜好選擇以太幣。

方法1：計入聯繫人“活動”

1. 首先，雙擊特定的聯繫人以在其自己的窗口中將其打開。
2. 然後，單擊“顯示”組中的“活​​動”。
3. 接下來，在新頁面中，將光標移到活動列表的標題。
4. 隨後，右鍵單擊並從上下文菜單中選擇“查看設置”。
5. 然後，在彈出的對話框中，單擊“分組依據”按鈕。
6. 稍後，在另一個對話框中，在“分組依據”下拉列表中選擇“消息類別”。
7. 最後，單擊一系列“確定”以應用視圖設置。
8. 返回列表時，您可以看到一個名為“ IPM.Appointment”的組，其中包含與當前宏鏈接的所有約會的總數，如以下屏幕截圖所示。

方法2：用Outlook VBA計數

1. 首先，通過“ Alt + F11”訪問Outlook VBA編輯器。
2. 然後，將以下VBA代碼複製到模塊中。

Dim objContact As ContactItem

Sub CountAppointmentsLinkedToContact()
    Dim objStore As Store
    Dim objOutlookFile As Folder
    Dim lTotalCount As Long
 
    'Get the contact
    Set objContact = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    lTotalCount = 0
    For Each objStore In Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        Call ProcessFolders(objOutlookFile.Folders, lTotalCount)
    Next
 
    'Prompt you
    If lTotalCount > 0 Then
       MsgBox lTotalCount & " appointments are linked to " & objContact.FullName & ".", vbInformation + vbOKOnly
    Else
       MsgBox "No appointment is linked to " & objContact.FullName & ".", vbExclamation + vbOKOnly
    End If
End Sub

Sub ProcessFolders(ByVal objFolders As Folders, lCount As Long)
    Dim objFolder As Folder
    Dim objItem As Object
 
    'Process all folders recursively
    For Each objFolder In objFolders
        For Each objItem In objFolder.Items
            If TypeOf objItem Is AppointmentItem Then
               If objItem.Links.Count > 0 Then
                  i = 0
                  Do Until i = objItem.Links.Count
                     i = i + 1
                     If objItem.Links(i).Name = objContact.FullName Then
                        lCount = lCount + 1
                        Exit Do
                     End If
                  Loop
               End If
            End If
        Next
 
        If objFolder.Folders.Count > 0 Then
           Call ProcessFolders(objFolder.Folders, lCount)
        End If
    Next
End Sub

3. 稍後，按照“ ”中的步驟將此宏添加到快速訪問工具欄（QAT）如何在Outlook中運行VBA代碼“。
4. 最後，您可以嘗試一下。

• 首先，選擇一個聯繫人。
• 然後，點擊 QAT 中的宏按鈕。
• 宏完成後，您將收到一條有關鏈接到所選聯繫人的約會計數的消息，如下圖所示。

遇到常見的Outlook問題時

假設您在 Outlook 中總是遇到各種問題，您應該提高警惕。 您的 Outlook PST 文件很可能已損壞。 此時，您將立即對Outlook數據文件進行更新備份。 另外，如果可能的話，建議掌握強大的功能。 PST維修 工具，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 恢復SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM