We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
'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.