Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
'Create an appointment in the Outlook Calendar - THIS CODE PUTS IT IN THE DEFAULT CALENDAR Dim objOutlook As Outlook.Application Dim objAppt As Outlook.AppointmentItem Set objOutlook = CreateObject("Outlook.Application") '''Set objAppt = objOutlook.CreateItem(olAppointmentItem) Set objFolder = OpenMAPIFolder("Personal Folders as of 7-25-08\Calendar\DSP Class Schedule") Set objAppt = objFolder.Items.Add With objAppt .Start = Me!Datehearing & " " & Me!Timehearing .Duration = 30 .Subject = Me!ClientContactID.Column(4) & " foreclosure hearing." .ReminderSet = False .Save .Close (olSave) End With Set objAppt = Nothing 'Release the AppointmentItem object variable Set objOutlook = Nothing 'Release the Outlook object variable
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.