[AccessD] A2K:Deleteing an Outlook appointment - Need Outlook Guru

Thanks Andy
Yes I did get it working
And yes I looped throuh the Appointments collection till I found
A matching EntryID 

Many thanks

BTW work has firmed up a bit - Management have stopped the redundancy talks
For at least 1 year (maybe 2) woo hoo

Have a great day

Darren




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: Wednesday, 25 August 2004 5:30 PM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] A2K:Deleteing an Outlook appointment - Need Outlook
Guru


Darren

Just thrashing ideas but looking at the Outlook Help they construct it like
this:

Set myAppt = objFolder.Items.Find("[EntryID] =
""00000000B5860CB6D252A64BB055F39CD7DABCC824332000""")

Have you tried that? Of course you have.

If you can't get Find working would it be worth trying a For Each loop
through the Items collection testing for your EntryId? Long way round but
might get you moving.

-- Andy Lacey
http://www.minstersystems.co.uk 



> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
> Sent: 25 August 2004 04:06
> To: AccessD
> Subject: [AccessD] A2K:Deleteing an Outlook appointment - 
> Need Outlook Guru
> 
> 
> Hi all
> Need Outlook guru assistance
> I have managed to create an Outlook Calendar appointment from
> access - excellent, and I am capturing the calendar item's 
> Unique ID called EntryID
> 
> Now does anyone know how I can delete the same calendar item
> using the EntryID The code below NEARLY works, but it dies on 
> the line about finding a rec 
> Based on the EntryID
> I have scoured the net for examples to delete calendar items 
> and just can't find any. Another 2 days wasted <sigh>
> 
> Many thanks in advance
> 
> Darren
> 
> """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
> """"""""""""""
> Function somenewfunction()
> 
>    Dim ol As Outlook.Application
>    Dim olns As Outlook.NameSpace
>    Dim objFolder As Outlook.MAPIFolder
>    Dim AllAppts As Outlook.Items
>    Dim myAppt As Outlook.AppointmentItem
> 
>    
>     Set ol = New Outlook.Application
>     Set olns = ol.GetNamespace("MAPI")
>     Set objFolder = olns.GetDefaultFolder(olFolderCalendar)
>     Set AllAppts = objFolder.Items
> Set myAppt = AllAppts.Find("[EntryID] = _
> ""00000000B5860CB6D252A64BB055F39CD7DABCC824332000""")
>     
> MsgBox myAppt.Subject
> 
> End Function
> """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
> """""""""""""
> 
> 
> 
> --
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/a> ccessd
> Website: 
> http://www.databaseadvisors.com
> 
> 

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