Unflag Inbox and Flag Inbox with Orange Category After Item is send

[alvinoo]

Sub ReplyMSG() Dim olItem As Outlook.MailItem Dim olReply As MailItem ' Reply For Each olItem In Application.ActiveExplorer.Selection Set olReply = olItem.ReplyAll CopyAttachments olItem, olReply olReply.HTMLBody = "Hi,please follow up" olReply.Display 'olReply.Send Next olItem End Sub

Hi there,

How do I flag the send item with a category and items with a flag,
and unflag the inbox item.
IF and only IF the item is sent?

 

[Diane Poremsky]

and items with a flag,
and unflag the inbox item.
IF and only IF the item is sent?

Do you want to flag the sent item or the inbox items with a flag?


This will flag the selected item,. add a category and adds the quoted message, preserving the HTML format to the outgoing message.

Sub ReplyMSG()
Dim olItem As Outlook.MailItem
Dim olReply As MailItem ' Reply
For Each olItem In Application.ActiveExplorer.Selection

With olItem
' due this week flag
    .MarkAsTask olMarkThisWeek
' sets a specific due date
    .TaskDueDate = Now + 3
    .FlagRequest = "Call " & .SenderName
    .ReminderSet = True
    .ReminderTime = Now + 2
    .Save
End With


Set olReply = olItem.ReplyAll
CopyAttachments olItem, olReply

With olReply
.Categories = "Follow up"
.HTMLBody = "Hi,please follow up" & vbCrLf & olReply.HTMLBody
.Display
'.Send
End With
Next olItem
End Sub

 

[alvinoo]

Hi there,

I want to flag the sent item.

So i just change the code to the following right?

With olReply
' due this week flag
.MarkAsTask olMarkThisWeek
' sets a specific due date
.TaskDueDate = Now + 3
.FlagRequest = "Call " & .SenderName
.ReminderSet = True
.ReminderTime = Now + 2
.Save
End With

 

[Diane Poremsky]

Yeah, adjust the values as needed. Depending on your configuration, it may set a flag in the recipients mailbox,. to avoid that, you need to use a macro that watches the sent folder and flags messages in that category.