wingers
10-02-2013, 12:23 PM
Hi
I have a custom form I have been using for years without a problem - but since latest updates to outlook 2013 it now crashes outlook without a useful error everytime I use it
It contains the code below, so when a date is changed in a drop down it then adds something to the calendar
any ideas why it now suddenly won't work and crashes outlook?
Sub Item_CustomPropertyChange(ByVal Name)
Const olAppointmentItem = 1
Select Case Name
Case "Email Support expires"
Set myAppt = Application.CreateItem(olAppointmentItem)
myAppt.Start = Item.UserProperties("Email Support expires")
myAppt.Subject="Email Support expires - " & Item.FullName
myAppt.AllDayEvent = 1
myAppt.ReminderSet = True
myAppt.ReminderMinutesBeforeStart = 10080
myAppt.Save
Case "Web Hosting expires"
Set myAppt = Application.CreateItem(olAppointmentItem)
myAppt.Start = Item.UserProperties("Web Hosting expires")
myAppt.Subject="Web Hosting expires - " & Item.FullName
myAppt.AllDayEvent = 1
myAppt.ReminderSet = True
myAppt.ReminderMinutesBeforeStart = 10080
myAppt.Save
End Select
End Sub
I have a custom form I have been using for years without a problem - but since latest updates to outlook 2013 it now crashes outlook without a useful error everytime I use it
It contains the code below, so when a date is changed in a drop down it then adds something to the calendar
any ideas why it now suddenly won't work and crashes outlook?
Sub Item_CustomPropertyChange(ByVal Name)
Const olAppointmentItem = 1
Select Case Name
Case "Email Support expires"
Set myAppt = Application.CreateItem(olAppointmentItem)
myAppt.Start = Item.UserProperties("Email Support expires")
myAppt.Subject="Email Support expires - " & Item.FullName
myAppt.AllDayEvent = 1
myAppt.ReminderSet = True
myAppt.ReminderMinutesBeforeStart = 10080
myAppt.Save
Case "Web Hosting expires"
Set myAppt = Application.CreateItem(olAppointmentItem)
myAppt.Start = Item.UserProperties("Web Hosting expires")
myAppt.Subject="Web Hosting expires - " & Item.FullName
myAppt.AllDayEvent = 1
myAppt.ReminderSet = True
myAppt.ReminderMinutesBeforeStart = 10080
myAppt.Save
End Select
End Sub