[AccessD] SPAM-LOW: Access-D Desktop

Charlotte Foust cfoust at infostatsystems.com
Mon Aug 3 18:16:26 CDT 2009


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




More information about the AccessD mailing list