Help sending email.

[Xenos132]

Help sending email.

Thanks to these forums I have figured out how to send my form’s information via email.

Is there a way to edit this code so it does not send an attachment as all I need is the fields as I am sending the code to our employee’s cell phones?


This is the code I am using.

Private Sub Command85_Click()

On Error GoTo Err_Command85_Click

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


email = Me!email
ref = Me!PO
destination = Me!Location
notes = Me!Description


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


Exit_Command85_Click:
Exit Sub

Err_Command85_Click:
MsgBox Err.Description
Resume Exit_Command85_Click

End Sub

 

[GingerR]

replace "acSendForm" with "acSendNoObject"

If you simply type "docmd.sendobject " it will pop up a list of choices, one of which is "acSendNoObject".

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244