|
| 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. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
March 21st 09, 12:05 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
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 
|
| Ads |
|
#2
March 21st 09, 12:56 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
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
March 21st 09, 02:27 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
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
March 23rd 09, 04:01 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
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 |
| Display Modes | |
|
|
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 |
Linear Mode
