Calendar appointment, type 2

Dan Ehrhart

Member
Outlook version
Outlook 2013 32 bit
Email Account
Office 365 Exchange
I use normal appointments quite a bit and want to keep them as they are. I also often create appointments on my calendar that are personal reminders to do something or check on something. I always use the same time for start and stop, mark private, change busy to free, and turn off the reminder. Is there a way to create an additional appointment type that I can utilize for these personal reminders?
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
you could create a custom form or use a macro to set the values - macro would be easier. add a button to the ribbon and click it when you want to create the personal reminder.

i thought i had a macro on my site that did this but cant find it right now. i'll look again when i get on my big computer.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
This creates an appointment for 9 am "today "

Code:
Public Sub CreateOutlookAppt()
    Dim olAppt As Outlook.AppointmentItem
    Set olAppt = CreateItem(olAppointmentItem)
          
    With olAppt
    
    'Define calendar item properties
        .Start = Date + TimeValue("9:00:00")
        .End = Date + TimeValue("10:00:00")
        .Subject = "whatever"
        .Location = "office"
        .Body = "These are notes"
        .BusyStatus = olFree
        .ReminderMinutesBeforeStart = 5
        .ReminderSet = True
        .Categories = "Personal"
        .display
       
    End With
   
  Set olAppt = Nothing
End Sub
 
Top