RE: Event of Changing the Task Status

Status
Not open for further replies.
Q

Qk11bms

This works when the task is opened in a window (Inspector).

How is it possible to get an event when the task status is changed with

"in-cell edits" enabled? There you don't have the inspector opened.

Thanks!

"Alan Moseley" wrote:


> Put the following code into your ThisOutlookSession code window. It will
> work when the task is opened and then completed:-

> Dim WithEvents myInspectors As Inspectors
> Dim WithEvents myTaskItem As TaskItem
> Private Sub Application_Startup()
> Set myInspectors = Outlook.Inspectors
> End Sub
> Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
> If TypeName(Inspector.CurrentItem) = "TaskItem" Then
> Set myTaskItem = Inspector.CurrentItem
> End If
> End Sub
> Private Sub myTaskItem_Close(Cancel As Boolean)
> Set myTaskItem = Nothing
> End Sub
> Private Sub myTaskItem_PropertyChange(ByVal Name As String)
> If Name = "Status" Then
> If myTaskItem.Complete = True Then
> MsgBox "Task " & myTaskItem.Subject & " now completed"
> End If
> End If
> End Sub

> Obviously replace the messagebox with your required code.
> > Alan Moseley IT Consultancy
> http://www.amitc.co.uk

> If I have solved your problem, please click Yes below. Thanks.

> "Mark" wrote:
>
> > I would like to be able to execute some code when the user changes the status
> > of a task from "Not Started" to "Complete"
> > Any help would be appreciated
> > Mark
 
Try the following within your ThisOutlookSession code window:-

Dim WithEvents myTasks As Items

Private Sub Application_Startup()

Set myTasks =

Outlook.GetNamespace("MAPI").GetDefaultFolder.olFolderTasks.Items

End Sub

Private Sub myTasks_ItemChange(ByVal Item As Object)

If Item.Complete = True Then

MsgBox "Task Complete"

End If

End Sub

Alan Moseley IT Consultancy

http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.

"BMunk" wrote:


> This works when the task is opened in a window (Inspector).
> How is it possible to get an event when the task status is changed with
> "in-cell edits" enabled? There you don't have the inspector opened.

> Thanks!

> "Alan Moseley" wrote:
>
> > Put the following code into your ThisOutlookSession code window. It will
> > work when the task is opened and then completed:-
> > Dim WithEvents myInspectors As Inspectors
> > Dim WithEvents myTaskItem As TaskItem
> > Private Sub Application_Startup()
> > Set myInspectors = Outlook.Inspectors
> > End Sub
> > Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
> > If TypeName(Inspector.CurrentItem) = "TaskItem" Then
> > Set myTaskItem = Inspector.CurrentItem
> > End If
> > End Sub
> > Private Sub myTaskItem_Close(Cancel As Boolean)
> > Set myTaskItem = Nothing
> > End Sub
> > Private Sub myTaskItem_PropertyChange(ByVal Name As String)
> > If Name = "Status" Then
> > If myTaskItem.Complete = True Then
> > MsgBox "Task " & myTaskItem.Subject & " now completed"
> > End If
> > End If
> > End Sub
> > Obviously replace the messagebox with your required code.
> > > > Alan Moseley IT Consultancy
> > http://www.amitc.co.uk
> > If I have solved your problem, please click Yes below. Thanks.
> > "Mark" wrote:
> >
> > > I would like to be able to execute some code when the user changes the status
> > > of a task from "Not Started" to "Complete"
> > > Any help would be appreciated
> > > > Mark
 
THANKS!

"Alan Moseley" wrote:


> Try the following within your ThisOutlookSession code window:-

> Dim WithEvents myTasks As Items
> Private Sub Application_Startup()
> Set myTasks =
> Outlook.GetNamespace("MAPI").GetDefaultFolder.olFolderTasks.Items
> End Sub
> Private Sub myTasks_ItemChange(ByVal Item As Object)
> If Item.Complete = True Then
> MsgBox "Task Complete"
> End If
> End Sub

> > Alan Moseley IT Consultancy
> http://www.amitc.co.uk

> If I have solved your problem, please click Yes below. Thanks.

