Re: Re: HV Integration with Outlook etc?

["Paul Gordon" <paul_gordon@xxxxxxx>]

Nah, this is VB script - meant for execution by the Windows scripting host.
This particular script is specific to Homeseer (www.keware.com), but only
because of the "hs.xxx" commands. - If you remove any and all
commands which
begin with "hs." then this should work quite happily without
Homeseer on any
PC with WSH installed (just about any version of windows from 98
onwards...)
- just save everything between the <CLIP> markers into a plain text
file
with a .vbs extension, and then run it from the command line with the
command "wscript <scriptname>.vbs

You'll need to modify it to produce some useful output though, 'cos as it
stands it uses Homeseer to speak the appointments. If you don't have
Homeseer installed, and remove all the "hs." commands as
mentioned above,
then there will be no output from the script... (pretty dull!). If you want
to see it working, you could just add a "msgbox" command in place
of the
"hs.speak" commands....

Plus, I should mention that as I wrote it for use with Homeseer, I've never
actually tested under WSH....

HTH.

Paul G.



>From: "psghome2002" <psghome@xxxxxxx>
>Reply-To: ukha_d@xxxxxxx
>To: ukha_d@xxxxxxx
>Subject: [ukha_d] Re: HV Integration with Outlook etc?
>Date: Wed, 02 Jan 2002 22:03:35 -0000
>
>I'm just as guilty of replying to out of date messages - especially
>when you've got a couple of hundred to go through!
>
>Not being a VB literate, do I just get hold of VB and compile this
>script?
>
>Ta,
>
>Paul.
>
>--- In ukha_d@y..., "Paul Gordon" <paul_gordon@h...>
wrote:
> > Oops... ignore my last message, - that'll teach me to read ahead!
> >
> > Errr.... don't know is the simple answer. I don't know of any
>reason why it
> > shouldn't work... MAPI allows multiple connections, so even if
ACE
>is
> > connected to the same mailbox, I believe it shoud still work....
> >
> > best to try it & see....
> >
> > PG.
> >
> >
> >
> > >From: "psghome2002" <psghome@h...>
> > >Reply-To: ukha_d@y...
> > >To: ukha_d@y...
> > >Subject: [ukha_d] Re: HV Integration with Outlook etc?
> > >Date: Wed, 02 Jan 2002 21:11:54 -0000
> > >
> > >Thanks Paul,
> > >
> > >DO you know if this will work if I'm running ACE on the same
PC?
> > >
> > >PG
> > >
> > >--- In ukha_d@y..., "Paul Gordon"
<paul_gordon@h...> wrote:
> > > > Nah Bollocks - forget Thursday - I've managed to dig it
out
>now....
> > > >
> > > > Here is the script I wrote when I was testing the
>functionality....
> > > >
> > > > <START CLIP>
> > > >
> > >
> >
'******************************************************************
> > >***************************************************
> > > > '* Daily alarm script
> > > > '*
> > > > '* Author: Paul Gordon (paul_gordon@h...)
> > > > '*
> > > > '* Description:
> > > > '*
> > > > '* This script is designed as a daily wake-up alarm,
with a few
> > >smart
> > > > features derived from integration with an outlook
> > > > '* 2000 calendar. (Note: I have only tested it with
Outlook
>2000,
> > >it may or
> > > > may not work with other versions - YMMV)
> > > > '* It does the following:
> > > > '*
> > > > '* Opens a connection to Outlook 2000 - If outlook is
not
>already
> > >running on
> > > > the PC, it will launch it, so It's advisable
> > > > '* to NOT use the "Prompt for profile" option
of outlook, -
> > >otherwise the
> > > > script will stall, (and eventually time-out)
> > > > '*
> > > > '* Finds all of the appointments and events on todays
calendar
>(if
> > >any)
> > > > '*
> > > > '* Checks to see if any of those calendar items are
"Holiday",
>and
> > >if so,
> > > > immediately terminates (no alarm on holiday!)
> > > > '*
> > > > '* Sorts appointments which have start times into time
order
>(not
> > >yet
> > > > implemented this feature)
> > > > '*
> > > > '* Speaks all todays appointments in the correct order,
with
>all-
> > >day events
> > > > listed first.
> > > > '*
> > >
> >
'******************************************************************
> > >***************************************************
> > > >
> > > > sub main()
> > > >
> > > > Dim objOutlook
> > > > Dim objNameSpace
> > > > Dim objFolder
> > > > Dim MyItems
> > > > Dim CurrentItem
> > > > Dim strOutput(10)
> > > > dim today
> > > > dim itemdate
> > > > dim itemlocation
> > > > dim itemcount
> > > > dim itemtime
> > > > dim itemhour
> > > > dim itemmins
> > > > dim holiday
> > > >
> > > > Const olTaskItem = 3
> > > > Const olFolderCalendar = 9
> > > >
> > > > today=left(date, 10)
> > > > itemcount=0
> > > > s=hs.execx10("w2", "off", 0, 0)
> > > >
> > >
> >
'******************************************************************
> > >***************************************************
> > > > 'Create Outlook, Namespace, Folder Objects and calendar
Item,
>and
> > >then read
> > > > all calendar items into a collection.
> > > >     Set objOutlook =
CreateObject("Outlook.application")
> > > >     Set objNameSpace =
objOutlook.GetNameSpace("MAPI")
> > > >     Set objFolder = objNameSpace.GetDefaultFolder
>(olFolderCalendar)
> > > >     Set MyItems = objFolder.Items
> > > >
> > >
> >
'******************************************************************
> > >***************************************************
> > > > 'Loop through all items with a Date of Today.
> > > >     For Each CurrentItem in MyItems
> > > > 	itemdate=left(CurrentItem.Start,10)
> > > > 	if len(CurrentItem.Start) = 19 then
> > > > 		itemtime=mid(CurrentItem.Start, 12, 5)
> > > > 		itemhour=left(itemtime, 2)
> > > > 		if itemhour > 12 then itemhour=itemhour-12
> > > > 		itemmins=right(itemtime, 2)
> > > > 		if itemmins="00" then itemmins="O
clock"
> > > > 		itemtime=itemhour & " " & itemmins
& ", "
> > > > 	end if
> > > > 	itemlocation=CurrentItem.location
> > > > 	if itemdate=today then
> > > > 		itemcount=itemcount+1
> > > > 		strOutput(itemcount) = CurrentItem.Subject
> > > > 		if trim(lcase(CurrentItem.Subject)) =
"holiday" then
> > >holiday=1
> > > > 		if itemlocation > "" then
strOutput(itemcount) =
> > >strOutput(itemcount) & "
> > > > at " & itemlocation
> > > > 		if len(CurrentItem.Start) = 19 then strOutput
> > >(itemcount) = itemtime &
> > > > strOutput(itemcount)
> > > >
> > > > ' Note: the Currentitem.Start field contains EITHER a
date AND
> > >time (for
> > > > appointments), OR a date ONLY, (for all-day events).
> > > > ' The date field is always padded with leading zeroes
if
>required,
> > >to ensure
> > > > a DD/MM/YY format. Similarly, the
> > > > ' time field is also padded to a HH:MM format, - so it
always
>= 19
> > > > chraracters for appointments with start times.
> > > >
> > > > 	end if
> > > >     Next
> > > >
> > >
> >
'******************************************************************
> > >***************************************************
> > > > 'sort appointments into time order. (haven't written
this bit
>yet)
> > > > '---------------------------------
> > > >
> > > >
> > >
> >
'******************************************************************
> > >***************************************************
> > > > 'check if I am on holiday today.
> > > > '------------------------------
> > > >
> > > > 'Note: the script only checks for the word
"holiday" on a
>single
> > >entry with
> > > > no start or end time.
> > > > 'Therefore, if you want the script to know you are on
holiday,
>you
> > >must
> > > > enter an "all day event" (no start time),
> > > > 'in your Outlook Calendar, with the word
"holiday" as the
>subject.
> > >(case
> > > > does not matter, nor do spaces), but do not
> > > > 'put any other words in the SUBJECT line of the
calendar
>entry. -
> > >you may
> > > > fill in location etc. the script does not
> > > > 'check any other fields.
> > > >
> > > > if holiday then
> > > > 'Put in here what you want to happen if today is marked
as a
> > >holiday.
> > > > '(in my case, I want to abort the script, and not sound
my
>wake-up
> > >alarm)
> > > > 	hs.writelog "Outlook test", "Today is a
holiday (according
> > >to Outlook
> > > > Calendar), so cancelling alarm..."
> > > > 	exit sub
> > > > end if
> > >
> >
'******************************************************************
> > >***************************************************
> > > >
> > > > 'Speak results to user, if any.
> > > > '-----------------------------
> > > >
> > > > 'Open a COM session to Winamp (Requires the WinampCOM
plugin
> > >installed -
> > > > available from www.winamp.com)
> > > >
> > > > set WinAMP =
CreateObject("WinampCOM.Application")
> > > > wstat="unknown"
> > > > t=WinAMP.status
> > > > if t=1 then   'winamp is currently playing
> > > >     wstat="playing"
> > > >     winamp.pause  'pause command is only issued if it
is
>currently
> > >playing
> > > > end if
> > > > 'hs.waitevents()
> > > >     If itemcount > 0 Then
> > > > 	If itemcount = 1 Then hs.speak "There is 1 item
on your
> > >calendar for today"
> > > > 	If itemcount > 1 Then hs.speak "There are
" & itemcount & "
> > >items on your
> > > > calendar for today"
> > > > 	for a=1 to itemcount
> > > > 	    hs.waitsecs 1
> > > > 	    hs.speak strOutput(a)
> > > > 	next
> > > >     Else
> > > >         hs.speak "You have no entries in your
calendar for
>today"
> > > >     End If
> > > >
> > > > if wstat="playing" then   'if winamp was
playing before...
> > > >     winamp.play
> > > > end if
> > > > hs.waitsecs 2
> > > > 'Clean up
> > > >     Set objFolder = Nothing
> > > >     Set objNameSpace = Nothing
> > > >     set objOutlook = Nothing
> > > >     s=hs.execx10("w2", "on", 0, 0)
> > > > end sub
> > > >
> > > >
> > > > <END CLIP>
> > > >
> > > >
> > > > >From: "P G" <psghome@h...>
> > > > >Reply-To: ukha_d@y...
> > > > >To: homevision-users@y..., ukha_d@y...
> > > > >Subject: [ukha_d] HV Integration with Outlook etc?
> > > > >Date: Tue, 01 Jan 2002 20:03:20 +0000
> > > > >
> > > > >Just thinking about automating wakeup schedules etc
and
>thought
> > >it might be
> > > > >good to be able to query an app such as Outlook to
see if an
> > >event exists
> > > > >on
> > > > >the relevant day like 'on holiday at home'.
> > > > >I guess an easier way would be to interactively set
a wakeup
>each
> > >evening
> > > > >depending on what is to happen the next morning and
at what
>time.
> > > > >
> > > > >Has anyone looked at doing this/done it? Is the
outlook link
> > >something that
> > > > >could be easily achived?
> > > > >
> > > > >Ta,
> > > > >
> > > > >Paul.
> > > > >
> > > > >
> > > >
> >_________________________________________________________________
> > > > >MSN Photos is the easiest way to share and print
your photos:
> > > > >http://photos.msn.com/support/worldwide.aspx
> > > > >
> > > >
> > > >
> > > >
> > > >
> > > > Paul G.
> > > >
> > > >
> > > >
> > > >
> > > >
>_________________________________________________________________
> > > > Join the world's largest e-mail service with MSN
Hotmail.
> > > > http://www.hotmail.com
> > >
> >
> >
> >
> >
> > Paul G.
> >
> >
> >
> >
> > _________________________________________________________________
> > Send and receive Hotmail on your mobile device:
>http://mobile.msn.com
>




Paul G.




_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com