VBA IIF Statement in Outlook 2003 2

[MichaelF81]

OK, I have a radio button called "reqNo" and if it is set to true, I want a field called "Required" to add "user@domain.com" to the required user field. If "reqNo" is set to false (which it is by default) I want it to not add the e-mail address.

IIf( expr , truepart , falsepart )

That is how it should work, I have set-it up and it does not. Any ideas?




"Adults are just obsolete children and the hell with them." - Dr. Seuss

 

[Andrzejek]

Could you show your code here?

I am sure Iif statement works OK, I am affraid your logic does not.

Do not confuse truepart, falsepart with "a radio button called "reqNo" and if it is set to true" and "reqNo is set to false"

---- Andy

 

[CBasicAsslember]

If reqNo = True Then
Required = "user@domain.com"
End If

 

[MichaelF81]

I tried that if statement, I also tried making Required Disabeled and using the IF to enable it




"Adults are just obsolete children and the hell with them." - Dr. Seuss

 

[CBasicAsslember]

What kind of button are you actually using? CheckBox? ToggleButton? OptionButton?

 

[MichaelF81]

OptionButton




"Adults are just obsolete children and the hell with them." - Dr. Seuss

 

[MichaelF81]

Private Sub reqNo_Change()
If reqNo = True Then
Required.value = "user@domain.com"
End If
End Sub

No good




"Adults are just obsolete children and the hell with them." - Dr. Seuss

 

[CBasicAsslember]

Do you have two OptionButton's in a frame?

 

[MichaelF81]

I have two option buttons, both of them are using the same field control called "reqNo". They are individually called reqYes and reqNo




"Adults are just obsolete children and the hell with them." - Dr. Seuss

 

[CBasicAsslember]

Why not use a CheckBox and make it simple?

 

[MichaelF81]

I tried that, but I could not get it to work. If you have suggestions on how to make it work, I would greatly appreciate it!




"Adults are just obsolete children and the hell with them." - Dr. Seuss

 

[CBasicAsslember]

Add a checkbox. We will assume that it's name is CheckBox1. I don't know what the variable "Required" is, is it another control on the userform? Maybe this code will help you understand the checkbox.

Private Sub CheckBox1_Click()
MsgBox "You just set the button to " & CheckBox1.Value
End Sub

This code will assign the checkbox state to the variable.

If CheckBox1 = True Then
   Required = "user@domain.com"
End If

You need to show us the code your using now as everything is in the details.

 

[MichaelF81]

Private Sub chkbYes_Click()
MsgBox "You just set the button to " & chkbYes.Value
End Sub

Ok, I did this, clicked it, it does not work...




"Adults are just obsolete children and the hell with them." - Dr. Seuss

 

[CBasicAsslember]

Go to the VBA editor. Click on the userform module that has the checkbox. Click on the checkbox in the userform. In the Properties window, at the top, does it say "chkbYes CheckBox"?

 

[MichaelF81]

I am doing this all in outlook 2003. The VB Editor is essentially notepad. It has a script menu with object browser and event browser, but I do not see my fields (only built-in fields)




"Adults are just obsolete children and the hell with them." - Dr. Seuss

 

[Andrzejek]

Checkboxes, IMHO, are poor choice of controls for what you want to do. Checkbox can be either checked or unchecked, and they work 'independent' of each other, which means you can have 1, 2, 3 or 15 checkboxes and all of them could be checked, unchecked or in any combinations.

Users are used to certain behavior of controls, and if you changed their behavior users will be confused.

2 option buttons (radio buttons) make sense to me.

Try:

Private Sub reqNo_Click()
    Call CheckReq
End Sub

Private Sub reqYes_Click()
    Call CheckReq
End Sub

Private Sub CheckReq()

If reqNo.Value = True Then
    Me.Caption = "No is chosen"
Else
    Me.Caption = "No is NOT chosen"
End If

End Sub

---- Andy

 

[Andrzejek]

I see now, you want to have just one checkbox - this will work fine.

---- Andy

 

[CBasicAsslember]

How did you make the userform with the controls?

 

[MichaelF81]

OK guys, I got it to work!

Function Item_Send()
If Item.UserProperties("chkbYes").value = True Then
	Item.RequiredAttendees = Item.RequiredAttendees & "; user@domain.com"		
	Item_Send = True
Else
 If Item.UserProperties("chkbYes").value = False Then
	msgbox("Danger Will Robinson.")
	Item_Send = False
 End If
End If
End Function

But, Outlook says it has active content so it will not display in the reading pane... freaking shoot,




"Adults are just obsolete children and the hell with them." - Dr. Seuss

 

[CBasicAsslember]

Ahhh! You making a message form. One thing about the code you posted, you don't need 2 if statements because there are only 2 possible states (True or False).

Function Item_Send()
If Item.UserProperties("chkbYes").value = True Then
    Item.RequiredAttendees = Item.RequiredAttendees & "; user@domain.com"        
    Item_Send = True
Else
    msgbox("Danger Will Robinson.")
    Item_Send = False
End If
End Function