> "BMunk" wrote:
>
> > This works when the task is opened in a window (Inspector).
> > How is it possible to get an event when the task status is changed with
> > "in-cell edits" enabled? There you don't have the inspector opened.
> > Thanks!
> > "Alan Moseley" wrote:
> >
> > > Put the following code into your ThisOutlookSession code window. It will
> > > work when the task is opened and then completed:-
> > > > Dim WithEvents myInspectors As Inspectors
> > > Dim WithEvents myTaskItem As TaskItem
> > > Private Sub Application_Startup()
> > > Set myInspectors = Outlook.Inspectors
> > > End Sub
> > > Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
> > > If TypeName(Inspector.CurrentItem) = "TaskItem" Then
> > > Set myTaskItem = Inspector.CurrentItem
> > > End If
> > > End Sub
> > > Private Sub myTaskItem_Close(Cancel As Boolean)
> > > Set myTaskItem = Nothing
> > > End Sub
> > > Private Sub myTaskItem_PropertyChange(ByVal Name As String)
> > > If Name = "Status" Then
> > > If myTaskItem.Complete = True Then
> > > MsgBox "Task " & myTaskItem.Subject & " now completed"
> > > End If
> > > End If
> > > End Sub
> > > > Obviously replace the messagebox with your required code.
> > > > > > Alan Moseley IT Consultancy
> > > http://www.amitc.co.uk
> > > > If I have solved your problem, please click Yes below. Thanks.
> > > > > "Mark" wrote:
> > > > > I would like to be able to execute some code when the user changes the status
> > > > of a task from "Not Started" to "Complete"
> > > > Any help would be appreciated
> > > > > > Mark
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J Calendar events created on iPhone automatically changing default alert from 'None' to 'Time of Event' Using Outlook.com accounts in Outlook 0
H Changing Organizer of event (for single to total calendar move; long way ) Exchange Server Administration 4
T How to get an EVENT COLOR option in Outlook 2021 ? Using Outlook 0
J Cannot edit a calendar event received as an invitation Using Outlook 2
T Event Error on non existent Event. Using Outlook 2
J Event/Meeting in Outlook Does Not Align with SharePoint Calendar Using Outlook 5
P Calendar Day View only shows 1 all day event Using Outlook 0
G Event when creating task from mailitem Outlook VBA and Custom Forms 2
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
J Outlook 2010 Outlook/Win7 Client logging Event ID 36887 Using Outlook 0
K Recurring all day annual event Using Outlook 3
P Restore an individual all-day recurring event Using Outlook 2
K VBA BeforeItemMove event create rule to always move to its folder. Outlook VBA and Custom Forms 4
K Working with Explorer.Close event Outlook VBA and Custom Forms 3
F Outlook 2016 call to Stop Timer Event Outlook VBA and Custom Forms 4
D Event ID issues Exchange Server Administration 2
J ItemChange event Outlook VBA and Custom Forms 11
T Outlook 2016 Calendar multiday event display Using Outlook 4
oliv- Treat once an email with the ItemAdd event in a shared mailbox Outlook VBA and Custom Forms 2
M Automatically create event in calendar when task is created Outlook VBA and Custom Forms 1
A UID field in iCal files - unique per-event or per-user or both? Using Outlook 2
D help with Item/Inspector close event Outlook VBA and Custom Forms 1
B on flag message event - create task Outlook VBA and Custom Forms 22
Diane Poremsky Change the All Day Event Default Free/Busy to "Busy" Using Outlook 3
C Calendar - Centering an event in Outlook? Using Outlook 1
J Outlook calendar...How to add an event or appointment without a border around it? Using Outlook 9
J Create Calendar Alert Event form Mail Subject line? Using Outlook 4
S Item Add Event fires intermittently Outlook VBA and Custom Forms 3
R Why is a meeting organizer me and not the creator of the event? Using Outlook 1
V Calendar event acting odd Using Outlook 7
G Capture "forward event" ? Outlook VBA and Custom Forms 11
P Change the Outlook.com "from" address for calendar event invites Using Outlook 9
20 Ton Squirrel Detect Application_Startup event completion Outlook VBA and Custom Forms 1
L Outlook 2007 All Day Event Using Outlook 27
I Event listener for deleted items Using Outlook 6
M Save Attachments Event? Using Outlook 0
Commodore Calendar Folder property is missing - Event 27 Using Outlook 11
G Quit event code - 2007 Using Outlook 3
J Capturing forward event when multiple items are selected Using Outlook 0
P Trying to get 'Calendar Name' to appear like 'Subject' and 'Location' in event Using Outlook 0
G What event happens when you open 2 copies of your inbox? Using Outlook 5
D Adding a participant automatically to a calendar event Using Outlook 1
N Combobox in outlook add ons toolbar not firing event on main window resized Using Outlook 3
D Extracting Location info from All Day Event in mailboxes into webpage Exchange Server Administration 3
H Conflicts with other event in calendar ( outlook 2007 & 2010) Using Outlook 0
B Restoring Deleted Recurring Event AND Notes Using Outlook 8
Q Looking for Outlook 2010 Close Event Id Exchange Server Administration 1
S Outlook Recurring event Using Outlook 1
D Task and Event View in Outlook 2010? Using Outlook 3
G item_send event Outlook VBA and Custom Forms 4

Similar threads

Back
Top