Send e-mail after append query

P

Peter

Hi. I've created an append query to sent some data to another dbase, and I
would like to sent an auto e-mail to my boss, tell him that the data is all
ready sync. How can I do that?

Tku.
 
W

Wayne-I-M

Public Sub SomeButtonName_Click()

'run the query'
DoCmd.OpenQuery "QueryName, acHidden"

'send your boss an e mail'
DoCmd.SendObject acSendNoObject, , , "EMailAddress", "", "", _
"To Boss from Peter", "I have run the stuff you wanted at " _
& Format(Now, "dd mmmm yyyy hh:nn AM/PM") & _
" hope this is OK, False, """
End Sub
 
H

hor vannara

Peter said:
Hi. I've created an append query to sent some data to another dbase, and I
would like to sent an auto e-mail to my boss, tell him that the data is
all
ready sync. How can I do that?

Tku.
 
H

hor vannara

Peter said:
Hi. I've created an append query to sent some data to another dbase, and I
would like to sent an auto e-mail to my boss, tell him that the data is
all
ready sync. How can I do that?

Tku.
 
H

hor vannara

Peter said:
Hi. I've created an append query to sent some data to another dbase, and I
would like to sent an auto e-mail to my boss, tell him that the data is
all
ready sync. How can I do that?

Tku.
 
Top