Button to send an email that includes specified objects

[Jenn]

I have created an Access form that I use when making phone calls. The form is based on a table, (called Customer Name), and also contains a subform based on a table (called Purchases). The form includes the contact name, phone number (data that comes from the Customer Name table). It also includes business name (data that comes from the Purchases Table) and a memo field (in the subform) to take notes in while making the phone call.

1. I would like to add a button that sends an email that includes several fields from the form and subform in the body of the email. 2. The receipient of the email would come from a third table that is linked by relationship. 3. I would like the subject line of the email to read: "Customer Follow-up Call".
Is this possible? I would be thankful for any pointers, as I have been trying to figure this out for quite some time.

[MMcCarthy]

I have created an Access form that I use when making phone calls. The form is based on a table, (called Customer Name), and also contains a subform based on a table (called Purchases). The form includes the contact name, phone number (data that comes from the Customer Name table). It also includes business name (data that comes from the Purchases Table) and a memo field (in the subform) to take notes in while making the phone call.

1. I would like to add a button that sends an email that includes several fields from the form and subform in the body of the email. 2. The receipient of the email would come from a third table that is linked by relationship. 3. I would like the subject line of the email to read: "Customer Follow-up Call".
Is this possible? I would be thankful for any pointers, as I have been trying to figure this out for quite some time.

This is the code that you would need. I am using commandBtn in place of whatever your command button name is. Also I've used UserID for the relationship to the table containing the email address as I don't know what the relationship is.

Private Sub commandBtn_Click()
Dim strRecipients As String
Dim strSubject As String
Dim strBody As String
 
   strSubject = "The subject"
   strBody = Me.Field1 & " " & Me.Field2 ' or something long these lines
 
   strRecipients = DLookup("[EmailAddress]","TableName","[UserID]=" & Me.UserID)
 
   DoCmd.SendObject acSendNoObject, , , strRecipients, , , strSubject, strBody
 
End Sub
 

Check out this thread for the full syntax of this function:

http://www.thescripts.com/forum/thread561826.html

[Jenn]

Thank you. I will give this a try. I appreciate your response. Thanks for your time.

This is the code that you would need. I am using commandBtn in place of whatever your command button name is. Also I've used UserID for the relationship to the table containing the email address as I don't know what the relationship is.

Private Sub commandBtn_Click()
Dim strRecipients As String
Dim strSubject As String
Dim strBody As String
 
   strSubject = "The subject"
   strBody = Me.Field1 & " " & Me.Field2 ' or something long these lines
 
   strRecipients = DLookup("[EmailAddress]","TableName","[UserID]=" & Me.UserID)
 
   DoCmd.SendObject acSendNoObject, , , strRecipients, , , strSubject, strBody
 
End Sub
 

Check out this thread for the full syntax of this function:

http://www.thescripts.com/forum/thread561826.html