Outlook Adding calendar evennt Bug

[carlblanchard]

Can anyone please help on this

Ive found some code to insert a calendar event into outlook, ive seen loads and loads of posts with this same code but none of them work

heres the code

Private o1 As New Outlook.Application
    Public Sub CreateAppointment() 'CreateAppointment(ByVal StartTime As Date, ByVal Endtime As Date, ByVal Subject As String, ByVal Location As String)
        Try
            'Create a reference to a Appointment item
            Dim e1 As Outlook.AppointmentItem
            'Create a new appointment item
            e1 = o1.CreateItem(olAppointmentItem)
            'Set a few of the many possible appointment parameters.
 
            e1.Start = CDate("23/01/2004 09:00:00")
            e1.End = CDate("23/01/2004 10:00:00")
            e1.Subject = "test"
            e1.Location = "Bournemouth"
            'If you want to set a list of recipients, do it like this
            'e1.Recipients.Add Name
            'Commit the appointment
            e1.Send()
            'Free up the space
            e1 = Nothing
        Catch er As Exception
            MsgBox(er.ToString)
        End Try
    End Sub

i keep getting an error of

"System.InvalidCastExeception: Specified cast is not valid"

ive also found this but havnt tried it as of yet

http://support.microsoft.com/default...;en-us;Q309336

Is this article releated to my problem

[Mike Hildner]

I have never tried this before, but this code appears to work. I would imagine you'd set more properties.

Dim oApp As Outlook.Application = New Outlook.Application
        Dim item As Outlook.AppointmentItem = oApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
        item.Body = "From .NET"
        item.Save()

[Mike Hildner]

I really should be working. Anyway, since I've been wanting to do this (although on a PDA) I copied your code into VS and tweaked it until it worked.

I too, was getting invalid cast, it did not like the date string 23/01/2004 - but I'm in the US, so I guess that makes sense.

Anyway, here's your adulterated code:

Dim o1 As New Outlook.Application
        'Create a reference to a Appointment item
        Dim e1 As Outlook.AppointmentItem
        'Create a new appointment item
        'e1 = o1.CreateItem(olAppointmentItem) ==> olAppointmentItem is not declared
        e1 = o1.CreateItem(Outlook.OlItemType.olAppointmentItem)
        'Set a few of the many possible appointment parameters.
 
        'e1.Start = CDate("23/01/2004 09:00:00") ==> Invalid cast - maybe regional settings?
        e1.Start = CDate("01/23/2004 09:00:00")
        'e1.End = CDate("23/01/2004 10:00:00") ==> Invalid cast (again)
        e1.End = CDate("01/23/2004 10:00:00")
        e1.Subject = "test"
        e1.Location = "Bournemouth"
        'If you want to set a list of recipients, do it like this
        'e1.Recipients.Add Name
        'Commit the appointment
        'e1.Send() ==> I changed from Send to Save, Send appears to send email
        e1.Save()
        'Free up the space
        e1 = Nothing

[carlblanchard]

Hey Thanks Mike Hildner

Your code is a dream the cast from string was caused because the way the outlook stuff was called however i kept getting an msg from outlook asking if i wana allow another program to use outlook which was kinda annoying because it was then dependant on the user clicking yes

So thanks loads man