anchor.diff:      let greaterthanfilter = new SearchFilter.IsGreaterThanOrEqualTo(ItemSchema.LastModifiedTime, date)
       let filter = new SearchFilter.SearchFilterCollection(LogicalOperator.And, greaterthanfilter)
       let _service = connect(login)
  -    let folder = Folder.Bind(_service, WellKnownFolderName.Calendar)
  +    let folder = Folder.Bind(_service, WellKnownFolderName.Contacts)
       let view = new ItemView(1000)
       view.Offset <- 0
       let mutable search = true
  
positive.code:     logger.Debug( "Login successfully finished" )
      _service
  
  let setEmail( r : Contact, emailAddress : string, key : EmailAddressKey ) =     
      let mutable oldEmailAddress : EmailAddress = null
      if r.EmailAddresses.TryGetValue(key, &oldEmailAddress ) then
          r.EmailAddresses.[key] <- null
      if not ( String.IsNullOrWhiteSpace(emailAddress) ) && r.EmailAddresses.Contains( key) then
          r.EmailAddresses.[key] <- EmailAddress(emailAddress)
  
  let setPhone( r : Contact, number : string, key : PhoneNumberKey ) =     
      let mutable oldNumber : string = null
      if r.PhoneNumbers.TryGetValue(key, &oldNumber ) then
          r.PhoneNumbers.[key] <- null
      if not ( String.IsNullOrWhiteSpace(number) ) && r.PhoneNumbers.Contains( key) then
          r.PhoneNumbers.[key] <- number
  
  
  
negative.code:             devlog.Debug( sprintf "categoriesNotEmpty:'%A'" categoriesNotEmpty )
              r.Categories.AddRange( categoriesNotEmpty )
  
  let getAddressPart(r : Contact, key : PhysicalAddressKey) =
      let mutable addressEntry : PhysicalAddressEntry = null
      if r.PhysicalAddresses.TryGetValue(key, &addressEntry) then
          Some(addressEntry)
      else 
          None
  
  let copyContactToDTO( r : Contact, serviceAccountId : int, tag : int ) : ExchangeContactDTO =
      try
          let home = getAddressPart(r , PhysicalAddressKey.Home )
          let business = getAddressPart(r , PhysicalAddressKey.Business )
          let other = getAddressPart(r , PhysicalAddressKey.Other )
          { Id = 0; InternalId = Guid.NewGuid(); ExternalId = r.Id.ToString();     
          JobTitle = r.JobTitle; CompanyName = r.CompanyName; 
          EmailAddress1 = getEmail(r,EmailAddressKey.EmailAddress1); 
          LastModifiedTime = r.LastModifiedTime; EmailAddress2 =  getEmail(r,EmailAddressKey.EmailAddress2);
          EmailAddress3 = getEmail(r,EmailAddressKey.EmailAddress3); GivenName = r.GivenName; MiddleName = r.MiddleName; Surname = r.Surname;
          Alias = r.Alias; NickName = r.NickName; HomePhone = getPhone( r,PhoneNumberKey.HomePhone); MobilePhone = getPhone( r,PhoneNumberKey.MobilePhone);
          BusinessPhone = getPhone( r,PhoneNumberKey.BusinessPhone); OtherTelephone = getPhone( r,PhoneNumberKey.OtherTelephone); 
          HomeAddressCity = ( if home.IsNone then null else home.Value.City);
          HomeAddressCountryOrRegion = ( if home.IsNone then null else home.Value.CountryOrRegion ); 
          HomeAddressPostalCode = ( if home.IsNone then null else home.Value.PostalCode ); 
          HomeAddressState = ( if home.IsNone then null else home.Value.State ); 
          HomeAddressStreet = ( if home.IsNone then null else home.Value.Street ); 
          BusinessAddressCity = ( if business.IsNone then null else business.Value.City);
          BusinessAddressCountryOrRegion = ( if business.IsNone then null else business.Value.CountryOrRegion ); 
          BusinessAddressPostalCode = ( if business.IsNone then null else business.Value.PostalCode ); 
          BusinessAddressState = ( if business.IsNone then null else business.Value.State ); 
          BusinessAddressStreet = ( if business.IsNone then null else business.Value.Street ); 
          OtherAddressCity = ( if other.IsNone then null else other.Value.City);
          OtherAddressCountryOrRegion = ( if other.IsNone then null else other.Value.CountryOrRegion ); 
          OtherAddressPostalCode = ( if other.IsNone then null else other.Value.PostalCode ); 
          OtherAddressState = ( if other.IsNone then null else other.Value.State ); 
          OtherAddressStreet = ( if other.IsNone then null else other.Value.Street ); 
  
          CategoriesJSON = json(r.Categories); 
          ServiceAccountId = serviceAccountId; 
  