none
custom form causing outlook 2013 to crash RRS feed

  • Question

  • Hi

    I have a custom contact form I have been using for years without a problem (through outlook 2003, 2007, 2010 and 2013) - 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   

    All the code in the form is above, nothing missed out etc

    If I remove the & item.fullname bit it then works without crashing but doesn't then obviously add the contact name it which is the important bit for me

    On another forum other users have tested my form and it works fine on outlook 2010 as it did for me, so no problem with form or coding - also worked fine on 2013 until recently

    Can supply form if anyone wants to try it for me - can't find way to attach it to forum post unfortunately


    Darren Rose

    Tuesday, October 15, 2013 12:00 PM

All replies