Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim objOutlook As Outlook.Application objOutlook = New Outlook.Application() Dim objNS As Outlook.NameSpace = objOutlook.Session '---------Write to Shared calendar----------------- Dim objFolder As Outlook.MAPIFolder = objNS.Folders.Item("firstname.lastname@example.org") objFolder = objFolder.Folders.Item("Calendar") '=========Add appointment to calendar================= Dim objApp As Outlook.AppointmentItem objApp = CType(objFolder.Items.Item(Outlook.OlItemType.olAppointmentItem), Outlook.AppointmentItem) With objApp .Subject = calSubject '.Location = "Main Office" .Body = (calBody) .Start = CDate(calDateStart & " 09:00") ' Added a reminder .ReminderMinutesBeforeStart = 1 .ReminderSet = True ' Added duration '.Duration = 120 ' Add logged in Windows user .RequiredAttendees = Environment.UserName ' Save first .Save() ' Send to logged in Windows user .Send() End With
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.