A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Adding follow flag for me by macro (MSO2007)



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old March 21st 09, 12:05 PM posted to microsoft.public.outlook.program_vba
Jarda L.
external usenet poster
 
Posts: 2
Default Adding follow flag for me by macro (MSO2007)

I'd like to create a button which add follow up flag for me, not for
recipient (in new mail). How to do it? Manually I am able to add flag for me
by using Custom flag dialog. I use Outlook 2007.

Please help me edit undermentioned lines of macro, I couldn't find
properties for Flag for me. Macro creates flag for recipient.

Sub AddFlag()
Set objOL = CreateObject("Outlook.Application")
objOL.ActiveInspector.CurrentItem.Categories = "Wait or..."
objOL.ActiveInspector.CurrentItem.FlagStatus = olFlagMarked
objOL.ActiveInspector.CurrentItem.FlagRequest = "Wait For.."
objOL.ActiveInspector.CurrentItem.FlagDueBy = Now() + 7
objOL.ActiveInspector.CurrentItem.FlagIcon = 6

End Sub

Thanks a lot.
Jarda
  #2  
Old March 21st 09, 12:56 PM posted to microsoft.public.outlook.program_vba
Sue Mosher [MVP][_3_]
external usenet poster
 
Posts: 465
Default Adding follow flag for me by macro (MSO2007)

Take a look at the MarkAsTask method and TaskDueDate property:

Set Message = Application.ActiveInspector.CurrentItem
With Message
.MarkAsTask olMarkThisWeek
.TaskDueDate = #3/24/2009#
.TaskSubject = "Follow up with " & Message.SenderName
.ReminderSet = True
.ReminderTime = #3/18/2009 8:30:00 AM#
.Save
End With
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Jarda L." wrote in message
...
I'd like to create a button which add follow up flag for me, not for
recipient (in new mail). How to do it? Manually I am able to add flag for
me
by using Custom flag dialog. I use Outlook 2007.

Please help me edit undermentioned lines of macro, I couldn't find
properties for Flag for me. Macro creates flag for recipient.

Sub AddFlag()
Set objOL = CreateObject("Outlook.Application")
objOL.ActiveInspector.CurrentItem.Categories = "Wait or..."
objOL.ActiveInspector.CurrentItem.FlagStatus = olFlagMarked
objOL.ActiveInspector.CurrentItem.FlagRequest = "Wait For.."
objOL.ActiveInspector.CurrentItem.FlagDueBy = Now() + 7
objOL.ActiveInspector.CurrentItem.FlagIcon = 6

End Sub

Thanks a lot.
Jarda



  #3  
Old March 21st 09, 02:27 PM posted to microsoft.public.outlook.program_vba
Jarda L.
external usenet poster
 
Posts: 2
Default Adding follow flag for me by macro (MSO2007)

Thank you for suggestion. Macro works well with sent or received items. But
not with new message or concepts what is my goal.

Run-time error '-2147467263 (80004001) -
Property .MarkAsTask is suported on sent or received items.

Jarda L.

"Sue Mosher [MVP]" wrote:

Take a look at the MarkAsTask method and TaskDueDate property:

Set Message = Application.ActiveInspector.CurrentItem
With Message
.MarkAsTask olMarkThisWeek
.TaskDueDate = #3/24/2009#
.TaskSubject = "Follow up with " & Message.SenderName
.ReminderSet = True
.ReminderTime = #3/18/2009 8:30:00 AM#
.Save
End With
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Jarda L." wrote in message
...
I'd like to create a button which add follow up flag for me, not for
recipient (in new mail). How to do it? Manually I am able to add flag for
me
by using Custom flag dialog. I use Outlook 2007.

Please help me edit undermentioned lines of macro, I couldn't find
properties for Flag for me. Macro creates flag for recipient.

Sub AddFlag()
Set objOL = CreateObject("Outlook.Application")
objOL.ActiveInspector.CurrentItem.Categories = "Wait or..."
objOL.ActiveInspector.CurrentItem.FlagStatus = olFlagMarked
objOL.ActiveInspector.CurrentItem.FlagRequest = "Wait For.."
objOL.ActiveInspector.CurrentItem.FlagDueBy = Now() + 7
objOL.ActiveInspector.CurrentItem.FlagIcon = 6

End Sub

Thanks a lot.
Jarda




  #4  
Old March 23rd 09, 04:01 PM posted to microsoft.public.outlook.program_vba
Sue Mosher [MVP][_3_]
external usenet poster
 
Posts: 465
Default Adding follow flag for me by macro (MSO2007)

Sorry, I missed the part about this being a new message. I think what you'll
have to do is monitor the Sent Items folder for new items using the
Folder.Items.ItemAdd event and use the method and properties I suggested on
the sent item. I think Outlook itself keeps the flag information in memory
for draft items and doesn't write the information to the item until after
it's delivered to the outbound server.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Jarda L." wrote in message
...
Thank you for suggestion. Macro works well with sent or received items.
But
not with new message or concepts what is my goal.

Run-time error '-2147467263 (80004001) -
Property .MarkAsTask is suported on sent or received items.

Jarda L.

"Sue Mosher [MVP]" wrote:

Take a look at the MarkAsTask method and TaskDueDate property:

Set Message = Application.ActiveInspector.CurrentItem
With Message
.MarkAsTask olMarkThisWeek
.TaskDueDate = #3/24/2009#
.TaskSubject = "Follow up with " & Message.SenderName
.ReminderSet = True
.ReminderTime = #3/18/2009 8:30:00 AM#
.Save
End With

"Jarda L." wrote in message
...
I'd like to create a button which add follow up flag for me, not for
recipient (in new mail). How to do it? Manually I am able to add flag
for
me
by using Custom flag dialog. I use Outlook 2007.

Please help me edit undermentioned lines of macro, I couldn't find
properties for Flag for me. Macro creates flag for recipient.

Sub AddFlag()
Set objOL = CreateObject("Outlook.Application")
objOL.ActiveInspector.CurrentItem.Categories = "Wait or..."
objOL.ActiveInspector.CurrentItem.FlagStatus = olFlagMarked
objOL.ActiveInspector.CurrentItem.FlagRequest = "Wait For.."
objOL.ActiveInspector.CurrentItem.FlagDueBy = Now() + 7
objOL.ActiveInspector.CurrentItem.FlagIcon = 6

End Sub

Thanks a lot.
Jarda






 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
changing outlook 2007 default behaviour (follow up - flag for me,menu bars in email creation, adding appointment to a diff calendar fromappointment window) [email protected] Outlook - Installation 3 June 14th 08 09:03 AM
Flag for Follow Up reiner Outlook - Using Contacts 2 March 24th 07 06:39 AM
Flag for Follow up DataSpeak Support Outlook - Installation 1 October 13th 06 02:33 PM
Clear Flag for follow up items macro dim4x4 Outlook and VBA 4 May 5th 06 02:48 PM
Follow up Flag JCO Outlook - General Queries 11 March 23rd 06 02:33 PM


All times are GMT +1. The time now is 03:51 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.