[AccessD] SPAM-LOW: Access-D Desktop

...that did the trick ...tks

William

--------------------------------------------------
From: "Charlotte Foust" <cfoust at infostatsystems.com>
Sent: Monday, August 03, 2009 7:16 PM
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] SPAM-LOW:   Access-D Desktop

> Try removing the zip extension from the attachment file name before
> attaching.  I've run into problems with gmail trying to receive or send
> zip files, especially with an executable in them.
>
> Charlotte Foust
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
> Hindman
> Sent: Monday, August 03, 2009 4:12 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [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
>>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>