Murray Brown
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.OlItem Type.olApp ointmentIt em)
With olkAppt
.Start = dte
.Subject = strSubject
.ReminderSet = False
olkAppt.Save
End With
End With
' Clean up.
Set olkAppt = Nothing
End Sub
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.OlItem
With olkAppt
.Start = dte
.Subject = strSubject
.ReminderSet = False
olkAppt.Save
End With
End With
' Clean up.
Set olkAppt = Nothing
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER