Adressen vanuit excel naar outlook 2010

[HWV]

Beste,

Ik heb hier de code om vanuit excel adressen naar outlook te brengen.
In 2003 ging het goed maar nu ik met 2010 werkt, dan werkt het niet meer.

Sub kontaktpersoon_toevoegen()
  sn = Sheets(1).Cells(1, 1).CurrentRegion
    
  For j = 2 To UBound(sn)
    With CreateObject("Outlook.Application").Getnamespace("MAPI").getdefaultfolder(10).Folders("test").Items.Add
      For jj = 1 To UBound(sn, 2)
        Select Case LCase(sn(1, jj))
        
        Case "bedrijfsnaam", "CompanyName"
          .CompanyName = sn(j, jj)
        
        Case "adres", "BusinessAddressStreet"
          .BusinessAddressStreet = sn(j, jj)
          
        Case "postcode", "BusinessAddressPostalCode"
          .BusinessAddressPostalCode = sn(j, jj)
        
        Case "plaatsnaam", "BusinessAddressCity"""
          .BusinessAddressCity = sn(j, jj)
        
        Case "land", "BusinessAddressCountry"
          .BusinessAddressCountry = sn(j, jj)
          
        Case "telefoon_werk", "BusinessTelephoneNumber"
          .BusinessTelephoneNumber = sn(j, jj)
          
        Case "fax", "BusinessFaxNumber"
          .BusinessFaxNumber = sn(j, jj)
                        
        Case "website", "BusinessHomePage"
          .BusinessHomePage = sn(j, jj)
                        
        Case "titel", "Title"
          .Title = sn(j, jj)
        
        Case "voornaam", "FirstName"
          .FirstName = sn(j, jj)
        
        Case "tussenvoegsel", "MiddleName"
          .MiddleName = sn(j, jj)
        
        Case "achternaam", "Lastname"
          .Lastname = sn(j, jj)
        
        Case "functie", "JobTitle"
          .JobTitle = sn(j, jj)

        Case "mobilenummer", "MobileTelephoneNumber"
          .MobileTelephoneNumber = sn(j, jj)
        
        Case "thuis_telefoon", "omeTelephoneNumber"
          .HomeTelephoneNumber = sn(j, jj)
        
        Case "email1", "Email2Address"""
          .Email1Address = sn(j, jj)
        
        Case "email2", "Email2Address"
          .Email2Address = sn(j, jj)
        
        Case "verjaardag", "Birthday"
          .Birthday = sn(j, jj)
          
        Case "trouwdag", "Anniversary"
          .Anniversary = sn(j, jj)


        End Select
      Next
      .Save
    End With
  Next
End Sub

Hoe kan ik de code laten werken zodat het werkt in outlook 2010

Groet HWV