Sending Automatic Emails Based On ADP Form

[Aliffi]

Any one needs to send automatic emails based on current form here is the code

'-----------------------------------------------------

Set myrecordset = Me.Recordset
With myrecordset
myrecordset.MoveFirst

Do Until myrecordset.EOF

DoCmd.SendObject acSendNoObject, , , "Email address here", , , "Body Text here ", No

myrecordset.MoveNext
Loop
End With
Set myrecordset = Nothing