I have searched long and hard for an example of Opal code to modify an
existing MS Outlook Appointment using OLE. What puzzles me is that
plenty of people have asked the same question (albeit not that often
with Paradox) over the years and there are very few detailed examples
of how to find an appointment and modify it or delete it. This
contrasts with the trumpeted details showing how easy it is to create a
new appointment in Outlook using OLE! Generally, people who ask about
modifying and deleting are met with a deafening silence. It is enough
to make me think there is a conspiracy against knowing this
information. Yet it is fairly cruical to applying this functionality in
a real world application. I have seen code showing how to do this in
other languages but I am realy only familiar with Opal (I'm not a
professional programmer) so I would need to give more time than is
warranted to sort out the equivalent Opal code. I have been trying to
check thedbcommunity for a couple of days but the web site seems to be
down. So if any body is willing to share their code with me I would be
eternally gratetful. Regards Paul

Paul,

I'd recommend posting the other code, or links thereto, in its
simplest form - there are at least a few here who should be able to
translate it into ObjectPAL (assuming that's possible).

Another option might be to delete the original appointment and send a
new one with the changes made.... If it comes to it.

Liz


OzPaul wrote:

Liz. So fast! Hmm, Well here is some code I book-marked from an Outlook
group. From what I can see, he is storing an ID value in Access to use
it with Delete. I have tried simply populating an OLE variable with the
details I used to create an appointment then ^delete and I get no error
message but also no delete! Probably too simple minded. Paul.


Thanks Sue - Here is cut down code as requested [ it does the add's OK
but
not the delete's - fails on Set objAppointment =
objOutlook.Session.GetItemFromID(CalEntryID) ] :-

Dim objOutlook As Outlook.Application
Dim objCalendar As Object
Dim objAppointment As Object
Dim CalEntryID as Variant
Dim CalEntryIDR as Object
Dim SQLcmd as String


Set objOutlook = New Outlook.Application
Set objCalendar =
objOutlook.Session.GetDefaultFolder(olFolderCalend ar)


Select Case Action


Case "A"


cc = 0


Do While cc <= 2


Set objAppointment = objCalendar.Items.Add
With objAppointment
.Subject = "Test"
.Start = Date + cc
.AllDayEvent = True
End With


objAppointment.Close olSave


CalEntryID = objAppointment.EntryID


SQLcmd = "Insert into table tblx (EN,EI) values ('" & cc & "', '" &
CalEntryID & "')"
Docmd.RunSQL SQLcmd


cc = cc + 1


Loop


Case "D"


cc = 0


Do While cc <= 2


CalEntryID = DLookup("[EI]", "tblx", "[EN] = " & cc)
Set objAppointment = objOutlook.Session.GetItemFromID(CalEntryID)
objAppointment.Delete


cc = cc + 1


Loop


End Select


Set objAppointment = Nothing
Set objOutlook = Nothing


---------



- Hide quoted text -
- Show quoted text -

"Sue Mosher [MVP-Outlook]" wrote:


























Reply Rate this post: Text for clearing space

8 From: Andy - view profile
Date: Thurs, Jan 13 2005 7:37 am
Email: "Andy" <A... (AT) discussions (DOT) microsoft.com>
Groups: microsoft.public.outlook.program_vba
Not yet ratedRating:
show options


Reply | Reply to Author | Forward | Print | Individual Message | Show
original | Report Abuse | Find messages by this author


I eventually figured out why the deletes weren't working.

Below, when I stored the EntryID away in the database I hadn't realised
that
the default size of a text field in Access is 50 characters. The
EntryID is
much more than this (about 160 chrs) so the ID's were being truncated.
By increasing the size of the text field the ID's were stored correctly
so
when they were retieved in order to delete the appointment at a later
date,
it worked fine.
So the code was OK.


Andy.

And possibly better.....

This example deletes one instance of a recurring appointment. The
example assumes that an instance of a recurring appointment occurs on
June 28, 2006, at 08:00.

Example
Visual Basic Copy CodePrivate Sub ThisApplication_Startup(ByVal sender
As Object, _
ByVal e As System.EventArgs) Handles Me.Startup

Dim calendar As Outlook.MAPIFolder = _
Session.GetDefaultFolder( _
Outlook.OlDefaultFolders.olFolderCalendar)

Dim calendarItems As Outlook.Items = calendar.Items

Dim item As Outlook.AppointmentItem = TryCast( _
calendarItems("Test Appointment"), Outlook.AppointmentItem)

Dim pattern As Outlook.RecurrencePattern = _
item.GetRecurrencePattern()

Dim itemDelete As Outlook.AppointmentItem = _
pattern.GetOccurrence(New Date(2006, 6, 28, 8, 0, 0))

If itemDelete IsNot Nothing Then
itemDelete.Delete()
End If
End Sub

C# Copy Codeprivate void ThisApplication_Startup(object sender,
System.EventArgs e)
{
Outlook.MAPIFolder calendar =
Session.GetDefaultFolder(
Outlook.OlDefaultFolders.olFolderCalendar);

Outlook.Items calendarItems = calendar.Items;

Outlook.AppointmentItem item =
calendarItems["Test Appointment"] as Outlook.AppointmentItem;

Outlook.RecurrencePattern pattern =
item.GetRecurrencePattern();
Outlook.AppointmentItem itemDelete = pattern.
GetOccurrence(new DateTime(2006,6,28,8,0,0));

if (itemDelete != null)
{
itemDelete.Delete();
}
}

PS my simple code for inserting an appointment is something like this


var
ol,appt oleAuto
endVar

; other variable details deleted.... show remaining code

ol.Open("Outlook.Application")
appt=ol.CreateItem(1)
olAppointmentItem=3
appt.Subject = testType+" "+"appointment for"+" "+snme
appt.Body="Appointment for Patient from Scientist"
appt.Start=dateTime(dte) ;("15:30:00, 15/09/2006")
appt.Duration=60
appt.Location = "Restaurant" ; 'Appointment's location
appt.ReminderSet = True ; 'Set Reminder to 15 minutes

; olBusy optional values are
;olBusy 2
;olFree 0
;olOutOfOffice 3
;olTentative 1
appt.BusyStatus = 2
appt.save() ; save appointment in Outlook

;invoke(appt.AppointmentItem.Delete) does not work if appt above
exists
;appt^delete() does not work either
msgInfo("Success","Entered in Outlook Calendar")

For the record, I have no clue. I just thought it might help someone
who did.

It's probably best to be patient, btw, it could take a while for
someone to figure this out.

Liz