Using OR in IF doesn't work...

[info]

I found this function in this group, and trying to use in my macro,
But I have problem with this line...

If Contains(Item.To, "Marcus") Or Contains(Item.To, "Info") Then

What is wrong?


CODE
************************************
Public Function Contains(spBody, ParamArray spText() As Variant) As
Boolean
Dim slText As Variant
For Each slText In spText()
If InStr(spBody, slText) Then
Contains = True
Exit For
End If
Next
End Function
************************************
Private Sub colSentItems_ItemAdd(ByVal Item As Object)
If Item.Class = olMail Then
Dim intRes As Integer
Dim strMsg As String
If Contains(Item.To, "Lisa") Or Contains(Item.To, "Anna") Then
strMsg = "Do you set a Orange flag with follow up in 7 days 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.FlagIcon = olOrangeFlagIcon
Item.FlagStatus = olFlagMarked
Item.FlagDueBy = Now + 7
Item.FlagRequest = "Follow up"
End Select
End If
Item.Save
End If
End Sub
************************************

 

[Lanwench [MVP - Exchange]]

In

I found this function in this group, and trying to use in my macro,
But I have problem with this line...


CODE
************************************

<snip>

Hi - this isn't the best group for your question. Try
microsoft.public.outlook.program_vba.

 

[Sue Mosher [MVP-Outlook]]

It's hard to know what's wrong since you didn't provide any example of typical data or what symptoms you're seeing. Stepping through the code in the debugger might be very useful.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers