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