none
Outlook 2010. Адресная книга - Убрать факсы RRS feed

  • Вопрос

  • Создали список контактов в Sharepoint2010, подключили к Outlook 2010.

    Вместе с элетронной почты выбираются и рабочие факсы. Как это исправить???


    • Изменено q2ker1 19 января 2012 г. 12:01
    19 января 2012 г. 11:36

Ответы

  • 1) Вручную дописать перед номерами факсов в списке на Sharepoint префикс Fax, или W. Из адресной книги факсы после этого исчезнут, но в карточке контакта сохранятся.

    2) внедрить VBA-скрипт на клиентах, примерно следующего вида:

    Public Sub HideFaxNumbers()
        Dim objOL As Outlook.Application
        Dim objNS As Outlook.NameSpace
        Dim objContact As Outlook.ContactItem
        Dim objItems As Outlook.Items
        Dim objContactsFolder As Outlook.MAPIFolder
        Dim obj As Object
        Dim olfax As String
    
        On Error Resume Next
    
        Set objOL = CreateObject("Outlook.Application")
        Set objNS = objOL.GetNamespace("MAPI")
        Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)
        Set objItems = objContactsFolder.Items
    
        For Each obj In objItems
            'Test for contact and not distribution list
    
            If obj.Class = olContact Then
                Set objContact = obj
    
         With objContact
              If .BusinessFaxNumber <> "" Then
                   olfax = .BusinessFaxNumber
               .BusinessFaxNumber = "Fax: " & olfax 
            End If
              .Save
    
         End With
    
            End If
    
         Err.Clear
        Next
    
        Set objOL = Nothing
        Set objNS = Nothing
        Set obj = Nothing
        Set objContact = Nothing
        Set objItems = Nothing
        Set objContactsFolder = Nothing
    End Sub
    
    


     


    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий
    Follow us on TwitterFollow MSTechnetForum on Twitter

    Посетите Блог Инженеров Доклады на Techdays: http://www.techdays.ru/speaker/Vinokurov_YUrij.html
    • Помечено в качестве ответа Yuriy Lenchenkov 26 января 2012 г. 11:25
    24 января 2012 г. 10:43
    Модератор

Все ответы

  • Кто-то знает, как настроить так, что-бы факсы не попадали отдельной записью в адресную книгу? Сейчас получается если мы в контакте указываем рабочий факс, то в адресной книге 2получаются 2 контакта с одинаковым именем. У первого е-маил, у 2-го рабочий факс. Естественно на факс аутлук отправитьт не может.

    23 января 2012 г. 8:35
  • 1) Вручную дописать перед номерами факсов в списке на Sharepoint префикс Fax, или W. Из адресной книги факсы после этого исчезнут, но в карточке контакта сохранятся.

    2) внедрить VBA-скрипт на клиентах, примерно следующего вида:

    Public Sub HideFaxNumbers()
        Dim objOL As Outlook.Application
        Dim objNS As Outlook.NameSpace
        Dim objContact As Outlook.ContactItem
        Dim objItems As Outlook.Items
        Dim objContactsFolder As Outlook.MAPIFolder
        Dim obj As Object
        Dim olfax As String
    
        On Error Resume Next
    
        Set objOL = CreateObject("Outlook.Application")
        Set objNS = objOL.GetNamespace("MAPI")
        Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)
        Set objItems = objContactsFolder.Items
    
        For Each obj In objItems
            'Test for contact and not distribution list
    
            If obj.Class = olContact Then
                Set objContact = obj
    
         With objContact
              If .BusinessFaxNumber <> "" Then
                   olfax = .BusinessFaxNumber
               .BusinessFaxNumber = "Fax: " & olfax 
            End If
              .Save
    
         End With
    
            End If
    
         Err.Clear
        Next
    
        Set objOL = Nothing
        Set objNS = Nothing
        Set obj = Nothing
        Set objContact = Nothing
        Set objItems = Nothing
        Set objContactsFolder = Nothing
    End Sub
    
    


     


    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий
    Follow us on TwitterFollow MSTechnetForum on Twitter

    Посетите Блог Инженеров Доклады на Techdays: http://www.techdays.ru/speaker/Vinokurov_YUrij.html
    • Помечено в качестве ответа Yuriy Lenchenkov 26 января 2012 г. 11:25
    24 января 2012 г. 10:43
    Модератор