[AccessD] FW: AMS Update

My hierarchy is: Folder1 as parent to Folder2 as parent to
Folder3.  If his 1 and 2 are the same as mine then your
assumption is right.

I believe I read where these names are case-sensitive,
didn't try that out, I just stuck to being exact.  This
could be a trap if your client isn't careful.

Good luck

Stephen Bond
Otatara, New Zealand 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Rocky Smolin
Sent: Thursday, 18 June 2009 6:30 a.m.
To: Stephen
Subject: Re: [AccessD] FW: AMS Update

Stephen:

Thanks so much for that.  I'll patch it in and send it over.
It's hard for me to actually go there so I'm kind of
shooting in the dark, but it looks good.

Client says his folder is "Arens Group Jobs In Public
Folder"  so if that's accurate then I would substitute that
in for "ArrowTown Bookings", yes?

Rocky


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Stephen
Sent: Wednesday, June 17, 2009 10:56 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] FW: AMS Update

Rocky

Can't sleep, being doing some 'learning' via your Outlook
problem.  Cobbled up this and it works here, on a
non-default folder.

<code>
Sub ShortTestNonDefault()
Dim i As Long
Dim ol As Outlook.Application
Dim olns As NameSpace
Dim myFolder1 As Object, myFolder2 As Object Dim myFolder3
As Object Dim itemCount As Long, SpecificItem As Object Dim
myAppointments As Items Dim myItems As Outlook.Items, rItems
As Outlook.Items

 ' Automation code example.
  Set ol = GetObject(, "Outlook.Application")

  Set olns = ol.GetNamespace("MAPI")
  Set myFolder1 = olns.Folders("Public Folders")
  Set myFolder2 = myFolder1.Folders("All Public Folders")
  Set myFolder3 = myFolder2.Folders("Arrowtown Bookings")
  
  itemCount = myFolder3.Items.Count
 ' Set myItems to the collection of items in the folder.
  Set myItems = myFolder3.Items
 ' display from the start of this month only
  Set rItems = myItems.Restrict("[Start] > '01/6/2009'")  '
Loop through all of the items in the folder.
  For Each SpecificItem In rItems
    Debug.Print SpecificItem.Subject, SpecificItem.Start,
SpecificItem.End
  Next
  
 ' try adding one
  Set SpecificItem = myFolder3.Items.Add
  With SpecificItem
    .Start = #6/18/2009 3:00:00 PM#
    .End = DateAdd("h", 1, .Start)
    .Subject = "Just a test"
    .Save
  End With

  Set SpecificItem = Nothing: Set myItems = Nothing: Set
rItems = Nothing
  Set myAppointments = Nothing
  Set myFolder3 = Nothing
  Set myFolder2 = Nothing: Set myFolder1 = Nothing
  Set olns = Nothing
  Set ol = Nothing
End Sub
</code>


HTH
Stephen Bond 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Rocky Smolin
Sent: Thursday, 18 June 2009 4:00 a.m.
To: Stephen
Subject: Re: [AccessD] FW: AMS Update

Yeah - I took a look at it.  It may give me a lead on a
solution.   The
problem is that I'm not there so it's hard to do the trial
and error thing.
I'll parse it out later and see if I can get a clue how to
do it.

Rocky


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Susan Harkins
Sent: Wednesday, June 17, 2009 8:24 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] FW: AMS Update

Rocky, did you get that link I sent yesterday? At the bottom
of the code, it looked like they were referencing a custom
calendar. When I'm stuck like this, I put together a For
loop that prints the properties, objects, whatever of the
appropriate collection/object.

Susan H.
>
> As you can see from the email below, the function to add a
date to the 
> Outlook calendar works except, as I thought, it goes to
his personal 
> calendar and not the shared one.  Does anybody know
offhand how one 
> points to a different calendar when automating Outlook
from Access?
>

--
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

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com