Private Sub doEmail(ByVal Qrecords() As String, ByVal Nrecords() As String, ByVal recordSize As Integer)

        Dim i As Integer 'loop counter
        Dim OutlookApp As New Microsoft.Office.Interop.Outlook.Application 'application
        Dim msg As Microsoft.Office.Interop.Outlook._MailItem 'Mail item  

        Dim attached As Microsoft.Office.Interop.Outlook.Attachments '= msg.Attachments
        Dim attached2 As Microsoft.Office.Interop.Outlook.Attachment

        Dim oNameSpace As Microsoft.Office.Interop.Outlook.NameSpace
        oNameSpace = OutlookApp.GetNamespace("MAPI")

        Dim oAddressLists As Microsoft.Office.Interop.Outlook.AddressLists
        Dim oAddressList As Microsoft.Office.Interop.Outlook.AddressList
        oAddressLists = oNameSpace.AddressLists
        oAddressList = oAddressLists.Item("All Users")

        For i = 0 To UBound(Nrecords)
            msg = OutlookApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
            attached = msg.Attachments
            msg.To = Nrecords(i)

            If managers.Checked Then
                If Not oAddressList.AddressEntries.Item(Nrecords(i)).Manager Is Nothing Then
                    msg.CC = oAddressList.AddressEntries.Item(Nrecords(i)).Manager.ID

                End If
            End If


            msg.Subject = "Pls review within within 30 days"

            msg.Body = "Your ID: " & Qrecords(i) & " currently has access to." & systemName.Text & Environment.NewLine & Environment.NewLine & " If you still require this access, please respond to " & replyToTxt.Text & " by: " & replyDate.Text & " with the document attached." & vbCrLf & " Please note, if we do not receive a reply by " & replyDate.Text & ", access will be disabled." & vbCrLf & vbCrLf & " Thank you " & vbCrLf & " Please not this is an automated message, please do not reply to sender."
            If Len(attachedFile) > 0 Then
                attached2 = attached.Add(attachedFile)
            End If

            msg.Send()

        Next
    End Sub