I am using CDO Mail to distribute reports. My script has been wroking great
and sends out multiple reports, however I now have to setup more that one
distribution list...

I already have logic that identifies what reports are being sent and want to
use something similar to choose the distro list, but I don't know if using an
IF statement is valid when defining a variable.

Here's a snippet of the code I am trying to use:

Dim SCType As String
SCType = sh.Range("K6")

Dim Distro As String
If SCType = "WFSCScheduler" Then
Distro = "(E-Mail Removed)"
Else: Distro = "(E-Mail Removed)"
End
End If

Yeah, I suppose I could put a formula in the sheet and define the distro
that way, but I really hate to clutter up my sheets... Also, I may need to
build additional distros, so additional Else/IF Statements may be necessary.

What am I doing wrong?

Thanks!
Ray

1) Take out the 'End' statement. That stops all code & resets all variables.
Do that and what you have will probably work fine.

2) If you expect you will be adding additional conditions, consider using a
Select Case structure rather than a If..Then..ElseIf: Unless you have a
simple either/or condition, I find it much easier to read, debug & maintain.

Select Case SCType
Case "WFSCScheduler"
Distro = "(E-Mail Removed)"
Case "SomeNewValue", "NewWFSC"
Distro = "(E-Mail Removed)"
Case Else
Distro = "(E-Mail Removed)"
End Select


HTH,

"RayportingMonkey" <(E-Mail Removed)> wrote in
message news:3390C746-6882-4E06-B14C-(E-Mail Removed)...
>I am using CDO Mail to distribute reports. My script has been wroking great
> and sends out multiple reports, however I now have to setup more that one
> distribution list...
>
> I already have logic that identifies what reports are being sent and want
> to
> use something similar to choose the distro list, but I don't know if using
> an
> IF statement is valid when defining a variable.
>
> Here's a snippet of the code I am trying to use:
>
> Dim SCType As String
> SCType = sh.Range("K6")
>
> Dim Distro As String
> If SCType = "WFSCScheduler" Then
> Distro = "(E-Mail Removed)"
> Else: Distro = "(E-Mail Removed)"
> End
> End If
>
> Yeah, I suppose I could put a formula in the sheet and define the distro
> that way, but I really hate to clutter up my sheets... Also, I may need to
> build additional distros, so additional Else/IF Statements may be
> necessary.
>
> What am I doing wrong?
>
> Thanks!
> Ray
>

I opted for the Select Case method and it worked great - Thanks!

"George Nicholson" wrote:

> 1) Take out the 'End' statement. That stops all code & resets all variables.
> Do that and what you have will probably work fine.
>
> 2) If you expect you will be adding additional conditions, consider using a
> Select Case structure rather than a If..Then..ElseIf: Unless you have a
> simple either/or condition, I find it much easier to read, debug & maintain.
>
> Select Case SCType
> Case "WFSCScheduler"
> Distro = "(E-Mail Removed)"
> Case "SomeNewValue", "NewWFSC"
> Distro = "(E-Mail Removed)"
> Case Else
> Distro = "(E-Mail Removed)"
> End Select
>
>
> HTH,
>
> "RayportingMonkey" <(E-Mail Removed)> wrote in
> message news:3390C746-6882-4E06-B14C-(E-Mail Removed)...
> >I am using CDO Mail to distribute reports. My script has been wroking great
> > and sends out multiple reports, however I now have to setup more that one
> > distribution list...
> >
> > I already have logic that identifies what reports are being sent and want
> > to
> > use something similar to choose the distro list, but I don't know if using
> > an
> > IF statement is valid when defining a variable.
> >
> > Here's a snippet of the code I am trying to use:
> >
> > Dim SCType As String
> > SCType = sh.Range("K6")
> >
> > Dim Distro As String
> > If SCType = "WFSCScheduler" Then
> > Distro = "(E-Mail Removed)"
> > Else: Distro = "(E-Mail Removed)"
> > End
> > End If
> >
> > Yeah, I suppose I could put a formula in the sheet and define the distro
> > that way, but I really hate to clutter up my sheets... Also, I may need to
> > build additional distros, so additional Else/IF Statements may be
> > necessary.
> >
> > What am I doing wrong?
> >
> > Thanks!
> > Ray
> >
>
>
>