Outlook and bespoke rules

[Peter_B]

I want to build email rules whereby if I send an email to a specified person that email is placed in a certain folder. The inbuilt rules allow me to copy but not move emails to that folder.

As a first step to working out how I could do this I found this code on the internet.

Sub SetFlagIcon()
Dim mpfInbox As Outlook.Folder
Dim obj As Outlook.MailItem
Dim i As Integer
Set mpfInbox = Session.GetDefaultFolder(olFolderInbox)
Set mpfInbox = mpfInbox.Folders("Test")
' Loop all items in the Inbox\Test Folder
For i = 1 To mpfInbox.Items.Count
If mpfInbox.Items(i).Class = olMail Then
Set obj = mpfInbox.Items.Item(i)
For Each Recipient In obj.Recipients
If Recipient.Address = "Name@IP.co.uk" Then
'Set the yellow flag icon
obj.FlagIcon = olYellowFlagIcon
obj.Save
End If
Next Recipient
End If
Next
End Sub


The problem I have is that it's not picking up the email address as being true, I have tested it with "If not Recipient.Address = "Name@IP.co.uk" " and it flags the emails as Yellow.

So short basic question - any ideas as to what might be wrong?

[westconn1]

addresses matches are case sensitive, you could try forcing both to lcase, i tested your posted code and it worked correctly

[Peter_B]

Thanks, I've now tested it against my home email address which is shown in the format name.surname@IP.com and it works, whereas at work, although we have a the same underlying structural addresses that's always converted to a NAME (Team) label. I've obviously tried this against the standard email construct as above and since tried it against the label but neither is recognised. There's obviously something I'm missing about what is being taken as the email address.

Wonder if there's a way to ensure it only looks for the underlying email address?

Peter

[westconn1]

you could test with .addressentry.address
as i am only using outlook as stand alone, not with exchange i also can not test