[AccessD] SPAM-LOW: Access-D Desktop

...urk ...your isp refused the attachment ...what now?

...it was only a 400kb zip ...what's up with that?

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
>