Solved

How to delete Outlook 2002 appointments in Visual Basic

Posted on 2003-11-16
5
353 Views
Last Modified: 2013-11-25
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.
0
Comment
Question by:zetabeta3
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
5 Comments
 
LVL 1

Expert Comment

by:eScapePro
ID: 9763207


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

0
 

Author Comment

by:zetabeta3
ID: 9765676
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
0
 
LVL 49

Expert Comment

by:DanRollins
ID: 10548538
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
0
 

Accepted Solution

by:
CetusMOD earned 0 total points
ID: 10598736
PAQed, with points refunded (125)

CetusMOD
Community Support Moderator
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Add a task in Outlook from access 11 43
Using MS Code on my Mac 6 72
Search combo error "Data Type Mismatch in Criteria Expression" 2 83
Authentication of Web Services 3 98
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

730 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question