Send e-mail notice to a specific person 1

[gotnomoney]

I have a survey form that I would like to include a command button to send a e-mail notice stating a new entry has been saved. Is there a way with code or a macro do do this?

 

[WB786]

On the On Click Event of your button do this:

Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.Recipients.Add ThePerson@MyCompany.com
.Subject = "A New Survey Entery Has been submitted"
.Body = "From Me" & Chr(13) & Chr(13) _
& "Rest of your body here is you like"

.Send

End With
Set objMail = Nothing
Set objOutlook = Nothing

WB

 

[GingerR]

try looking up SendObject in HELP

 

[gotnomoney]

Thank you so much... It works great!