Atypical Recurrent Calendar Entries -TIA

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Want to set up reminders that are not on the typical recurrence pattern.
After I read in the morning, I want to be able to make an entry in calendar and have it schedule 4 review sessions for me (1 day later, 1 week later, 1 month later, 6 months later). All review times are critical to high retention of the initially read material.

Can this be coded in outlook? Isnt this feature very similar to what ppl in sales need? (adding in the calendar a first sales call to a client triggers the creation of the most effectively determined times the return calls should be made and reminders added on those dates)

Any help would be much appreciated. I searched and did not find anything to facilitate this.


Example:
I make the below calendar entry,

7am 1/5/2004
Web-Powered Databases page 50-100


These entries are made by the calendar/program/script/etc automatically or with a very few clicks,

8am 1/6/2004
Web-Powered Databases page 50-100 (day Review)
8am 1/12/2004
Web-Powered Databases page 50-100 (week Review)
8am 2/2/2004
Web-Powered Databases page 50-100 (month Review)
8am 6/7/2004
Web-Powered Databases page 50-100 (6 month Review)
 
A workaround for this is to create individual appointments but assign them
the same Category.

--
Roady [MVP]
www.sparnaaij.net
Microsoft Office and Microsoft Office related News
Also Outlook FAQ, How To's, Downloads and more...
Tip of the month:
-Create your own fully customized Toolbar
Subscribe to the newsletter to receive news and tips & tricks in your
mailbox!
www.sparnaaij.net
(I changed my reply address; remove all CAPS and _underscores_ from the
address when mailing)
 
Glad to see a problem that I solved some time ago..

You need to go round some extensive coding if you want to resolve this nicely. If you do understand VBA, here it comes. If you dont, open a VBA window in outlook (push alt+F11), paste the following code in the module window, and assign the macro "FollowUpMeetings" to a button on your outlook and/or email window

<<< Start Code>>

