Adding follow flag for me by macro (MSO2007)

Status
Not open for further replies.
S

SmFyZGEgTC4

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
 
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

"Jarda L." <JardaL> wrote in message

news:7F80F1C3-A1C4-4383-8125-FF371E0002A2@microsoft.com...
> 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
 
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
> > >

> "Jarda L." <JardaL> wrote in message
> news:7F80F1C3-A1C4-4383-8125-FF371E0002A2@microsoft.com...
> > 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


>
 
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

"Jarda L." <JardaL> wrote in message

news:38EAA83A-DFA7-4C61-BE35-7AC4E9464AC7@microsoft.com...
> 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." <JardaL> wrote in message
> > news:7F80F1C3-A1C4-4383-8125-FF371E0002A2@microsoft.com...
> > > 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

>

>
>>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
N Adding a note to a e-mail which has been marked as follow up Using Outlook 1
M adding marked emails under follow-up Using Outlook 2
S Adding Custom Forms Outlook VBA and Custom Forms 4
G Adding a contact to a specific folder Using Outlook 0
S Adding a recipient's column to Sent folder in Outlook 2010 Outlook VBA and Custom Forms 1
R Adding Userform Dropdown List items from names of subfolders on network drive Outlook VBA and Custom Forms 10
G Stop Outlook 365 adding meetings to calendar Using Outlook 1
G Removing old emails when adding accounts Using Outlook 3
D Contact Group - Adding Bulk Addresses Using Outlook 2
C Outlook 2007 Removing then adding account restores junk email processing Using Outlook 0
J O365 - Adding Shared Google Calendar ICS link issue in O365 Using Outlook 0
B Adding signature to bottom of VBA reply email Outlook VBA and Custom Forms 1
S User Defined Fields adding new value (2) Using Outlook 0
M Changing the preferred order for "Put this entry in" list for adding new contacts to the Address Book Using Outlook 1
M Adding Subject to this Link-Saving VBA Outlook VBA and Custom Forms 5
E Project Management - Adding Folders for Different Folder Types Using Outlook.com accounts in Outlook 0
D Adding Enterprise Exchange Email Account to Outlook Prevents Sending via Outlook.com Account Using Outlook.com accounts in Outlook 10
S Adding new Exchange (2016) rule very slow down Microsoft Outlook Exchange Server Administration 0
Z Outlook Custom Form: Adding Dropdown(Project Code) at the end of subject Outlook VBA and Custom Forms 0
Z Adding dropdown list using custom form Outlook VBA and Custom Forms 7
M Adding Macro to populate "to" "subject" "body" not deleting email string below. Outlook VBA and Custom Forms 5
E Unable to open Outlook 2010 after adding new email account Using Outlook 4
O Adding a new account - "CompanyL (none)" line is added Using Outlook 5
broadbander Needing help with reply/reply all while keeping attachments and adding a new CC recipient. Outlook VBA and Custom Forms 5
M adding corresponding contact form data on a mass scale Using Outlook 5
A VB to "reply all" email items stored in a folder of outlook with adding a new message Outlook VBA and Custom Forms 0
K adding more rules to 'different domains check' macro Outlook VBA and Custom Forms 2
P MS OUTLOOK 2013 - Adding Sender on the CC line Using Outlook 5
R User Defined Fields adding new value Using Outlook 3
W Adding A Macro To Message Ribbon Outlook VBA and Custom Forms 2
I Collecting mail address from GAB and adding to Outlook Task Using Outlook 2
A Outlook 2016 - adding outlook.com account creates a new/strange address Using Outlook.com accounts in Outlook 18
F Adding textbox filter to listbox? Outlook VBA and Custom Forms 2
N Recurring invite sent w/distribution list adding/removing attendees Using Outlook 0
J Issues with adding iCloud to Outlook Using Outlook 1
G Adding a contact to Outlook with a custom form using Access VBA Outlook VBA and Custom Forms 1
C Macro to send email after changing from address and adding signature Outlook VBA and Custom Forms 1
J Adding Reply & Delete to main toolbar? Using Outlook 0
T Outlook 2007 adding categories Using Outlook 15
N Adding Appointment Item in Outlook to Shared Calendar Folder Outlook VBA and Custom Forms 7
Diane Poremsky Adding Emojis to Outlook's AutoCorrect Using Outlook 0
T Adding "Mark As Complete" btton to Task Remindet Pop-Up Using Outlook 3
O Saving Attachments to folder on disk and adding Initials to end of file name Outlook VBA and Custom Forms 9
Ascar_CT Adding contacts on Android phone and then syncing them to Outlook Using Outlook.com accounts in Outlook 4
A Adding a 2010 sharepoint contact list to outlook 2010 address book Using Outlook 1
M Adding fields to Task in Outlook Home and Business 2010 Outlook VBA and Custom Forms 7
S Using Send on Behalf is adding extra data in from line Using Outlook 1
Lucylou Outlook 2013 Adding Outlook.com breaks profile, "Outlook not working" messag Using Outlook.com accounts in Outlook 1
C Adding Categories when Composing Email Using Outlook 1
stephenjones Adding a business account to Outlook Using Outlook 1

Similar threads

Back
Top