vba - Create Outlook appointment to specific Calendar from Excel Spreadsheet -


I am trying to create a macro which creates three outlook appointments for a specific (shared) calendar. Incidentally, always full- Event events will occur at the end, in the end, I want to be able to associate the macro with a button so that when the button is pressed, the dates for the current row will be added to the calendar. All three dates will be in the same line on the spreadsheet.

Even so far away from me (I know that this is not too much) Please tell me what I want to add. I am still new away to VBA code below successfully creates appointment but for some reason the loop is not working. The only event that has been created is the last date. Set myOutlook = CreateObject ("Outlook.Application") set myApt = myOutlook.createitem (1) I for dim integer as I = 3 to 5 myApt.Subject = Room (ActiveCell.Row, 1). Value myApt.Start = Cells (ActiveCell.Row, i). Value myApt.Save Next I End Sub

No problem, I resolved this problem Appt still goes to the default calendar, but it's really better. (ActiveCell.Row, 3) and "Make Up Outlook appointments for topic #" about "Make Up Alarm Warning = MsgBox" (& amp; If the alert = vbCancel set sub-set myOutlook = CreateObject ("Outlook.Application") set ID = cells (ActiveCell.Row, 3) I am dim as the integer: "correct that is?", VbOKCancel For 9 I = 7 myApt = myOutlook.createitem (1) myApt.Subject = "Subject #" & amp; Id myApt.Start = cells (ActiveCell.Row, i) .Value myApt.Save Next i

End Sub

If you want a shared calendar, open a shared calendar by using Application.Session.GetSharedDefaultFolder to create a recipient object using Application.CreateRecipient, using MAPIFolder.Items.Add Create an appointment


Comments

Popular posts from this blog

apache - 504 Gateway Time-out The server didn't respond in time. How to fix it? -

c# - .net WebSocket: CloseOutputAsync vs CloseAsync -

c++ - How to properly scale qgroupbox title with stylesheet for high resolution display? -