none
outlook2007的联系人”的“联系人”选项卡上有”活动“，在outlook2013的联系人里没有了？ RRS feed

 > 

答案

  • Question
    登录进行投票
    0
    登录进行投票

    您好，

    联系人的“活动”功能在Outlook 2013中已经被移除了。我们可以通过使用以下的VBA代码来“恢复”这个功能：

    Sub FindContactActivities()



    If Application.Session.DefaultStore.IsInstantSearchEnabled Then
    
        Dim olkExplorer As Outlook.Explorer
        Set olkExplorer = Application.Explorers.Add(Application.Session.GetDefaultFolder(olFolderInbox), olFolderDisplayNormal)
        
        Dim oItem As Object
        Set oItem = Application.ActiveInspector.CurrentItem
        
        If oItem.Class = olContact Then
            Dim myContact As Outlook.ContactItem
            Set myContact = oItem
            
            Dim myContactAddress As String
            Dim myContactName As String
            
            myContactAddress = myContact.Email1Address
            myContactName = myContact.FullName
        
        
            Dim olkFilter As String
            
            'Linked Contacts
            olkFilter = "contactnames:(" & Chr(34) & myContactAddress & Chr(34) & " OR " & Chr(34) & myContactName & Chr(34) & ")"
            
            'From this contact
            olkFilter = olkFilter & " OR " & "from:(" & Chr(34) & myContactAddress & Chr(34) & " OR " & Chr(34) & myContactName & Chr(34) & ")"
            
            'To this contact
            olkFilter = olkFilter & " OR " & "to:(" & Chr(34) & myContactAddress & Chr(34) & " OR " & Chr(34) & myContactName & Chr(34) & ")"
            
       
            Call olkExplorer.Search(olkFilter, olSearchScopeAllOutlookItems)
            
            Call olkExplorer.Display
        
        Else
        
            MsgBox "Please run this command from an opened Contact item.", vbExclamation, "Open a Contact item"
        
        End If
        
        Set olkExplorer = Nothing
        Set myContact = Nothing
    
    Else
    
        MsgBox "Search Indexing is not enabled for this mailbox." & vbNewLine & vbNewLine & _
                    "If you are using an Exchange account, make sure that Cached Exchange Mode is enabled" & _
                    vbNewLine & vbNewLine & _
                    "To troubleshoot Search Indexing see: " & vbNewLine & _
                    "http://www.msoutlook.info/question/47", _
                    vbExclamation, "Search Indexing not enabled"

    End If

End Sub

    需要注意的是，这个宏代码是基于Windows Search的，请确保你的搜索索引是正常工作的。另外，你必须使用的是Exchange账户，而且是缓存Exchange模式。

    使用这个宏代码的具体步骤是：

    1. 打开Outlook，按ALT+F11。

    2. 复制以上的代码并粘贴到打开的编辑器中。

    3. 点击保存。

    4. 打开一个联系人，在快速访问工具栏处添加一个指向该宏代码的按钮。

    5. 点击按钮就可以看到与该联系人有关的活动了。

    参考链接：http://www.howto-outlook.com/howto/contactactivities.htm

    请注意：该链接网站不是由微软托管，微软不保证该链接的正确性和安全性。

    Steve Fan

    微软一站式示例脚本库: http://blogs.technet.com/b/onescript




    2015年5月25日 6:12
    |
    版主