[SOLVED] Adding appointments

timbim · #1 06-19-2009, 04:12 PM

I'm trying to write a sub to automatically add appointments to my calendar. I've got this from the help file, which compiles but does not appear on my calendar (I'm using an exchange connection but have only one calendar) Can someone tell me what I'm doing wrong?

Code:

Sub AddBreakfast()

Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.AppointmentItem
    
Set myItem = myOlApp.CreateItem(olAppointmentItem)

With myItem
    .Subject = "Breakfast"
    .Location = "Manor"
    .Start = #6/20/2009 7:50:00 AM#
    .Duration = 20
End With

End Sub

DonkeyOte · #2 06-19-2009, 04:17 PM

You need to add

Code:

.Save

timbim · #3 06-19-2009, 04:18 PM

Thank you!

Welcome to the Excel Forum

Forum Statistics