Outlook VBA .Restrict Uses Work Hours -


when use restrict set date range on outlook item object, not pick appointments before whatever have set "work hours" on outlook. how make whatever user sets "work hours" not influence macro?

eg. "work hours" in outlook set 1pm 5pm. create 4 appointments:

  • 1111 @ 10am sept 4, 2017
  • 2222 @ 1pm sept 4, 2017
  • 3333 @ 6pm sept 4, 2017
  • 4444 @ 1pm sept 5, 2017

my code pick last 3 appointments, not first, if dates enter 9/4/2017 , 9/5/2017.

sub restrictdemo()  dim olkitems outlook.items, _     olkselected outlook.items, _     olkappt outlook.appointmentitem, _     datestart date, _     dateend date  datestart = inputbox("starting date?", "", "m/d/yyyy") dateend = inputbox("ending date?", "", "m/d/yyyy")  if isdate(datestart) , isdate(dateend)      set olkitems = session.getdefaultfolder(olfoldercalendar).items     olkitems.includerecurrences = true     olkitems.sort "start"     set olkselected = olkitems.restrict("[start] >= '" & datestart & "' , [start] <= '" & dateend & "'")      each olkappt in olkselected         counter = counter + 1         msgbox counter         msgbox olkappt.subject & " " & olkappt.location & olkappt.start     next  else     msgbox "you must enter valid starting , ending dates run macro.", vbcritical + vbokonly, macro_name end if   end sub

use format expected restict. https://msdn.microsoft.com/en-us/vba/outlook-vba/articles/items-restrict-method-outlook

sub restrictdemo()      dim counter long      dim olkitems items     dim olkselected items     dim olkappt appointmentitem      dim datestart     dim dateend      dim strfilter string      ' may need use different date format.     datestart = inputbox("starting date?", , "2017-08-22")     dateend = inputbox("ending date?", , "2017-08-23")      if isdate(datestart) , isdate(dateend)          set olkitems = session.getdefaultfolder(olfoldercalendar).items         olkitems.includerecurrences = true         olkitems.sort "start"          'strfilter = "[start] >= '" & datestart & "' , [start] < '" & dateend & "'"         'debug.print strfilter          strfilter = "[start] >= '" & format(datestart, "ddddd h:nn ampm") & "'"         debug.print strfilter          strfilter = strfilter & " , [start] < '" & format(dateend, "ddddd h:nn ampm") & "'"         debug.print strfilter          set olkselected = olkitems.restrict(strfilter)          each olkappt in olkselected             counter = counter + 1             debug.print counter & ":" & olkappt.subject & " " & olkappt.location & olkappt.start             'msgbox counter & ":" & olkappt.subject & " " & olkappt.location & olkappt.start         next      else         msgbox "enter valid starting , ending dates.", vbcritical + vbokonly, "macro_name"      end if  end sub

the deeper question of why day begins @ start of work day , continues 24 hours remains unanswered.


Comments

Post a Comment

Popular posts from this blog

What is happening when Matlab is starting a "parallel pool"? -

running parallel cpu processes in matlab starts command parpool() according documentation , function: [creates] special job on pool of workers, , [connects] matlab client parallel pool. this function takes bit of time execute, on order of 30 seconds. in other multi-cpu paradigms openmp, parallel execution seems totally transparent -- i've never noticed behavior analogous matlab (granted i'm not experienced parallel programming). so, happening between time parpool() called , when finishes executing? takes long? parallel computing toolbox enables run matlab code in parallel using several different paradigms (e.g. jobs , tasks, parfor , spmd , parfeval , batch processing), , run either locally (parallelised across cores in local machine) or remotely (parallelised across machines in cluster - either 1 own, or 1 in cloud). in of these cases, code run on matlab workers , copies of matlab without interactive desktop. if you're intending run on remo...
Read more

angular - DownloadURL return null in below code -

when change file updated in firebase storage when try downloadurl show null. filechange(event: any) { const imagefolder: string = this.employee.id; const filelist: filelist = event.target.files; const file: file = filelist[0]; const storageref = firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file); console.log(storageref.snapshot.downloadurl); } the put() asynchronous. if want url after file uploaded have this: firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file).then((snapshot) => { storageref = snapshot.downloadurl: console.log(snapshot.downloadurl); });
Read more

php - Cannot override Laravel Spark authentication with own implementation -

during login process of laravel spark need request token of remote api. api stores exact same users , passwords laravel spark application. therefore need username , non hashed password of user during authentication process. i thought overriding authenticated method solution problem. in routes/web.php override post /login endpoint , pointing endpoint own logincontroller: <?php namespace app\http\controllers\auth; use illuminate\support\facades\log; use illuminate\http\request; use laravel\spark\http\controllers\auth\logincontroller sparklogincontroller; class logincontroller extends sparklogincontroller { /** * create new login controller instance. * * @return void */ public function __construct() { parent::__construct(); } /** * handle successful authentication attempt. * * @param request $request * @param \illuminate\contracts\auth\authenticatable $user * @return response */ public fu...
Read more