Link to home
Create AccountLog in
Avatar of Murray Brown
Murray BrownFlag for United Kingdom of Great Britain and Northern Ireland

asked on

Excel VBA - Creating calendar item with Description and reminder

Hi. How do I update the following code so that I can include a description and set a reminder to an hour before

Sub CreateCalendarItem(olkApp As Outlook.Application, _
            strSubject As String, strDate As String, _
            strTime As String)
   Dim olkAppt As Outlook.AppointmentItem
   Dim dte As Date
   
   ' Must add Outlook to references for this to work
   dte = CDate(strDate & " " & strTime)
   
   With olkApp
      Set olkAppt = .CreateItem(Outlook.OlItemType.olAppointmentItem)
      With olkAppt
         .Start = dte
         .Subject = strSubject
         .ReminderSet = False
         olkAppt.Save
      End With
   End With
   
   ' Clean up.
   Set olkAppt = Nothing
End Sub
ASKER CERTIFIED SOLUTION
Avatar of zorvek (Kevin Jones)
zorvek (Kevin Jones)
Flag of United States of America image

Link to home
membership
Create an account to see this answer
Signing up is free. No credit card required.
Create Account
Avatar of Murray Brown

ASKER

thanks