View Single Post
  #8  
Old March 16th 06, 08:34 PM posted to microsoft.public.outlook.calendaring
WildCide
external usenet poster
 
Posts: 6
Default Can I automatically make appointments into tasks also?

Cool, sounds like you know what you're talking about. A bit over my head, but
I'll see what i can do with it. I'll post again after I mess around with it a
little. Thanks

"Duncan McC" wrote:

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