Here is some code. I've commented where my code to & two statements together
is. Any help is appreciated. Thanks.

Function Item_Write()
Set myinspector = Item.GetInspector
Set test = myInspector.ModifiedFormPages("Availability")
Set Test2 = test.Controls("Test2")
Set Test3 = test.Controls("Test3")

If Test2.Value = True Then
Item.Categories = Item.Categories & ",Test2"
ElseIf Test3.Value = True Then
Item.Categories = Item.Categories & ",Test3"

//////The code below doesn’t work for some reason. It seems to output
Test2, but not Test2 & Test3. Is it because of the order of my "if" clauses?
If so, how should I restructure them. If not, please let me know what else
you believe it could be.

ElseIf Test2.Value & Test3.Value = True Then
Item.Categories = Item.Categories & ",Test2 & Test3"

End If
End Function


"Sue Mosher [MVP-Outlook]" wrote:

Look at the rest of your If ... Then ... End If block. If the criteria have already been met earlier, code execution never gets to the ElseIf statement.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Scott07" wrote in message ...
Thanks for the fast reply. If I only check, for example, Test1, the Category
is set properly. Also, if I check Test2, it works properly. However, if I
check both and invoke the code below, the Category will remain blank.


"Sue Mosher [MVP-Outlook]" wrote:

What's the specific problem? It looks like what this code is supposed to do is check whether two controls both return True and, if they do, append a new category names "Test1 & Test2" to the categories that already exist on the item.


"Scott07" wrote in message ...
Thanks, that worked. I'm having trouble with the following code, as well.
I've tried varying combinations because I know it's a syntax problem, but
none have worked:

ElseIf test1.Value & test2.Value = True Then
Item.Categories = Item.Categories & ",Test1 & Test2"