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

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

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

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