Help with ElseIf Statements

[dshillington]

I have programmed a VBA to email a form to a specific email group, and included a CC based on a check box. I am trying to add additional emails to that CC box based on other check boxes in my form. Stumped on how to do this.



Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.SentOnBehalfOfName = "Mailbox sent from"
.Importance = olImportanceHigh
.To = "@Outlook Email Group"
If Me.Check96 = True Then
.CC = "multiple email addresses"
ElseIf Me.MAA = True Then
.CC = Me.Check96 And "optional email addresses to be added to the CC group based on another check box"
End If

What am I doing wrong????

Dave

[pbaldy]

If I'm following what you want to do:

.CC = .CC & "optional email addresses to be added to the CC group based on another check box"

[pbaldy]

By the way, you realize the ElseIf will only run if Check96 is False?

[dshillington]

That's exactly what I want. What would the code look like inserted into mine? Mucho gracias!

[pbaldy]

Not clear what you're asking; it would look exactly like that (you would presumably have addresses in the string). & is a concatenation operator, so will join the previous string with the new string.

[dshillington]

Sorry, still pretty new to this. I guess I,m wondering if I use an ElseIf statement for this?

Your help is greatly appreciated.

[pbaldy]

Depends on the logic you want applied. If each checkbox will optionally add to the string, then no.

If (Me.Checkbox1) Then
  .CC = .CC & ...
End If

If (Me.Checkbox2) Then
  .CC = .CC & ...
End If

By the way,