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

Andy Lacey andy at minstersystems.co.uk
Wed Aug 25 02:30:17 CDT 2004


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




More information about the AccessD mailing list