I've spent some time looking around the forums and haven't found what I'm looking for. Figured I'd post here to see if anyone has some insight.
I want to get out of the "Email = Work" habit and effectively schedule my time each day/week to do email. What i'd like to do is have a script that runs once a day (Outlook open?) that will look out a week and schedule 30 minutes on that day for email.
Pseudo code
I've pretty well versed with Excel VBA but a noob at Outlook VBA. The goal is that every day it looks out a week and goes ahead and blocks 30 minutes (or an hour...) for that day if there is time.
- Matt
"If I must boast, I will boast of the things that show my weakness
I want to get out of the "Email = Work" habit and effectively schedule my time each day/week to do email. What i'd like to do is have a script that runs once a day (Outlook open?) that will look out a week and schedule 30 minutes on that day for email.
Pseudo code
Code:
Public Sub ScheduleEmail()
If NotRunYet = False Then
If Today(+7) != Holiday Then
For Each 30MinuteSlot
If 30MinuteSlot == Free && 30MinuteSlot > 8am PST && 30MinuteSlot < 5pm PST Then
AvailableSlots += 30MinuteSlot
End If
Next
End If
If AvailableSlots != 0 Then
Rnd = Rand(1,AvailableSlots.Count)
Appointment.Schedule(AvailableSlots(Rnd))
End If
End If
NotRunYet = True
End Sub
I've pretty well versed with Excel VBA but a noob at Outlook VBA. The goal is that every day it looks out a week and goes ahead and blocks 30 minutes (or an hour...) for that day if there is time.
- Matt
"If I must boast, I will boast of the things that show my weakness