Sub FollowUpMeetings(

CreateMeeting 1 ' da
CreateMeering 7 ' wee
Createmeeting 30 ' mont
CreateMeeting 182 ' half yea

End Su

Sub CreateMeeting(numDays As Long

' Declaration

Dim myMail As MailIte
Dim MyMeeting As Outlook.AppointmentIte
Dim MyAttach As Attachmen
Dim counter As Lon

' initialisation

Dim objApp As Outlook.Applicatio
Set objApp = CreateObject("Outlook.Application"
counter =

' Get active email from outlook window or open windo

Select Case TypeName(objApp.ActiveWindow
Case "Explorer
Set myMail = objApp.ActiveExplorer.Selection.Item(1
Case "Inspector
Set myMail = objApp.ActiveInspector.CurrentIte
End Selec

' Create Meetin

Set MyMeeting = ThisOutlookSession.CreateItem(olAppointmentItem

' Fill details from mai

MyMeeting.Body = myMail.Bod
MyMeeting.Subject = myMail.Subjec
MyMeeting.ReminderSet = Tru
MyMeeting.ReminderMinutesBeforeStart = 1
MyMeeting.Start = Now() + numDay
MyMeeting.Duration = 1

' Copy attachements if an
' nifty (I) attachements are one (1) character wide in outlook... need to stick them at the end..
' nifty (II) Generates an error if you do NOT have a C:\temp folder... Create it prior to running !!

For Each MyAttach In myMail.Attachment
counter = counter +
MyAttach.SaveAsFile "C:\temp\" & MyAttach.DisplayNam
MyMeeting.Attachments.Add "C:\temp\" & MyAttach.DisplayName, olByValue, Len(MyMeeting.Body) + c, MyAttach.DisplayNam
Next MyAttac

' Save meetin

MyMeeting.Close olSav

' Flag mail as all actions finishe

If myMail.Sent The
myMail.FlagStatus = olFlagComplet
myMail.Close olSav
Els
myMail.Sen
End I

' clean u

Set myMail = Nothin
Set MyMeeting = Nothin
Set objApp = Nothin
End Su

<<<End Code>>

Hope this helps. If you do not understand, please post your (real) email address and I'll contact you directly

Mainstrea
(AKA The BUB - The Big Ugly Byte

----- Roady [MVP] wrote: ----

A workaround for this is to create individual appointments but assign them
the same Category

--
Roady [MVP
www.sparnaaij.ne
Microsoft Office and Microsoft Office related New
Also Outlook FAQ, How To's, Downloads and more..
Tip of the month
-Create your own fully customized Toolba
Subscribe to the newsletter to receive news and tips & tricks in you
mailbox
www.sparnaaij.ne
(I changed my reply address; remove all CAPS and _underscores_ from th
address when mailing
----
 
Glad to see a problem that I solved some time ago...

You need to go round some extensive coding if you want to resolve this nicely. If you do understand VBA, here it comes. If you dont, open a VBA window in outlook (push alt+F11), paste the following code in the module window, and assign the macro "FollowUpMeetings" to a button on your outlook and/or email window.

<<< Start Code>>>

Sub FollowUpMeetings()

CreateMeeting 1 ' day
CreateMeering 7 ' week
Createmeeting 30 ' month
CreateMeeting 182 ' half year

End Sub


Sub CreateMeeting(numDays As Long)

' Declarations
'
Dim myMail As MailItem
Dim MyMeeting As Outlook.AppointmentItem
Dim MyAttach As Attachment
Dim counter As Long

' initialisations
'
Dim objApp As Outlook.Application
Set objApp = CreateObject("Outlook.Application")
counter = 0

' Get active email from outlook window or open window
'
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set myMail = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set myMail = objApp.ActiveInspector.CurrentItem
End Select

' Create Meeting
'
Set MyMeeting = ThisOutlookSession.CreateItem(olAppointmentItem)

' Fill details from mail
'
MyMeeting.Body = myMail.Body
MyMeeting.Subject = myMail.Subject
MyMeeting.ReminderSet = True
MyMeeting.ReminderMinutesBeforeStart = 15
MyMeeting.Start = Now() + numDays
MyMeeting.Duration = 15

' Copy attachements if any
' nifty (I) attachements are one (1) character wide in outlook... need to stick them at the end...
' nifty (II) Generates an error if you do NOT have a C:\temp folder... Create it prior to running !!!
'
For Each MyAttach In myMail.Attachments
counter = counter + 1
MyAttach.SaveAsFile "C:\temp\" & MyAttach.DisplayName
MyMeeting.Attachments.Add "C:\temp\" & MyAttach.DisplayName, olByValue, Len(MyMeeting.Body) + c, MyAttach.DisplayName
Next MyAttach

' Save meeting
'
MyMeeting.Close olSave

' Flag mail as all actions finished
'
If myMail.Sent Then
myMail.FlagStatus = olFlagComplete
myMail.Close olSave
Else
myMail.Send
End If

' clean up
'
Set myMail = Nothing
Set MyMeeting = Nothing
Set objApp = Nothing
End Sub

<<<End Code>>>

Hope this helps. If you do not understand, please post your (real) email address and I'll contact you directly

Mainstream
(AKA The BUB - The Big Ugly Byte)

----- Roady [MVP] wrote: -----

A workaround for this is to create individual appointments but assign them
the same Category.

--
Roady [MVP]
www.sparnaaij.net
Microsoft Office and Microsoft Office related News
Also Outlook FAQ, How To's, Downloads and more...
Tip of the month:
-Create your own fully customized Toolbar
Subscribe to the newsletter to receive news and tips & tricks in your
mailbox!
www.sparnaaij.net
(I changed my reply address; remove all CAPS and _underscores_ from the
address when mailing)
Click to expand...


Thanks for the help. I have played with VB for the past few days and
not been able to get this to run.

My email is chall1600ATyahoo.com

Thanks for your time and help.
 
Thanks for the help. I have played with VB for the past few days and
not been able to get this to run.

My email is (e-mail address removed)

Thanks for your time and help. Remove the caps in the email before
replying.
 
Back
Top