Public Function  SendNHSMail( strTo, strSubject, strMessage, strAttachment , strCC , strBcc  )

 Set mailman = CreateObject("Chilkat_9_5_0.MailMan")

'  Any string argument automatically begins the 30-day trial.
 success = mailman.UnlockComponent("hkifmmMAILQ_9WN3egUEkI2i")
 If (success <> 1) Then
     MsgBox "Component unlock failed"
     WScript.Quit
 End If

'  Configure the NHS SMTP server Fields
 mailman.SmtpHost = "send.nhs.net"
 mailman.SmtpPort = 587
 mailman.StartTLS = 1
 mailman.SmtpUsername = "tisdata@nhs.net"
 mailman.SmtpPassword = "VJuULeMGP4"


'  Create a new email object
 Set Email = CreateObject("Chilkat_9_5_0.Email")

  Email.Subject = "[INFO] GMCSU: " & strSubject
  'Email.Body = ProcessMessage( strSubject, strMessage )
  Email.SetHtmlBody ProcessMessage( strSubject, strMessage )

  Email.From = "TIS <tisdata@nhs.net>"

'  Add the Recipients
Addresses = split(strTo,",")
i = 0
Do While i <= ubound(Addresses)
 Email.AddTo "",Addresses(i)
 i = i + 1
Loop

'  Add Any CC Recipients
Addresses = split(strCC,",")
i = 0
Do While i <= ubound(Addresses)
 Email.AddCC "",Addresses(i)
 i = i + 1
Loop

'  Add Any Bcc Recipients
Addresses = split(strBcc,",")
i = 0
Do While i <= ubound(Addresses)
 Email.AddBcc "",Addresses(i)
 i = i + 1
Loop


If Len(strAttachment) > 0 Then
    Email.AddFileAttachment(strAttachment)
End If

Success = mailman.SendEmail(Email)
If (Success <> 1) Then
    SendMail "gmcsu.dataservices@nhs.net",  "Automated NHS Mail Problems","Send Unsuccessful at line 66 in SendNHSMail2.vbs"
    WScript.Quit
End If

End Function