Sende mails ved brug af Outlook Form

Hej!

Jeg ønsker at sende mails (ved brug af Outlook) til et antal adresser fra en Access database. Hver ansat skal have en individualiseret rapport, hvilket nedenstående kode opfylder.

Min udfordring er, at jeg ønsker at basere mailen på en Outlook Form - bl.a. for at give modtageren mulighed for at svare vha. svarknapper.

Er det muligt ved tilretning af nedenstående, eller skal jeg gøre det på en helt anden måde?


Private Sub Send__mail_Click()

  Set rst = CurrentDb.OpenRecordset("q_emps")
  Dim rep_def As Report
  With rst
    Do Until .EOF
    DoCmd.OpenReport "Mail_report", acViewPreview, , "[EmployeeId] =" & rst!EmployeeId, acHidden
      DoCmd.SendObject acSendReport, "Mail_report", acFormatHTML, rst!email, , , "Report for review", "Please review the attached report and reply", False
      DoCmd.Close acReport, "Mail_report", acSaveNo
      .MoveNext
    Loop
    .Close
  End With
  Set rst = Nothing
   
End Sub