Help: set flag for sent mail to check if received an answer

[lizoutlook]

Hi, I could really use some help here!
I have never used VBA - but I sent a large number of emails every day and would need a way to quickly check which ones have received an answer.

It would be very similar to this post, but I am struggling to find out how to modify the script.

How to set a flag to follow up using VBA

Use VBA to set a custom flag for follow up text and as well as custom reminder times and start or due dates.

www.slipstick.com

Any help would be much appreciated!

Thanks a lot!

 

[Diane Poremsky]

You'd want to use Flag messages after sending macro on that page - either click Yes or no for each message or flag everything you send.

This one can check for follow flags and remove them when a message arrives. It will need tweaked to work for your scenario as it looks for matches in the inbox.

Receive a Reminder When a Message Doesn't Arrive?

Use a run a script rule to set reminders to alert you if a new message (such as routine server alerts) doesn't arrive within a specified time.

www.slipstick.com

 

[Diane Poremsky]

Did not test so it might be full of errors... this should find flagged sent item and unflag when the recipient replies.

Private objNS As Outlook.NameSpace
Private WithEvents objNewMailItems As Outlook.Items
Private objInbox As Outlook.MAPIFolder
Private objSent  As Outlook.MAPIFolder

Private Sub Application_Startup()
Dim objOwner As Outlook.Recipient
Set objNS = Application.GetNamespace("MAPI")

Set objInbox = Session.GetDefaultFolder(olFolderInbox)
Set objSent = Session.GetDefaultFolder(olFolderSentMail)

Set objNewMailItems = objInbox.Items
End Sub

Sub objNewMailItems_ItemAdd(ByVal Item As Object)

Dim intCount As Integer
Dim objVariant As Variant
  

' look for existing messages and remove the flag and reminder
For intCount = objSent.Items.Count To 1 Step -1
 Set objVariant = objSent.Items.Item(intCount)
 
 If objVariant.MessageClass = "IPM.Note" Then
    If  instr(1,LCase(Item.Subject), LCase(objVariant.Subject)) > 0 And objVariant.SentOn < Item.SentOn Then
' clear flag and category
With objVariant
    .ClearTaskFlag
    .Categories = ""
    .Save
End With
 
     Else
    End If
 End If
Next
End Sub