vba - Update contacts in contact folder from GAL -


i trying update contact list gal.

the system updating contact list macro deletes contacts in given folder adds contacts gal contacts date. creates problem if add home address or personal phone contact lose them once update contact list.

i have macro in gal contacts match specific requirement (our office location).

now tricky part

  1. if contact (based on full name) in contact list want update company dedicated fields, (such as: company name, position , on) leave other fields are.

  2. if contact not in contact list: add - works

  3. if contact in contact list has not been matched gal (means person left company) delete company dedicated fields (same in 1).

my code (adds contact based on location)

sub getallgalmembers()  dim olapp outlook.application dim olns outlook.namespace dim olgal outlook.addresslist dim olentry outlook.addressentries dim olmember outlook.addressentry dim objitem outlook.contactitem  dim mycontacts outlook.mapifolder dim myfolder mapifolder dim myitems items  set mysession = new outlook.application set myns = mysession.getnamespace("mapi") set mycontacts = myns.getdefaultfolder(olfoldercontacts) set myfolder = mycontacts.folders("prague") set myitems = myfolder.items  set olapp = outlook.application set olns = olapp.getnamespace("mapi") set olgal = olns.getglobaladdresslist()  set olentry = olgal.addressentries on error resume next ' loop through dist list , extract members  dim long  = 1 olentry.count    set olmember = olentry.item(i)    if olmember.addressentryusertype = olexchangeuseraddressentry      strlocation = olmember.getexchangeuser.officelocation      if strlocation = "prg"        set objitem = olapp.createitem(olcontactitem)        objitem         .firstname = olmember.getexchangeuser.firstname        .last = olmember.getexchangeuser.lastname        .fullname = olmember.getexchangeuser.name        .email1address = olmember.getexchangeuser.primarysmtpaddress        .businesstelephonenumber = olmember.getexchangeuser.businesstelephonenumber        .mobiletelephonenumber = olmember.getexchangeuser.mobiletelephonenumber        .companyname = olmember.getexchangeuser.companyname        .email2displayname = olmember.getexchangeuser.displaytype         .save        end      end if    end if  next  end sub

look @ other side, match entries in contact list gal https://msdn.microsoft.com/en-us/library/office/ff869448.aspx.

set myaddressentry = myaddresslist.addressentries(index)

this accepts string instead of index pass string see in (display) name match or close entry if there no match.


Comments

Post a Comment

Popular posts from this blog

commonjs - How to write a typescript definition file for a node module that exports a function? -

consider, toml node module can use: // toml.d.ts declare module toml { export function parse(value:string):any; } declare module "toml" { export = toml; } then: /// <reference path="../../../../../defs/toml/toml.d.ts"/> import toml = require('toml'); toml.parse(...); however, node module export single function, such 'glob' ( https://github.com/isaacs/node-glob ). the node usage of module be: var glob = require("glob") glob("*.js", {}, callback(err, files) { ... }); you'd naively expect this: // glob.d.ts declare function globs(paths:string, options:any, callback:{(err:any, files:string[]):void; ...but because typescripts 'import' semantics bit strange, seems can use 'import .. = require()' statement alias modules . trying call: /// <reference path="../../../../../defs/glob/glob.d.ts"/> import blog = require('glob'); results in: error ts2072: mod...
Read more

openid - Okta: Failed to get authorization code through API call -

i'm integrating okta own idp server using okta's api. i'm implementing authorization code flow following steps below: in own server, use /api/v1/authn endpoint sessiontoken. use sessiontoken obtain authorization calling endpoint: /oauth2/v1/authorize?client_id=" + clientid + "&sessiontoken=" + sessiontoken + "&response_type=code&response_mode=query&scope=openid&redirect_uri=" + redirecturl + "&state=evanyang&nonce=" it's supposed return response status code 302 , location header containing redirect url code value. however, keep getting response status code 200 , without location header, html body saying "you using unsupported browser." , "javascript disabled on browser." according api documentation: http://developer.okta.com/docs/api/resources/oidc.html#authentication-request , sessiontoken parameter sufficient this: an okta one-time sessiontoken. allows api-based ...
Read more

ios - Change Storyboard View using Seague -

i have following code checks connection server, , depending on want change views if no connection found. nsstring *connect = [nsstring stringwithcontentsofurl:[nsurl urlwithstring:@"http://myserver.com"] encoding:nsutf8stringencoding error:nil]; if (connect == null) { [self performseguewithidentifier:@"network_failure" sender:self]; } else { // other code here } my problem not change views. have added storyboard segue between 2 views identifier of network_failure . not have navigation controller or that, problem? thanks help! no not problem. first of all, in objectivec exists nil object oriented null . must use that. so: if(connect == nil) or better: if(!connect) so due fact nil not same of null , probably code does't enter in if scope . you have been able discover breakpoint. anyway: be sure set trigger segue (line) 2 view controller , , name network_failure (that not best name. should instead view1toview2 ) as, m...
Read more