William Hindman
wdhindman at dejpolsystems.com
Mon Aug 3 17:50:28 CDT 2009
...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 >