Contacten vanuit CSV file

Status
Niet open voor verdere reacties.

postme

Gebruiker
Lid geworden
7 mei 2015
Berichten
25
Goedendag ,

We zijn onlangs over gegaan naar office365 en dus ook naar outlook.

Mijn contacten zijn uit mijn oud mail systeem (Lotus Notes) omgezet naar een CSV file .
Deze heb ik geïmporteerd in Outlook.

Alles werkt maar wel met een kanttekening
Als ik een contact open in outlook dan staat alles keurig op zijn plaats Naam, e-mail adres ,telefoon.
Maar het e-mail adres staat ook op het veld "Display as"

VB.
Full Name : Dawn Adams
File as : Adams,Dawn
E-mail : dawn.adams@test.com

Display as : Dawn.adams@test.com


Bij groepen is dit niet handig omdat je dan 2 x het e-mail adres ziet bij Name en E-mail.
Name Email
dawn.adams@test.com dawn.adams@test.com

Vooral met afgekorte e-mail adressen werkt dit verwarrend.


Als ik handmatig het veld "display as " verander in de contact naam is dit in een groep een stuk duidelijker.
Name Email
Dawn Adams dawn.adams@test.com



Met enkele honderden e-mail adressen is dit erg veel werk.


Is er een mogelijkheid om dit op een andere manier te veranderen.

Rgds Postme
 
Daar kun je uiteraard een macro op los laten. Ik gebruik zelf Outlook 2010 en daar werkt deze macro prima:
Code:
Sub ChangeContact()
Dim MAPISession As Outlook.NameSpace
Dim MAPIFolder As Outlook.MAPIFolder
Dim MAPIContact As Outlook.ContactItem
Dim objNS As NameSpace
Dim blnSuccessful As Boolean

    'Get the MAPI NameSpace object
    Set MAPISession = Application.Session

    If Not MAPISession Is Nothing Then
        'Logon to the MAPI session
        MAPISession.Logon , , True, False
        'Create a pointer to the Outbox folder
        Set MAPIFolder = MAPISession.GetDefaultFolder(olFolderContacts)
        If Not MAPIFolder Is Nothing Then
            'Create a new mail item in the "Outbox" folder
            For Each MAPIContact In MAPIFolder.Items
                With MAPIContact
                    On Error Resume Next
                    If Not .Email1Address & "" = "" Then
                        .Email1DisplayName = .LastName & ", " & .FirstName
                    End If
                    If Not .Email2Address & "" = "" Then
                        .Email2DisplayName = .LastName & ", " & .FirstName & " (2)"
                    End If
                    .Save
                End With
            Next
        End If
        Set MAPIFolder = Nothing
        MAPISession.Logoff
    End If

    'If we got to here, then we shall assume everything went ok.
    blnSuccessful = True

End Sub
 
Bedankt voor de snelle reactie

Werkt naar behoren

Rgds Postme
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan