Deleting an appointment in Outlook2000 with VB

[AlexGold]

So, can't u just loop through the appointments, get property of startdate, if startdate is the one u are looking for, object.delete, else get next?
This is just a guess, i used the same for Outlook Contacts, and that worked.

[djengiz]

The problem is that i dont know how to do that.......

[AlexGold]

Oh, ok. Sorry. I'll search for the app I wrote, and get back to you. Meanwhile, you can check http://www.win2000mag.com/Articles/I...rticleID=16207

It might help ;-)

[djengiz]

thnx for the tip! Hope you can send me your app.

[AlexGold]

Ok, I can't find the app. Its on some server or other....
But basically, it goes like this

Private Sub Form_Load()
Dim oOutlook As New Outlook.Application
Dim oNameSpace As NameSpace
Dim Appointment As Object
Dim ocalItems As Items
Dim AppointmentDate As String

Set oNameSpace = oOutlook.GetNamespace("MAPI")
Set ocalItems = oNameSpace.GetDefaultFolder(olFolderCalendar).Items
AppointmentDate = "06.02.2002 10:30:00"
Set Appointment = ocalItems.GetFirst

Do While Not (Appointment Is Nothing)
If Appointment.Start = AppointmentDate Then
Appointment.Delete
End If
Set Appointment = ocalItems.FindNext
Loop

Set Appointment = Nothing
Set ocalItems = Nothing
Set oNameSpace = Nothing
Set oOutlook = Nothing
End Sub

Now you just have put the Date and time in on which you want an Appointment deleted in AppointmentDate, either via textbox, or whatever.
Hope this helps. Maybe I'll come up with something else....

[djengiz]

THANKYOU!!!! That was what i was looking for. Ill try it tonight.