Learn from Unigma and CloudBerry industry veterans which providers are best for certain use cases and how to lower cloud costs, how to grow your Managed Services practice in IaaS clouds, and how to utilize public cloud for Disaster Recovery
Sub ScheduleAppts() Dim ol As New Outlook.Application Dim ns As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Dim appt As Outlook.AppointmentItem Dim myRecipient As Outlook.Recipient NumberofRecipients = Range("L3").Value For i = 2 To NumberofRecipients test = Environ("username") Set ns = ol.GetNamespace("MAPI") Set ol = CreateObject("Outlook.Application") Set ns = ol.GetNamespace("MAPI") Set myRecipient = ns.CreateRecipient(test) myRecipient.Resolve Set olFolder = ns.GetSharedDefaultFolder(myRecipient, olFolderCalendar) Set appt = olFolder.Items.Add iDate = Range("A" & i & "").Value oDate = Range("B" & i & "").Value + 1 With appt .Start = iDate .End = oDate .Subject = Range("C" & i & "").Value .BusyStatus = olBusy .AllDayEvent = True .ReminderMinutesBeforeStart = 120 .ReminderSet = True .Save End With Set ol = Nothing Set ns = Nothing Set appt = Nothing Next i End Sub
|After updating data my Excel graphs are showing too many dates||8||32|
|Excel Conditional Formatting in a Macro||4||26|
|Excel 2016 formulas||5||30|
|Subtotal clarification and between two sheets comparison||9||16|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!