Imports System

Imports System.Linq

Public Module Module1

    dim configstring as string = "ABC123|ZZZ111|BFSD999"

    dim incomingappeal as string = "ABC123"

    Public Sub Main()

        If (app.Apl_Appeal_ID.ToLower() = My.Settings.CurrentSwapAppeal_ID.Split("|").Any(Function(x) x.ToLower())) Then

                    'If (app.Apl_Appeal_ID = My.Settings.CurrentSwapAppeal_ID) Then

                    If (pfg.nKey = My.Settings.LavenderPrintFileGroupID) Then

                        'Christmas LT Branded

                        ' Appeal specific email for Christmas mailing (Lavender Trust branded) 

                        iD = 8

                        PrintType = XmassPrintType.BCCLTChristmasMailing

                    Else

                        'Christmas BCC Branded

                        'Appeal specific email for Christmas mailing (BCC branded)

                        iD = 7

                        PrintType = XmassPrintType.BCCChristmasMailing

                    End If

                Else

                    'general email template

                    If (pfg.nKey = My.Settings.LavenderPrintFileGroupID) Then

                        'General LT Thank You

                        'New generic email (Lavender Trust branded)

                        iD = 10

                        PrintType = XmassPrintType.BCCLTGeneric

                    Else

                        'General BCC Thank You

                        'New generic email (BCC branded) 

                        iD = 9

                        PrintType = XmassPrintType.BCCGeneric

                    End If

                End If

    End Sub

End Module

​