I copied your code and changed the query to a temp table I created. The following worked. Although, it only grabbed the first record from the table.
Code:
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Dim rs As DAO.Recordset
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olTaskItem)
Set rs = CurrentDb.OpenRecordset("TableOne")
Set rsIssueID = rs("IssueID")
Set rsIssueRequesterNameTxt = rs("IssueRequesterNameTxt")
Set rsRequestingOfficeTxt = rs("PAY_OFFICE_NAME")
Set rsIssueDescSumMem = rs("IssueDescSumMem")
Set rsFilePathTxt = rs("FilePathTxt")
Set rsDueDate = rs("Due Date")
Set rsEmail = rs("Email")
Set rsCCEmail = rs("CCEmail")
myItem.Assign
Set myDelegate = myItem.Recipients.Add(rs("Email"))
myDelegate.Resolve
If myDelegate.Resolved Then
myItem.Subject = "Task # " '& rsIssueID & ": " & rsIssueDescSumMem
' myItem.Body = "Please view the FNIP Inquiry Tracking Log Database for more information regarding the assigned task." & _
'
' vbCrLf & "File Path:" & " " & "S:\FNIP\FNIP Management and Administration\FNIP Tracking Log\FNIP Tracking Log Production" & _
'
' vbCrLf & vbCrLf & "Task #:" & " " & rsIssueID & vbCrLf & "Requestor Name:" & " " & rsIssueRequesterNameTxt & _
'
' vbCrLf & "Requesting Office:" & " " & rsRequestingOfficeTxt & vbCrLf & "Issue Summary:" & " " & rsIssueDescSumMem
myItem.DueDate = rsDueDate
myItem.ReminderTime = DateAdd("d", 1, Now)
myItem.Importance = olImportanceNormal
myItem.Display
myItem.Assign
End If
Set rs = Nothing