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

答案

  • 您好,

    联系人的“活动”功能在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
    版主