Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
Dim OLApp As Outlook.Application Dim OLNameSpace As Outlook.Namespace Dim OLRecipient As Outlook.Recipient Dim OLAppt As Outlook.AppointmentItem Set OLApp = New Outlook.Application Set OLNameSpace = OLApp.GetNamespace("MAPI") OLNameSpace.Logoff OLNameSpace.Logon "Logon Name", "Password", False, True Set OLRecipient = OLNameSpace.CreateRecipient("Art@Bell.ca") Set OLAppt = OLNameSpace.GetSharedDefaultFolder(OLRecipient, olFolderCalendar).Items.Add OLAppt.Location = "Location" OLAppt.Subject = "Subject" OLAppt.Body = "Testing for calendar add" OLAppt.Start = CDate("12/31/00 01:00 AM") OLAppt.End = CDate("12/31/00 01:01 AM") OLAppt.save Set OLAppt = Nothing OLNameSpace.Logoff Set OLApp = Nothing Set OLNameSpace = Nothing Set OLRecipient = Nothing
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.