vba - How to export email addresses from outlook meeting request -


i sent outlook (2010) meeting request company (4000+) , send additional email accepted request or accepted tentatively.

how do that? when hit contact atendees --> new email atendees in ribbon send response company , not accepted. tried export contacts can export name alias , not entire email addresses.

any suggestions?

thanks

the basis of solution found here get meeting attendee list macro

here minor changes.

option explicit  sub getattendeelist()  dim objapp outlook.application dim objitem object dim objattendees outlook.recipients dim objattendeereq string dim objattendeeopt string dim objorganizer string dim dtstart date dim dtend date dim strsubject string dim strlocation string dim strnotes string dim strmeetstatus string dim strcopydata string dim strcount  string  dim ino, it, ia, ide  dim x long dim listattendees mailitem  'on error resume next  set objapp = createobject("outlook.application") set objitem = getcurrentitem() set objattendees = objitem.recipients  on error goto endclean:  ' appointment if objitem.class <> 26   msgbox "this code works meetings."   goto endclean: end if  ' data dtstart = objitem.start dtend = objitem.end strsubject = objitem.subject strlocation = objitem.location strnotes = objitem.body objorganizer = objitem.organizer objattendeereq = "" objattendeeopt = ""  set listattendees = application.createitem(olmailitem)  ' <---  ' attendee list x = 1 objattendees.count    strmeetstatus = ""    select case objattendees(x).meetingresponsestatus      case 0        strmeetstatus = "no response (or organizer)"        ino = ino + 1      case 1        strmeetstatus = "organizer"        ino = ino + 1      case 2        strmeetstatus = "tentative"        = + 1         listattendees.recipients.add objattendees(x) ' <---       case 3        strmeetstatus = "accepted"        ia = ia + 1         listattendees.recipients.add objattendees(x) ' <---       case 4        strmeetstatus = "declined"        ide = ide + 1     end select     if objattendees(x).type = olrequired       objattendeereq = objattendeereq & objattendees(x).name & vbtab & strmeetstatus & vbcrlf    else       objattendeeopt = objattendeeopt & objattendees(x).name & vbtab & strmeetstatus & vbcrlf    end if next   strcopydata = "organizer: " & objorganizer & vbcrlf & "subject:  " & strsubject & vbcrlf & _   "location: " & strlocation & vbcrlf & "start:    " & dtstart & vbcrlf & "end:     " & dtend & _   vbcrlf & vbcrlf & "required: " & vbcrlf & objattendeereq & vbcrlf & "optional: " & _   vbcrlf & objattendeeopt & vbcrlf & "notes " & vbcrlf & strnotes   strcount = "accepted: " & ia & vbcrlf & _   "declined: " & ide & vbcrlf & _   "tentative: " & & vbcrlf & _   "no response: " & ino  'set listattendees = application.createitem(olmailitem)   listattendees.body = strcopydata & vbcrlf & strcount   listattendees.display    listattendees.recipients.resolveall   ' <---  endclean: set objapp = nothing set objitem = nothing set objattendees = nothing end sub

Comments

Post a Comment

Popular posts from this blog

android - Get AccessToken using signpost OAuth without opening a browser (Two legged Oauth) -

i using signpost oauth access data magento server. have read various tutorials on same , reach point open browser user can enter credentials. however, per requirement have automate part. hence, user should not browser page. have set-up done on server side ( magento ), hit url , returned call page. same through program in android. i have tried below, consumer = new commonshttpoauthconsumer(key, secret); provider = new commonshttpoauthprovider(oauth_init_url,access_token_url, authorize_url); try { provider.retrieverequesttoken(consumer, oauth.out_of_band); log.d("tokens" , consumer.gettoken() + " -- " + consumer.gettokensecret()); } and request tokens. dont know how bypass next step. tried directly accessing accesstoken (stupid of me) provider.retrieveaccesstoken(consumer, "mycallback://callback"); no luck, ends in oauth.signpost.exception.oauthnotauthorizedexception: authorization failed (server replied 401). ...
Read more

org.mockito.exceptions.misusing.InvalidUseOfMatchersException: mockito -

getting error org.mockito.exceptions.misusing.invaliduseofmatchersexception: invalid use of argument matchers! 1 matchers expected, 2 recorded. exception may occur if matchers combined raw values: //incorrect: somemethod(anyobject(), "raw string"); when using matchers, arguments have provided matchers. example: //correct: somemethod(anyobject(), eq("string matcher")); at when( getprogramservice .callservice(any(getprogramtype.class))) .thenreturn(jaxbresponse); please explain error , possible resolution the code posted looks fine; don't see problem it. code before or above causing exception. key here: invalid use of argument matchers! 1 matchers expected, 2 recorded. any , used above, doesn't return "special kind of null" or "special kind of getprogramtype"; don't exist. instead, returns null , side effect puts matcher on stack. whe...
Read more

google shop client API returns 400 bad request error while adding an item -

i'm working on solution add items in google shopping market java application. following tutorial real mess because of missing classes of laste release, after setting 1.5-beta maven managed make base example typecheck correctly classes. still can make simple task of adding 1 item. instead of posting whole code i'm posting part creates product feed. private product createproduct(string id) { product product = new product(); product.title = "red wool sweater"; product.content = new content( "text", "comfortable , soft, sweater keep warm on " + "cold winter nights. red , blue stripes."); product.appcontrol = new appcontrol(); product.appcontrol.addrequireddestination("productads"); product.externalid = id; product.lang = "it"; product.country = "it"; product.condition = "nuovo"; product.price = new price("eu...
Read more