Solved

Check if appointment already exists

Posted on 2009-05-10
2
1,162 Views
Last Modified: 2013-11-25
I have created a addin which downloads a series of events from a php webservice and then adds them to the outlook calendar.

I know have a requirement to check if the appointment\event exists before te insert happens. this is to prevent duplicates of the same appointment.

I also need the abiity to change the appointment if the times have changed. Is there anyway of storing a ID number in the appointment.

Many thanks for any help. The code i am using to create the appointment is below.
Private Sub Btn2_Click(ByVal ctrl As Office.CommandBarButton, ByRef cancelDefault As Boolean) Handles btn1.Click

        Dim service As New wsclick.webservice

        Dim events As Array

        Dim uc As New wsclick.userCredentials

        uc.username = My.Settings.uname

        uc.password = My.Settings.pwd

        uc.database = My.Settings.db

        events = service.getEvents(uc)
 

        For Each cevent As wsclick.Event In events
 
 
 

            createEvents(cevent.subject, cevent.startdate, cevent.enddate, cevent.allday, cevent.description, cevent.timezone, cevent.remind, cevent.recurrenceperiod, cevent.recurrenceenddate, cevent.recurrenceoccurrences)
 

        Next
 
 

        MessageBox.Show("You have succesfully synchronised")
 
 

    End Sub
 

    

     Sub createEvents(ByVal subject As String, ByVal startdate As String, ByVal enddate As String, ByVal allday As String, ByVal description As String, ByVal timezone As String, ByVal remind As String, ByVal reccurrenceperiod As String, ByVal recurrencedate As String, ByVal recurrenceoccurencies As String)
 
 

        Dim oevent As Outlook.AppointmentItem = oapp.CreateItem(Outlook.OlItemType.olAppointmentItem)

        With oevent

            .Subject = subject

            .Start = CType(startdate, DateTime)

            .End = CType(enddate, DateTime)

            

            .Save()

        End With

    End Sub

Open in new window

0
Comment
Question by:mm72
2 Comments
 
LVL 46

Accepted Solution

by:
tbsgadi earned 500 total points
ID: 24352357
0
 

Author Closing Comment

by:mm72
ID: 31579933
Thanks guys i managed to get it to work after reading the post listed

0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

This article will show you how to use shortcut menus in the Access run-time environment.
This article descibes how to create a connection between Excel and SAP and how to move data from Excel to SAP or the other way around.
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

758 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now