PDA

View Full Version : [SOLVED] Create outlook appointementes only on "check" rows



gotid
01-30-2018, 04:04 PM
Hello,

I would like to create a workbook to manage my appointements on Outlook.
i´ve already managed to use a code to do most of the work.
Now i´d like to use the macro only on the rows that doesnt have an "x" on the Check column.

Na extra would be to transport the appointements to the other sheet with the week agenda. is it possible?

Thanks!
21488

mancubus
01-31-2018, 12:30 AM
try


i = 3
Do Until Trim(Cells(i, 1).Value) = ""
If Cells(i, 10).Value = "x" Then
Set olAppt = CalFolder.Items.Add(olAppointmentItem)
With olAppt
'Define calendar item properties
.Start = Cells(i, 5) + Cells(i, 6) '+ TimeValue("9:00:00")
.End = Cells(i, 7) + Cells(i, 8) '+TimeValue("10:00:00")
.Subject = Cells(i, 1)
.Location = Cells(i, 2)
.Body = Cells(i, 3)
.BusyStatus = olBusy
.ReminderMinutesBeforeStart = Cells(i, 9)
.ReminderSet = True
.Categories = Cells(i, 4)
.Save
' For meetings or Group Calendars
' .Send
End With
End If
i = i + 1
Loop