Help Emailing form information

[xenos132]

Using the following code, I send email and it operates fine however, it also builds an attachment. How can I change the code so only the fields are emailed and not an attachment?


On Error GoTo Err_Command85_Click

Dim email, ref, origin, destination, notes As String

email = Me!email
ref = Me!PO
origin = Me!company
destination = Me!LocationID
notes = Me!Description


DoCmd.SendObject acSendForm, , acFormatTXT, email, , , "PO#-" & ref & ", " & origin & ", " & destination, notes, True

Exit_Command85_Click:
Exit Sub

Err_Command85_Click:
MsgBox Err.Description
Resume Exit_Command85_Click

End Sub

 

[pbaldy]

Try

acSendNoObject

instead of

acSendForm

 

[xenos132]

Thankyou, that got me thinking, I just deleted "acSendForm" and it works.

If I could ask one other question.

When a combo box is populated and run a query to fill in some list boxes, how can I instead fill in text boxes with this information?

The reason I need to do this is my email is gathering this information and If I don’t click on each cell it wont send the information, I am thinking that converting the list boxes to text boxed will fix this.