จากรูปบน ผมเขียน Code ให้ส่ง E-mail ได้แล้ว แต่เป็นการสร้างและแนบ file PDF
ตัวอย่าง Code
Private Sub email_button_Click()
Dim filenanme As String
Dim filepath As String
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
Dim rs As Recordset
Dim recipientList As String
On Error GoTo errhandler

FileName = "ÊÃØ» Invoice ·Õ褧¤éÒ§ÍÂÙè·Õè·èÒ¹"
'FileName = Me.PURCHASE_ORDER & "_" & Me.MATERIAL_SLIP_NUMBER & "_" & Me.VENDOR_NAME & "_Wait" & Me.wait & " Day"
filepath = "C:\Users\Public\" & FileName & ".pdf"
DoCmd.OutputTo acOutputForm, "F_äÇéÊÃØ» send mail µÔ´µÒÁ", acFormatPDF, filepath

If oOutlook Is Nothing Then
    Set oOutlook = New Outlook.Application
End If
Set oEmailItem = oOutlook.createItem(olmailItem)
With oEmailItem
    
    .To = Me.Requester_mail
    .CC = Me.Section_Manager & ";[email protected]"
        .Subject = " µÔ´µÒÁ Invoice ¤§¤éÒ§ ¨Ò¡á¼¹¡¤Åѧ¾ÑÊ´Ø "
    .attachments.Add filepath
.BodyFormat = olFormatHTML
.HTMLBody = "เรียนคุณ   " & Me.Requester_mail & "" & “เพื่อการชำระเงินให้ผู้ขายได้ตรงตามกำหนด” & “โปรดพิจารณาอนุมัติชำระหนี้ และ ส่ง Invoice คืนแผนกคลังพัสดุ” & “(หากงาน / ของไม่เรียบร้อย หรือ ไม่เสร็จสมูรณ์ ส่งบิลกลับแผนกคลังพัสดุทันที พร้อมทั้งระบุสาเหตุ)” & “บิลงานสั่งซื้อ                    ติดต่อ     คุณหมิว โทร 33807     E-mail: [email protected]” & “บิลงานสั่งทำ/จ้างเหมาฯ          ติดต่อ     คุณชวการ โทร 33809     E-mail: [email protected]” & “ขออภัยหากท่านได้ดำเนินการแล้ว” & “ข้อความจากระบบติดตาม Invoice อัตโนมัติจาก Program Invoice Control System”
.Display
End With
exit_errhandler:
Exit Sub
Set oEmailItem = Nothing
Set oOutlook = Nothing
Kill filepath
errhandler:
MsgBox Err.DESCRIPTION, vbExclamation
Resume Next
End Sub

คำถามคือผมจะเขียน code VB อย่างไรให้ E-mail มันแสดงส่วน Detail ของ Form นั้นเพิ่มไปในเนื้อ e-mail ครับ