Send Subform data through email

[trantm]

I currently use code to send data to my clients and would like to include more detailed summaries by sending them some data from the subform I have. I am pretty familiar with how all this works so I just need a small line or advbice to get me started. Thanks in advance for any help.

here is the current code i use just to send the email.

Private Sub Command25_Click()
Dim olLook As Object                     'Start MS Outlook
Dim olNewEmail As Object                 'New email in Outlook
Dim strContactEmail As String            'Contact email address
Dim strCarrier As String                 'Shipping Carrier
Dim strShipDate As String                'Ship Date
 



 
Set olLook = CreateObject("Outlook.Application")
Set olNewEmail = olLook.createitem(0)
strorderid = orderid
strEmailText = fname
strContactEmail = email


   With olNewEmail
      .To = strContactEmail
      .BCC = "[email protected]"
      .body = "Your order details from My Shops Unlimited, LLC. " & strEmailText & strorderid & "."
      .subject = "Your recent service from My Shops Unlimited, LLC"
      .display
   End With
End Sub

I cleaned up the code to make it look simple. But basically inside of the .body i would like to be able to include subform "a" fields.

Once again thanks in advance for any help.


Matthew Trant,

My Shops Unlimited, LLC