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
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.