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

Great news Darren.
--
Andy Lacey
http://www.minstersystems.co.uk



--------- Original Message --------
From: Access Developers discussion and problem solving
<accessd at databaseadvisors.com>
To: 'Access Developers discussion and problem solving'
<accessd at databaseadvisors.com>
Subject: RE: [AccessD] A2K:Deleteing an Outlook appointment - Need Outlook
Guru
Date: 26/08/04 02:11

>
> 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
>
> --
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>
>
>

________________________________________________
Message sent using UebiMiau 2.7.2