[AccessD] SPAM-LOW: Access-D Desktop

...hhhmm ...I refuse to play with outlook ...too many bad memories of this 
huge hog sucking up every system resource available and crashing things all 
about ...I swear to you my last bsod was an outlook screen and I since vowed 
to execute any user who dared to activate it.

...there are several vbs and wmi scripts in the zip I sent you ...the utc 
offsets need to be rewritten since the dst dates changed but I've not gotten 
around to it ...I'm sure the scripts can be optimized but much like Access, 
I don't claim to be a guru with either ...the "clocks" are simple date time 
fields offset from my local time zone ...since a refresh is required to 
update them, I thought graphics were way overkill ...besides which, as 
you'll note. there is a lot of info presented and users will only accept you 
writing on top of just so much of their wallpaper.

...if you use a wallpaper changer (I'm always amazed at the number of people 
who do) you'll need to change it to one that provides for a command line 
call between changes so that bginfo can be refreshed ...nonags has a good 
freebie that works.

...other than that, enjoy ...I started using this a few years back and have 
gradually added to it.

William

--------------------------------------------------
From: "Max Wanadoo" <max.wanadoo at gmail.com>
Sent: Monday, August 03, 2009 3:35 PM
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] SPAM-LOW:   Access-D Desktop

> Right then young man (William):
> You have set me a challenge with this BGInfo but I think I am getting
> somewhere.
> Here are  two CUSTOM VBS scripts that I have tested and work for me !!
> As Always,  watch for word wrap.
>
> Feedback appreciated + some indication of how you wrote the vbscript for 
> the
> clocks
>
> Max
>
>
> FIRST ONE:
> ' MyUnreadEmails.vbs
> 'Max Sherman - 3 Aug 09 - for BGInfo
> Const olFolderInbox = 6
> Set objOutlook = CreateObject("Outlook.Application")
> Set objNamespace = objOutlook.GetNamespace("MAPI")
> objNamespace.Logon "Default Outlook Profile", , FALSE, TRUE
> Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
> Echo objFolder.UnreadItemCount
>
> SECOND ONE:
> ' MyOutlookDistributionLists.vbs
> 'Max Sherman - 3 Aug 09 - for BGInfo
> Const olFolderContacts = 10
> Set objOutlook = CreateObject("Outlook.Application")
> Set objNamespace = objOutlook.GetNamespace("MAPI")
> Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items
> intCount = colContacts.Count
> For i = 1 To intCount
>    If TypeName(colContacts.Item(i)) = "DistListItem" Then
>        Set objDistList = colContacts.Item(i)
>        Echo objDistList.DLName
>        For j = 1 To objDistList.MemberCount
> echo objDistList.GetMember(j).Name & " -- " &
> objDistList.GetMember(j).Address
>        Next
>       Echo ""
>    End If
> Next
>
> **END***
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>