Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
Dim objNS As NameSpace Dim objFolder As Outlook.Folder Dim objItem As Outlook.AppointmentItem Set objNS = Outlook.GetNamespace("MAPI") Set objFolder = obNS.GetDefaultFolder(olFolderCalendar) ' In here need to change to a sub folder of the default called 'Room Booking' Set objItem = Outlook.CreateItem(olAppointmentItem) With objItem ........... add item fields here
Join the community of 500,000 technology professionals and ask your questions.