on flag message event - create task

[bermudamohawk]

There seems to be lots of proposed solutions to this, however - all create a "to-do" list item
To-Do lists do not show in iphone Tasks (activeSynch)

Need a vba snippet to create new TASK on set flag event.

Article here appears to be the best descriptor, but this (again) only creates a to-do list item.

thx for any consideration.

 

[Diane Poremsky]

That macro does what you want - it creates a task when you flag a message. It will show in the to-do list (all tasks do) but it's an actual task.

this says do something when the item changes (the change is setting the flag) -
Private Sub OlItems_ItemChange(ByVal Item As Object)
If Item.IsMarkedAsTask = True Then

this tells you where to create it (default task folder) - if you wanted it in a different task folder, make the change here
Set olTask = Ns.GetDefaultFolder(olFolderTasks) .Items.Add(olTaskItem)

this creates the task -
With olTask
.Subject = Item.Subject
.Attachments.Add Item
.Body = Item.Body
.DueDate = Now + 1
.Save
.Display
End With

this removes the flag (that triggered the macro).
With Item
.ClearTaskFlag
.Categories = "Task"
.Save
End With

 

[bermudamohawk]

groundhog day.
still showing as to-do (as you said it would) - however - tasks are empty
"trade you" email subject flag set
resulting in:

Tasks remain unpopulated (all containers, if any doubt)

The behavior exhibited is default in MSOutlook 2013, so while i'm sure the code does something (as you explained) the end result is .. really nothing.
Sorry

 

[Diane Poremsky]

it looks like its not working at all - if it works, this line: .Display displays the task on screen so you'd know it is working.


Step through it using F8 and see what it is skipping.

is macro security set to low?
click in this macro and press the run button:
Public Sub Initialize_handler()
Set OlItems = Application.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderInbox).Items
End Sub

 

[bermudamohawk]

macro security = enable all macros

result of run request:

 

[Diane Poremsky]

do you have this line at the top:
Public WithEvents OlItems As Outlook.Items

and have it in thisoutlooksession?

 

[bermudamohawk]

added, and it cleared the runtime error
F8 just loops the Initialize_handler sub

 

[Diane Poremsky]

oh, that's right - it's triggered by the change event.

This is how it's supposed to work:

 

[bermudamohawk]

Really tantalizing to see it behave properly!

Added Dim's .. essentially copied screen ver batim.
Also removed Tasks from other accounts, so there is only one.

Still Groundhog Day here.

 

[Diane Poremsky]

If you copied the entire macro and put it into ThisOutlooksession and have macro security set to low, it should work just list it does in the video.

You might need to either click in the initilize macro and click Run or restart outlook though.

 

[bermudamohawk]

If you copied the entire macro and put it into ThisOutlooksession > done
and have macro security set to low > done (in Word, also - just in case)
it should work just list it does in the video. > ummm - nope

You might need to either click in the initilize macro and click Run > tried
or restart outlook though. > tried


OK, since that is a mystery as to why not .. Is it possible to create a workaround?
Copy exiting to-do into Tasks?

 

[Diane Poremsky]

I'm not aware of any workarounds.
All of the code is purple and black? No red?

There is no 'on error resume next' to skip it if there was an error, so it looks like this isn't watching the default inbox
Public Sub Initialize_handler()
Set OlItems = Application.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderInbox).Items
End Sub

Ah... that could be the problem. How many inboxes do you have an what folder do you want it to watch?

 

[bermudamohawk]

here's what I'm seeing:

I have multiple containers under Inbox (like everyone, I assume)

I have 5 archived psts, also. But I'm certain they wouldn't affect the code.

I could try killing them.

 

[Diane Poremsky]

Removing the pst files would only help if one is set as the default data file.

The macro uses the default data file's inbox. This line of code needs changed if you want to use a different folder:
Set OlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items

 

[Diane Poremsky]

BTW, as written, it only works with messages in the identified folder, not in subfolders.

 

[Michael Bauer]

Keep in mind, after every change of the code the "initalize_handler" should be called, which isn't called automatically at startup. Better name it Application_Startup

 

[Diane Poremsky]

Is there an easy way to make it watch all folders?

 

[Michael Bauer]

You'd need to move the event to a class module, loop through the entire folder hierarchy and create one object of that class for every folder. Use a collection in ThisOutlookSession to store the reference on each object of your class module. Here is a sample for the loop through all folders.

 

[bermudamohawk]

if this is of any consequence, action would only be performed on elements in default inbox - no other containers.
Perhaps that could be on someone else's wishlist

 

[Diane Poremsky]

You'd need to move the event to a class module, loop through the entire folder hierarchy and create one object of that class for every folder. Use a collection in ThisOutlookSession to store the reference on each object of your class module. Here is a sample for the loop through all folders.

I asked for easy.