Set follow up flag on message in my sent box
 

This code sets a follow up flag to message when I send the mail to
specific receiver, it works fine.
But I want to change it so it only set follow up flag on message in my
sent box, not on the email sent to the receiver. Is it possible?

***************
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
' Asks user if they want to set a follow up flag to sent message with
specific receiver
Dim intRes As Integer
Dim strMsg As String
If (Item.To = "Marcus" Or Item.To = "Anna") Then
strMsg = "Do you set a 'red flag/Due 7 days/Follow up' to this
message in Sent Items?"
intRes = MsgBox(strMsg, vbYesNoCancel + vbDefaultButton1, "Set
flag")
Select Case intRes
Case vbNo
'Do nothing
Case vbCancel
Cancel = True
Case vbYes
Item.FlagStatus = olFlagMarked
Item.FlagDueBy = Now + 7
Item.FlagRequest = "Follow up"
End Select
End If
End Sub
***************

Set follow up flag on message in my sent box
 

Trap the ItemAdd event for the Sent Items folder and if the user answered
Yes and the subject matches do it in the ItemAdd event handler.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


wrote in message
oups.com...
This code sets a follow up flag to message when I send the mail to
specific receiver, it works fine.
But I want to change it so it only set follow up flag on message in my
sent box, not on the email sent to the receiver. Is it possible?

***************
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
' Asks user if they want to set a follow up flag to sent message with
specific receiver
Dim intRes As Integer
Dim strMsg As String
If (Item.To = "Marcus" Or Item.To = "Anna") Then
strMsg = "Do you set a 'red flag/Due 7 days/Follow up' to this
message in Sent Items?"
intRes = MsgBox(strMsg, vbYesNoCancel + vbDefaultButton1, "Set
flag")
Select Case intRes
Case vbNo
'Do nothing
Case vbCancel
Cancel = True
Case vbYes
Item.FlagStatus = olFlagMarked
Item.FlagDueBy = Now + 7
Item.FlagRequest = "Follow up"
End Select
End If
End Sub
***************

Set follow up flag on message in my sent box
 

Thanks, after a while I managed to get it to work...

Another question, is it possible to trap it on domain?
If (Item.To = "