Thread: Can I automatically make appointments into tasks also?
View Single Post
  #7  
Old March 16th 06, 08:32 AM posted to microsoft.public.outlook.calendaring
Duncan McC
external usenet poster
  
Posts: 56
Default Can I automatically make appointments into tasks also?
In article ,
says...
I want to have my appointments automatically become a task when I create
them. What I'd really like is to have appointments that contain certain words
("School" or "Call") be saved as both a task and an appointment. I'm
constantly having to drag and drop right now, I'd really like to see if there
is a better way. Thank you.

You could use a wee macro to do this for you - the following macro will
turn the appointment you are on (saved) into a Task...

Sub CreateTaskFromAppointment()
Dim objCurrentItem As Outlook.AppointmentItem
Dim objNewTaskItem As Outlook.TaskItem

Set objCurrentItem = Application.ActiveInspector.CurrentItem
Set objNewTaskItem = Outlook.CreateItem(olTaskItem)

objNewTaskItem.Subject = objCurrentItem.Subject
' set more properties...

objNewTaskItem.Save

Set objCurrentItem = Nothing
Set objNewTaskItem = Nothing

End Sub

--
Duncan
Ads