Send Listbox data within email body in MS Access (1 Viewer)

Forms!Contacts!Customers.Column(1, 4)

Private Sub cmdOpenEmail_Click()
On Error GoTo ErrorHandler
 
 DoCmd.SendObject , , , "John@gmail.com", _
 Cc:="", subject:="File Physical Retrieval Request.", _
 MessageText:="Dear SCE," & vbCrLf & " " & vbNewLine & _
 "Kindly arrange to provide me with the physical file as per the below details:" & vbCrLf & vbNewLine & _
 "Account Details:" & "  " & List881 & "." & vbCrLf & vbNewLine & _
 "Your assistance in this matter would be highly appreciated." & vbNewLine & vbNewLine & "Thank you!" & vbNewLine & vbNewLine & _
 "Regards," & vbCrLf & _
 "" & [Forms]![NavigationForm]![txtUserName] & "" & "", EditMessage:=True
 
  DoCmd.Close acForm, "frmFileReqF", acSaveNo
  MsgBox "Message Sent Successfully."

Cleanup:
  Exit Sub

ErrorHandler:
  Select Case Err.Number
    Case 2501
      MsgBox "Email message was Cancelled."
    Case Else
      MsgBox Err.Number & ": " & Err.Description
  End Select
  Resume Cleanup
End Sub

SELECT Customerstbl.FID, Customerstbl.AccountNumber AS [A/C], Customerstbl.Customer, [Userlogin] & " - " & [UserName] AS [Requested by]
FROM tblUser INNER JOIN (Customerstbl INNER JOIN tblFileReq ON Customerstbl.FID = tblFileReq.[AccountNo]) ON tblUser.UserID = tblFileReq.ReqID
WHERE (((tblFileReq.IsActive)=True) AND ((tblFileReq.ReqID)=[Forms]![NavigationForm]![txtID]))
ORDER BY tblFileReq.ReqPk;

Private Sub List881_AfterUpdate()
On Error Resume Next
    If IsNull(Me!List881) Then
        Me.Filter = ""
    Me.FilterOn = False
Else
    Me.Filter = "[ReqPK]=" & Me![List881]
        Me.FilterOn = True
    Me.Requery
Me.Refresh
End If
End Sub

Function GetListBoxDataByRowCol() As String
    Dim rcount As Integer
    Dim ccount As Integer
    Dim r As Integer
    Dim c As Integer
    Dim strLine As String
            
    rcount = Me.lstInfo.ListCount - 1
    ccount = Me.lstInfo.ColumnCount - 1
    
    For r = 0 To rcount
        For c = 0 To ccount
            strLine = strLine & Me.lstInfo.Column(c, r) & " -- "
        Next c
        strLine = strLine & vbCr
    Next r
    GetListBoxDataByRowCol = strLine
End Function

Function GetLBData() As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSql As String
    Dim strLine As String
        
    Set db = CurrentDb
    strSql = Me.lstInfo.RowSource
    Set rs = db.OpenRecordset(strSql)
    
    rs.MoveFirst
    
    Do While Not rs.EOF
        strLine = strLine & rs("Site_Name") & " " & rs("Site_Path") & vbCr
        rs.MoveNext
    Loop
    Debug.Print "strSLine = " & vbCr & strLine
    GetLBData = strLine
End Function