Using OR in IF doesn't work...


I

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

Advertisements

L

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.
 
Ad

Advertisements

S

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top