zetabeta3
asked on
How to delete Outlook 2002 appointments in Visual Basic
Hi There,
I am trying to delete a bunch of Outlook appointments (depending on the dat range) in an Outlook public folder using Visual Basic 6.0.
Could you show me a way to cancel/delete one appointment and also a bunch of appointments in the public folder?
This will definitely help me a lot.
Thank you.
I am trying to delete a bunch of Outlook appointments (depending on the dat range) in an Outlook public folder using Visual Basic 6.0.
Could you show me a way to cancel/delete one appointment and also a bunch of appointments in the public folder?
This will definitely help me a lot.
Thank you.
ASKER
Hi eScapePro,
Thank you for responding.
I am new to Visual Basic, therefore, I am not familiar with all of the objects and items available in VB.
I have Calendar item called "ProjectTest" in the Public Folders folder.
How do I reference the items in that folder only?
Also instead of looping through each item, is there way for me to delete all of the appintments within a certain date range?
For example, in SQL Server, I would use this query to delete all future appointments:
DELETE from AppointmentTable
WHERE StartTime > GetDate()
Is there something in VB that I do use to delete a bunch of appointments with out looping?
Thank you very much
Thank you for responding.
I am new to Visual Basic, therefore, I am not familiar with all of the objects and items available in VB.
I have Calendar item called "ProjectTest" in the Public Folders folder.
How do I reference the items in that folder only?
Also instead of looping through each item, is there way for me to delete all of the appintments within a certain date range?
For example, in SQL Server, I would use this query to delete all future appointments:
DELETE from AppointmentTable
WHERE StartTime > GetDate()
Is there something in VB that I do use to delete a bunch of appointments with out looping?
Thank you very much
zetabeta3, an EE Moderator will handle this for you.
Moderator, my recommended disposition is:
Refund points and save as a 0-pt PAQ.
*** good comment by from eScapePro, but without followup, is not full answer
Dan Rollins -- EE database cleanup volunteer
Moderator, my recommended disposition is:
Refund points and save as a 0-pt PAQ.
*** good comment by from eScapePro, but without followup, is not full answer
Dan Rollins -- EE database cleanup volunteer
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
With VB6, first make a reference to the Microsoft Outloook Object model 10.0 (for 2002, 9 for 2000 etc).
To delete an Item, you first need to get a list of items for that folder. You've mentioned you are in a public folder, which means you are going to need to search through the set of folders in your mailbox, otherwise you can use Outlooks GetDefaultFolder method to get an instant reference to the calendar, contacts, inbox etc.
This code will delete all the appointments, if you un-remark the itm.delete line below:
Private Sub CommandButton1_Click()
Dim olApp As Outlook.Application
Dim olNms As Outlook.NameSpace
Dim fldCalendar As MAPIFolder
Dim itmAppt As AppointmentItem
Set olApp = New Outlook.Application
Set olNms = olApp.GetNamespace("MAPI")
' hitting cancel results in a error (i think)
On Error Resume Next
Set fldCalendar = olNms.PickFolder
On Error GoTo Error_Handler
' Check if user selected cancel or did pick
' a folder
If fldCalendar.Items Is Nothing Then Exit Sub
' This loops through each Appoitment Item
' in the list
For Each itmAppt In fldCalendar.Items
'...todo: insert code here
Debug.Print itmAppt.Subject
'itmappt.Delete
Next
Set olApp = Nothing
Set olNms = Nothing
Exit Sub
Error_Handler:
End Sub